x=3.90 #蠏 s=0.14 #譴ク谿 n=25 #豢豢 t=(x-4)/(s/sqrt(n)) pt(t,df=n-1) #p-value
[1] 0.0007717064
a <- c(154,154,186,243,159,174,183,163,192,181) x <- mean(a) s <- sd(a) n <- length(a) t=(x-160)/(s/sqrt(n)) pt(t,df=n-1)
[1] 0.9751282