fork download
  1. a <- c(28,21,26,16,18,13,15,22,19,22)
  2. sd(a)
  3. sd(a)/length(a)
  4. t.test(a, mu=23)
Success #stdin #stdout 0.3s 22832KB
stdin
Standard input is empty
stdout
[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