一、编写函数
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 数据;、