# R-program for Supplementary Exercises 2.2 and 10.7 of IPS7e

golf <- read.csv("h:/vhm/vhm801/Datasets/csv/Chapter 2/ex02_002.csv")
# scatterplot
plot(golf$round1, golf$round2)
# correlations
cor.test (~ round1+round2, data=golf)
cor.test (~ round1+round2, data=golf[golf$player!=8,])
# extra question
cor.test (~ round1+round2, data=golf[golf$player!=7,])
cor.test (~ round1+round2, data=golf[golf$player!=8 & golf$player!=7,])