一、编写函数 1、 编写变异系数、极差、平均差、异众比率的函数；

一、编写函数

1、 编写变异系数、极差、平均差、异众比率的函数；

# 变异系数
cv <- function(x)  sd(x)/mean(x)
# 极差
range <- function(x) max(x) - min(x)
#计算平均值的标准误差
std_error <- function(x) sd(x) / sqrt(length(x))
# 异众比率: 非众数的次数与全部变量值总次数的比率 
odd <- function(x)  (length(x) - max(table(x))  ) / length(x)

2、 使用相关命令或函数，对下述数值向量给出集中趋势和离散趋势描述。
x <- c(1, 2, 3, 4, 5, -3, -4, 6, 9, 2, 3, 4, -5, -7)

x <- c(1, 2, 3, 4, 5, -3, -4, 6, 9, 2, 3, 4, -5, -7)
cv(x)
range(x)
std_error(x)
odd(x)

异众比率是0.8571429，接近1， 说明数据不集中
变异系数是3.198557，变异系数大，说明变异(偏离)程度越大,

二、综合应用：

1、 读入 cgss2003.dta 数据；、