if (FALSE) {
# Get all matches between India and Australia
matches <- getAllMatchesBetweenTeams("India","Australia",dir="../data",save=TRUE)
# Compute the scorecard of India in matches with australia
teamBattingScorecardOppnAllMatches(matches,main="India",opposition="Australia")
#Get all matches between Australia and India
matches <- getAllMatchesBetweenTeams("Australia","India",dir="../data")
#Compute the batting scorecard of Australia
teamBattingScorecardOppnAllMatches(matches,"Australia","India")
}
Run the code above in your browser using DataLab