if (FALSE) {
# Get all matches between India and all oppostions
matches <-getAllMatchesAllOpposition("India",dir="../data/",save=TRUE)
# You could also load directly from the saved file
#load("allMatchesAllOpposition-India.RData")
# The call below gives the best bowlers against India
teamBowlersVsBatsmenAllOppnAllMatchesRept(matches,theTeam="India",rank=0)
# The call with rank=1 gives the performace of the bowler with rank
teamBowlersVsBatsmenAllOppnAllMatchesRept(matches,theTeam="India",rank=1)
# The call below gives the overall performance of India bowlers against South Africa
teamBatsmenVsBowlersAllOppnAllMatchesRept(matches,"South Africa",rank=0)
# The call below gives the performance of best Indias bowlers against Australia
teamBowlersVsBatsmenAllOppnAllMatchesRept(matches,"Australia",rank=1)
}
Run the code above in your browser using DataLab