In jhollist/pellys: Dart Stats for Pelly's Players'

suppressMessages(library(pellys))
options(width = 98)

Pelly's Players Stats (2011-2013)

Cumulative Stats

data301<-readPellysData("301")
dataCricket<-readPellysData("cricket")

cricketTeams<-paste(dataCricket$Name1,dataCricket$Name2,sep=" ")
cricketTeams<-gsub("  "," ",cricketTeams)
cricketTeamsNum<-as.numeric(unlist(lapply(cricketTeams,function(x) sum(strtoi(charToRaw(x),base=16)))))
cricketTeamsName<-cricketTeams[order(cricketTeamsNum)][!duplicated(cricketTeamsNum[order(cricketTeamsNum)])]
cricketTeams<-data.frame(cricketTeamsName,cricketTeamsNum=cricketTeamsNum[order(cricketTeamsNum)][!duplicated(cricketTeamsNum[order(cricketTeamsNum)])])
dataCricket<-data.frame(dataCricket,cricketTeamsNum)
dataCricket<-merge(dataCricket,cricketTeams,by="cricketTeamsNum",all.x=T)

#Player Index
jeffInd<-as.character(dataCricket$Name1)=="Jeff"|as.character(dataCricket$Name2)=="Jeff"
rolandInd<-as.character(dataCricket$Name1)=="Roland"|as.character(dataCricket$Name2)=="Roland"
mikeInd<-as.character(dataCricket$Name1)=="Mike"|as.character(dataCricket$Name2)=="Mike"
kennyInd<-as.character(dataCricket$Name1)=="Kenny"|as.character(dataCricket$Name2)=="Kenny"
edInd<-as.character(dataCricket$Name1)=="Ed"|as.character(dataCricket$Name2)=="Ed"
CharlesInd<-as.character(dataCricket$Name1)=="Charles"|as.character(dataCricket$Name2)=="Charles"
jeffCricket<-winPercCricket(dataCricket[jeffInd,])
rolandCricket<-winPercCricket(dataCricket[rolandInd,])
mikeCricket<-winPercCricket(dataCricket[mikeInd,])
kennyCricket<-winPercCricket(dataCricket[kennyInd,])
edCricket<-winPercCricket(dataCricket[edInd,])
CharlesCricket<-winPercCricket(dataCricket[CharlesInd,])
playerCricket<-rbind(jeffCricket,rolandCricket,mikeCricket,kennyCricket,edCricket,CharlesCricket)
row.names(playerCricket)<-c("Jeff","Roland","Mike","Kenny","Ed","Charles")
playerCricket<-playerCricket[order(playerCricket$percent,decreasing=T),]

teamCricket<-winPercCricket(dataCricket)
row.names(teamCricket)<-"Team"
playerCricket<-rbind(playerCricket,teamCricket)
team301<-winPerc301(data301)
team301Avg<-stats301(data301)
byPairCricket<-by(dataCricket,dataCricket$cricketTeamsName,winPercCricket)
byPerson301<-by(data301,data301$Name,winPerc301)
byPerson301Avg<-by(data301,data301$Name,stats301)
byPairCricket<-do.call("rbind",byPairCricket)
byPerson301<-do.call("rbind",byPerson301)
byPerson301Avg<-do.call("rbind",byPerson301Avg)
byPairCricket<-byPairCricket[order(byPairCricket$percent,decreasing=T),]
byPerson301<-byPerson301[order(byPerson301$percent,decreasing=T),]
row.names(team301)<-"Team"
byPerson301<-rbind(byPerson301,team301)
byPerson301Avg<-byPerson301Avg[order(byPerson301Avg$avgPPD,decreasing=T),]
row.names(team301Avg)<-"Team"
byPerson301Avg<-rbind(byPerson301Avg,team301Avg)