3.1
load("C:/统计学/《统计学—基于R》(第3版)—例题和习题数据(公开资源)/exercise/ch3/exercise3_1.RData")
exercise3_1
#平均数
mean(exercise3_1$网购金额)
#标准差
sd(exercise3_1$网购金额)
#极差
R<-diff(range(exercise3_1$网购金额));R
#四分位差
quantile(exercise3_1$网购金额,probs=c(0.25,0.5,0.75),type=6)
#百分位数
quantile(exercise3_1$网购金额,probs=c(0.1,0.25,0.5,0.75,0.9),type=6)
#标准分数
as.vector(round(scale(exercise3_1$网购金额),4)) #有数据离群点是1,10,19,28,37,46
#偏度系数
install.packages("agricolae")
library(agricolae)
skewness