if (FALSE) {
# Get all matches between India and Australia
matches <- getAllMatchesBetweenTeams("Australia","India",dir="../data")
# Plot the performance of top 5 Indian bowlers against Australia
teamBowlersVsBatsmanOppnAllMatches(matches,'India',"Australia",top=5)
# Plot the performance of top 3 Australian bowlers against India
teamBowlersVsBatsmenOppnAllMatches(matches,"Australia","India",top=3)
# Get the top 5 bowlers of Australia. Do not plot but get as a dataframe
teamBowlersVsBatsmenOppnAllMatches(matches,"Australia","India",plot=FALSE)
}
Run the code above in your browser using DataLab