3.1 随机抽取 50 个网络购物的消费者,调查他们某月的网购金额,结果如下表所示

3.1 随机抽取 50 个网络购物的消费者,调查他们某月的网购金额,结果如下表所示

data <- read.csv("ex3_1.csv")$网购金额
data

(1) 计算平均数、标准差、极差和四分位差.

# 计算平均数
mean(data)

# 计算标准差
sd(data)

# 计算极差
range(data)[2] - range(data)[1]

# 计算四分位差
IQR(data)

(2)计算 10%,25%,50%,75%,90% 的分位数

# 计算 10%, 25%, 50%, 75%, 90% 的分位数
quantile(data, probs = c(0.1, 0.25, 0.5, 0.75, 0.9))

(3) 计算标准分数,检测数据的离群点.

# 计算每个观察值的标准分数
z_scores <- (data - mean(data)) / sd(data)
z_scores

(4) 计算偏度系数和峰度系数,分析网购金额的分布特点

# 加载 moments 包
library(moments)


# 计算偏度系数
skewness(data