if (FALSE) {
# Get all matches for team India against all oppositions in all matches
matches <-getAllMatchesAllOpposition("India",dir="../data/",save=TRUE)
# Also load directly from file
#load("allMatchesAllOpposition-India.RData")
d <- teamBatsmanVsBowlersAllOppnAllMatchesRept(matches,"India",rank=1,dispRows=50)
teamBatsmenVsBowlersAllOppnAllMatchesPlot(d)
e <- teamBatsmenVsBowlersAllOppnAllMatchesPlot(d,plot=FALSE)
}
Run the code above in your browser using DataLab