if (FALSE) {
# Get athe match between England and Pakistan
a <- getMatchDetails("England","Pakistan","2006-09-05",dir="../temp")
batsmenPartnershipMatch(a,"Pakistan","England")
batsmenPartnershipMatch(a,"England","Pakistan", plot=TRUE)
m <-batsmenPartnershipMatch(a,"Pakistan","England", plot=FALSE)
}
Run the code above in your browser using DataLab