x <- c(2,3,5,7,8)
mean(x)
sd(x)
boxplot(x)