Finding consecutive seasons with an increase in Career Points / 36 Min

players.csv

script.R

library(sportsTools)

players <- read.csv('players.csv')
players$Consecutive <- 0
players$Seasons <- 0

for (i in 1:nrow(players)) {
  totals <- GetPlayerSpecificStats(players[i, 'Player'], 'totals', players[i, 'Season'])
  
  tot.years <- totals[which(totals$Tm == 'TOT'), 'Season']
  if (length(tot.years) > 0) {
    totals <- totals[-which(totals$Season %in% tot.years & totals$Tm != 'TOT'), ]
  }
  
  totals$pp36 <- totals$PTS / totals$MP * 36
  totals$cum.pts <- cumsum(totals$PTS) - totals$PTS
  totals$cum.mp <- cumsum(totals$MP) - totals$MP
  totals$cum.pp36 <- totals$cum.pts / totals$cum.mp * 36
  
  totals$valid <- 0
  totals[1, 'valid'] <- 1
  totals[which(totals$pp36 > totals$cum.pp36), 'valid'] <- 1
  #totals[which((totals$pp36 + 0.05) > totals$cum.pp36), 'valid'] <- 1
  
  players[i, 'Seasons'] <- nrow(totals)
  #players[i, 'Consecutive'] <- which(totals$valid == 0)[1]
  players[i, 'Consecutive'] <- which(totals$valid == 0)[2]
  
  cat(i, '\n')
}

players$Consecutive <- players$Consecutive - 1