values <- c(4,7,11,14) sqrt(mean((values-mean(values))^2))