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")
teamBowlingWicketKindAllOppnAllMatches(matches,t1="India",t2="All")
m <-teamBowlingWicketKindAllOppnAllMatches(matches,t1="India",t2="All",plot=FALSE)
teamBowlingWicketKindAllOppnAllMatches(matches,t1="India",t2="Bangladesh")
teamBowlingWicketKindAllOppnAllMatches(matches,t1="India",t2="South Africa")
}
Run the code above in your browser using DataLab