x1 <- c(165, 170, 155, 152, 159,163, 169, 171, 164, 151)

mean(x1)

sd(x1)

var(x1)

length(x1)

se <- sd(x1)/sqrt(length(x1))
se

#平均値の95％信頼区間を求めるには、上の mean  se と、t値（df=9, 5%両側で表などから）=2.262を使い、公式を使う。　テキストp.181参照

​

#t.test()を使うこともできる

t.test(x1)
 

​

x2 <- read.csv("Table231.csv")
x2
attach(x2)
t.test(x2)