R的数据描述

#5.2.2
data=read.csv("D:/RStudio/workSpace2018/data/中国人寿股价.csv")
attach(data)
price=Clsprc[!is.na(Clsprc)]  #获得价格向量，同时去掉缺失数据
#均值
mean(price)
#中位数
median(price)
#排序后出现最多的数字，众数
which.max(table(price))
#分位数
quantile(price)
#把数据分成了5分的间隔数字，和分位数一致
fivenum(price)
#最小最大的数字
min(price);max(price)
#四分位数和最大最小的五分位和均值
summary(price)

#5.3.2 离散趋势
#离差
m=range(price);m[2]-m[1]
#一样的
max(price)-min(price)
#四分位差
q=fivenum(price);q[4]-q[2]
#方差标准差
var(price);sd(price)
#标准差
sqrt((sum(price^2)-(sum(price))^2/length(price))/(length(price)-1))
#离差：表示测量值和均值的比较，此函数是中位数的绝对偏差
mad(price)