y <- read.csv("Table411b.csv")
y
attach(y)

 

#散布図

plot(speaking,reading)

​#枠を消したいなら（L型）

plot(speaking,reading,bty = "l")

 

#相関係数

cor(speaking,reading)

​

#検定、信頼区間まで求めると（第６章）

cor.test(speaking,reading)