> x<-c(16,13,9,20,12,17,16,17,17,5,18,19,16)
> t.test(x,mu=17)
One Sample t-test
data: x
t = -1.7076, df = 12, p-value = 0.1134
alternative hypothesis: true mean is not equal to 17
95 percent confidence interval:
12.44809 17.55191
sample estimates:
mean of x
15
> x<-c(16,13,9,20,12,17,16,17,17,5,18,19,16)
> t.test(x,mu=17)
One Sample t-test
data: x
t = -1.7076, df = 12, p-value = 0.1134
alternative hypothesis: true mean is not equal to 17
95 percent confidence interval:
12.44809 17.55191
sample estimates:
mean of x
15