if (FALSE) {
# Get all matches between India and all oppostions
matches <-getAllMatchesAllOpposition("India",dir="../data/",save=TRUE)
#Get the details of the bowler with the specified rank as a dataframe
df <- teamBowlersVsBatsmenAllOppnAllMatchesRept(matches,theTeam="India",rank=1)
#Plot this
teamBowlersVsBatsmenAllOppnAllMatchesPlot(df,"India","India")
df <- teamBowlersVsBatsmenAllOppnAllMatchesRept(matches,theTeam="England",rank=1)
teamBowlersVsBatsmenAllOppnAllMatchesPlot(df,"India","England")
}
Run the code above in your browser using DataLab