## Not run:
# birdwatchers<- avisContributorsSummary()
# par (mfrow =c(2,2))
# plot (birdwatchers[,2],birdwatchers[,3], xlab=colnames (birdwatchers)[2],
# ylab=colnames (birdwatchers)[3], pch=19)
# plot (birdwatchers[,2],birdwatchers[,4], xlab=colnames (birdwatchers)[2],
# ylab=colnames (birdwatchers)[4], pch=19)
# plot (birdwatchers[,2],birdwatchers[,5], xlab=colnames (birdwatchers)[2],
# ylab=colnames (birdwatchers)[5], pch=19)
# plot (birdwatchers[,2],birdwatchers[,6], xlab=colnames (birdwatchers)[2],
# ylab=colnames (birdwatchers)[6], pch=19)
# ## End(Not run)
Run the code above in your browser using DataLab