## Not run:
# Get all matches between India and all oppostions
matches <-getAllMatchesAllOpposition("India",dir="../data/",save=TRUE)
#Get the details of the bowler with the specified rank as a dataframe
df <- teamBowlersVsBatsmenAllOppnAllMatchesRept(matches,theTeam="India",rank=1)
#Plot this
teamBowlersVsBatsmenAllOppnAllMatchesPlot(df,"India","India")
df <- teamBowlersVsBatsmenAllOppnAllMatchesRept(matches,theTeam="England",rank=1)
teamBowlersVsBatsmenAllOppnAllMatchesPlot(df,"India","England")
## End(Not run)