a <- c(28,21,26,16,18,13,15,22,19,22) sd(a) sd(a)/length(a) t.test(a, mu=23)
Standard input is empty
[1] 4.760952
[1] 0.4760952
One Sample t-test
data: a
t = -1.9926, df = 9, p-value = 0.07747
alternative hypothesis: true mean is not equal to 23
95 percent confidence interval:
16.59422 23.40578
sample estimates:
mean of x
20