\[xbar=x/n\]
x<-c(11, 12,11,13,14,15,17,11,11) summary(x)
## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 11.00 11.00 12.00 12.78 14.00 17.00
boxplot(x)
plot(density(x))
hist(x)