第二次上机作业 大连理工大学

某百货公司6月份各天的销售数据如下：【数据】

x = c(257,276,301,252,238,310,246,236,265,278,271,292,261,281,301,274,267,280,291,258,272,284,268,303,273,263,301,249,269,295)

计算该百货公司日销售额的中位数、四分位数和众数

median(x)# 中位数
quantile(x) # 四分位数

getmode <- function(v) {
   uniqv <- unique(v)
   uniqv[which.max(tabulate(match(v, uniqv)))]
}

getmode(x)# 众数

计算该百货公司日销售额的平均数和标准差

mean(x) # 平均数 
sd(x) #标准差 

计算偏度系数和峰态系数

mean(((x-mean(x))/sd(x))^3) #计算偏度
mean(((x-mean(x))/sd(x))^4)-3 # 峰态系数