if (FALSE) {
#Get all matches between India and other opposition
matches <-getAllMatchesAllOpposition("India",dir="../data/",save=TRUE)
# Or load directly from saved file
# load("allMatchesAllOpposition-India.RData")
# Top opposition bowlers performances against India
teamBowlingScorecardAllOppnAllMatches(matches,"India")
#Top Indian bowlers against respective opposition
teamBowlingScorecardAllOppnAllMatches(matches,'Australia')
teamBowlingScorecardAllOppnAllMatches(matches,'South Africa')
teamBowlingScorecardAllOppnAllMatches(matches,'England')
}
Run the code above in your browser using DataLab