Skip to content

Commit

Permalink
Fixed bug in stat names
Browse files Browse the repository at this point in the history
  • Loading branch information
amj2012 committed Feb 25, 2017
1 parent 6c00448 commit 406a0be
Showing 1 changed file with 30 additions and 30 deletions.
60 changes: 30 additions & 30 deletions code/version-3/creating-stats-columns.R
View file
Expand Up @@ -681,21 +681,21 @@ recalculatePctColumns <- function(match_sheet, location="none") {
match_sheet[,"Pct Shots Pressed"] <- match_sheet[,"Shots Pressed"]/match_sheet[,"Shots"]
match_sheet[,"BC Conversion Pct"] <- match_sheet[,"BC Scored"]/match_sheet[,"Big Chances"]
match_sheet[,"Pass Comp Pct"] <- match_sheet[,"Pass Comp"]/match_sheet[,"Pass Att"]
match_sheet[,"opPass Comp"] <- match_sheet[,"opPass Comp"]/match_sheet[,"opPass Att"]
match_sheet[,"PPass Comp"] <- match_sheet[,"PPass Comp"]/match_sheet[,"PPass Att"]
match_sheet[,"Cross Comp"] <- match_sheet[,"Cross Comp"]/match_sheet[,"Cross Att"]
match_sheet[,"Launch Comp"] <- match_sheet[,"Launch Comp"]/match_sheet[,"Launch Att"]
match_sheet[,"Through Comp"] <- match_sheet[,"Through Comp"]/match_sheet[,"Through Att"]
match_sheet[,"Throw In Comp"] <- match_sheet[,"Throw In Comp"]/match_sheet[,"Throw In Att"]
match_sheet[,"fwPass Comp"] <- match_sheet[,"fwPass Comp"]/match_sheet[,"fwPass Att"]
match_sheet[,"sPass Comp"] <- match_sheet[,"sPass Comp"]/match_sheet[,"sPass Att"]
match_sheet[,"bPass Comp"] <- match_sheet[,"bPass Comp"]/match_sheet[,"bPass Att"]
match_sheet[,"fwopPass Comp"] <- match_sheet[,"fwopPass Comp"]/match_sheet[,"fwopPass Att"]
match_sheet[,"sopPass Comp"] <- match_sheet[,"sopPass Comp"]/match_sheet[,"sopPass Att"]
match_sheet[,"bopPass Comp"] <- match_sheet[,"bopPass Comp"]/match_sheet[,"bopPass Att"]
match_sheet[,"fwPPass Comp"] <- match_sheet[,"fwPPass Comp"]/match_sheet[,"fwPPass Att"]
match_sheet[,"sPPass Comp"] <- match_sheet[,"sPPass Comp"]/match_sheet[,"sPPass Att"]
match_sheet[,"bPPass Comp"] <- match_sheet[,"bPPass Comp"]/match_sheet[,"bPPass Att"]
match_sheet[,"opPass Comp Pct"] <- match_sheet[,"opPass Comp"]/match_sheet[,"opPass Att"]
match_sheet[,"PPass Comp Pct"] <- match_sheet[,"PPass Comp"]/match_sheet[,"PPass Att"]
match_sheet[,"Cross Comp Pct"] <- match_sheet[,"Cross Comp"]/match_sheet[,"Cross Att"]
match_sheet[,"Launch Comp Pct"] <- match_sheet[,"Launch Comp"]/match_sheet[,"Launch Att"]
match_sheet[,"Through Comp Pct"] <- match_sheet[,"Through Comp"]/match_sheet[,"Through Att"]
match_sheet[,"Throw In Comp Pct"] <- match_sheet[,"Throw In Comp"]/match_sheet[,"Throw In Att"]
match_sheet[,"fwPass Comp Pct"] <- match_sheet[,"fwPass Comp"]/match_sheet[,"fwPass Att"]
match_sheet[,"sPass Comp Pct"] <- match_sheet[,"sPass Comp"]/match_sheet[,"sPass Att"]
match_sheet[,"bPass Comp Pct"] <- match_sheet[,"bPass Comp"]/match_sheet[,"bPass Att"]
match_sheet[,"fwopPass Comp Pct"] <- match_sheet[,"fwopPass Comp"]/match_sheet[,"fwopPass Att"]
match_sheet[,"sopPass Comp Pct"] <- match_sheet[,"sopPass Comp"]/match_sheet[,"sopPass Att"]
match_sheet[,"bopPass Comp Pct"] <- match_sheet[,"bopPass Comp"]/match_sheet[,"bopPass Att"]
match_sheet[,"fwPPass Comp Pct"] <- match_sheet[,"fwPPass Comp"]/match_sheet[,"fwPPass Att"]
match_sheet[,"sPPass Comp Pct"] <- match_sheet[,"sPPass Comp"]/match_sheet[,"sPPass Att"]
match_sheet[,"bPPass Comp Pct"] <- match_sheet[,"bPPass Comp"]/match_sheet[,"bPPass Att"]
match_sheet[,"Pct opPass Pressed"] <- match_sheet[,"PPass Att"]/match_sheet[,"opPass Att"]
match_sheet[,c("rFreq Pass Fwd", "rFreq Pass Side", "rFreq Pass Back")] <- match_sheet[,c("fwPass Att","sPass Att","bPass Att")]/match_sheet[,"Pass Att"]
match_sheet[,c("rFreq opPass Fwd","rFreq opPass Side","rFreq opPass Back")] <- match_sheet[,c("fwopPass Att","sopPass Att","bopPass Att")]/match_sheet[,"opPass Att"]
Expand Down Expand Up @@ -726,21 +726,21 @@ recalculatePctColumns <- function(match_sheet, location="none") {
match_sheet[,paste(index,"Pct Shots Pressed")] <- match_sheet[,paste(index,"Shots Pressed")]/match_sheet[,paste(index,"Shots")]
match_sheet[,paste(index,"BC Conversion Pct")] <- match_sheet[,paste(index,"BC Scored")]/match_sheet[,paste(index,"Big Chances")]
match_sheet[,paste(index,"Pass Comp Pct")] <- match_sheet[,paste(index, "Pass Comp")]/match_sheet[,paste(index,"Pass Att")]
match_sheet[,paste(index,"opPass Comp")] <- match_sheet[,paste(index,"opPass Comp")]/match_sheet[,paste(index,"opPass Att")]
match_sheet[,paste(index,"PPass Comp")] <- match_sheet[,paste(index,"PPass Comp")]/match_sheet[,paste(index,"PPass Att")]
match_sheet[,paste(index,"Cross Comp")] <- match_sheet[,paste(index,"Cross Comp")]/match_sheet[,paste(index,"Cross Att")]
match_sheet[,paste(index,"Launch Comp")] <- match_sheet[,paste(index,"Launch Comp")]/match_sheet[,paste(index,"Launch Att")]
match_sheet[,paste(index,"Through Comp")] <- match_sheet[,paste(index,"Through Comp")]/match_sheet[,paste(index,"Through Att")]
match_sheet[,paste(index,"Throw In Comp")] <- match_sheet[,paste(index,"Throw In Comp")]/match_sheet[,paste(index,"Throw In Att")]
match_sheet[,paste(index,"fwPass Comp")] <- match_sheet[,paste(index,"fwPass Comp")]/match_sheet[,paste(index,"fwPass Att")]
match_sheet[,paste(index,"sPass Comp")] <- match_sheet[,paste(index,"sPass Comp")]/match_sheet[,paste(index,"sPass Att")]
match_sheet[,paste(index,"bPass Comp")] <- match_sheet[,paste(index,"bPass Comp")]/match_sheet[,paste(index,"bPass Att")]
match_sheet[,paste(index,"fwopPass Comp")] <- match_sheet[,paste(index,"fwopPass Comp")]/match_sheet[,paste(index,"fwopPass Att")]
match_sheet[,paste(index,"sopPass Comp")] <- match_sheet[,paste(index,"sopPass Comp")]/match_sheet[,paste(index,"sopPass Att")]
match_sheet[,paste(index,"bopPass Comp")] <- match_sheet[,paste(index,"bopPass Comp")]/match_sheet[,paste(index,"bopPass Att")]
match_sheet[,paste(index,"fwPPass Comp")] <- match_sheet[,paste(index,"fwPPass Comp")]/match_sheet[,paste(index,"fwPPass Att")]
match_sheet[,paste(index,"sPPass Comp")] <- match_sheet[,paste(index,"sPPass Comp")]/match_sheet[,paste(index,"sPPass Att")]
match_sheet[,paste(index,"bPPass Comp")] <- match_sheet[,paste(index,"bPPass Comp")]/match_sheet[,paste(index,"bPPass Att")]
match_sheet[,paste(index,"opPass Comp Pct")] <- match_sheet[,paste(index,"opPass Comp")]/match_sheet[,paste(index,"opPass Att")]
match_sheet[,paste(index,"PPass Comp Pct")] <- match_sheet[,paste(index,"PPass Comp")]/match_sheet[,paste(index,"PPass Att")]
match_sheet[,paste(index,"Cross Comp Pct")] <- match_sheet[,paste(index,"Cross Comp")]/match_sheet[,paste(index,"Cross Att")]
match_sheet[,paste(index,"Launch Comp Pct")] <- match_sheet[,paste(index,"Launch Comp")]/match_sheet[,paste(index,"Launch Att")]
match_sheet[,paste(index,"Through Comp Pct")] <- match_sheet[,paste(index,"Through Comp")]/match_sheet[,paste(index,"Through Att")]
match_sheet[,paste(index,"Throw In Comp Pct")] <- match_sheet[,paste(index,"Throw In Comp")]/match_sheet[,paste(index,"Throw In Att")]
match_sheet[,paste(index,"fwPass Comp Pct")] <- match_sheet[,paste(index,"fwPass Comp")]/match_sheet[,paste(index,"fwPass Att")]
match_sheet[,paste(index,"sPass Comp Pct")] <- match_sheet[,paste(index,"sPass Comp")]/match_sheet[,paste(index,"sPass Att")]
match_sheet[,paste(index,"bPass Comp Pct")] <- match_sheet[,paste(index,"bPass Comp")]/match_sheet[,paste(index,"bPass Att")]
match_sheet[,paste(index,"fwopPass Comp Pct")] <- match_sheet[,paste(index,"fwopPass Comp")]/match_sheet[,paste(index,"fwopPass Att")]
match_sheet[,paste(index,"sopPass Comp Pct")] <- match_sheet[,paste(index,"sopPass Comp")]/match_sheet[,paste(index,"sopPass Att")]
match_sheet[,paste(index,"bopPass Comp Pct")] <- match_sheet[,paste(index,"bopPass Comp")]/match_sheet[,paste(index,"bopPass Att")]
match_sheet[,paste(index,"fwPPass Comp Pct")] <- match_sheet[,paste(index,"fwPPass Comp")]/match_sheet[,paste(index,"fwPPass Att")]
match_sheet[,paste(index,"sPPass Comp Pct")] <- match_sheet[,paste(index,"sPPass Comp")]/match_sheet[,paste(index,"sPPass Att")]
match_sheet[,paste(index,"bPPass Comp Pct")] <- match_sheet[,paste(index,"bPPass Comp")]/match_sheet[,paste(index,"bPPass Att")]
match_sheet[,paste(index,"Pct opPass Pressed")] <- match_sheet[,paste(index,"PPass Att")]/match_sheet[,paste(index,"opPass Att")]
match_sheet[,paste(index,c("rFreq Pass Fwd", "rFreq Pass Side", "rFreq Pass Back"))] <- match_sheet[,paste(index,c("fwPass Att","sPass Att","bPass Att"))]/match_sheet[,paste(index,"Pass Att")]
match_sheet[,paste(index,c("rFreq opPass Fwd","rFreq opPass Side","rFreq opPass Back"))] <- match_sheet[,paste(index,c("fwopPass Att","sopPass Att","bopPass Att"))]/match_sheet[,paste(index,"opPass Att")]
Expand Down

0 comments on commit 406a0be

Please sign in to comment.