x =c(1,2, 6,4)
x
mean(x)
library(MASS)
data(birthwt)
birthwt