s <- c(154,154,186,243,159,174,183,163,192,181)s_mean <- mean(s)s_s <- sd(s)s_n <- length(s)mu <- 160 s_means_ss_nmu
Standard input is empty
[1] 178.9 [1] 26.38371 [1] 10 [1] 160
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!