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

某百货公司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)
1

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

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

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

getmode(x)# 众数
1
2
3
4
5
6
7
8
9

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

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

计算偏度系数和峰态系数

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

以上述描述统计量为基础，对数据的分布特征进行分析

偏度<0,说明是左偏分布， 峰度值<3,说明是 瘦尾

一项调查数据表明，有不少顾客对当地电信局提供的某种服务表示不满意，不满意率达到20%。若随机询问10个顾客，请问

全部表示满意的概率是多少