(x, na.rm = T),
Range = max(x,na.rm = T) - min(x,na.rm = T),
Mean = mean(x, na.rm = T),...SD = sd(x, na.rm = T),
CV = sd(x, na.rm = T)/mean(x, na.rm = T) * 100)
}
sm <- as.data.frame...可以在func函数中增加代码:
Total_num = length(x),
Miss_num = length(x[is.na(x)])
这样,就会在汇总统计时,将总个数和缺失值的个数打印出来,结果更直观...(x)]),
Max = max(x, na.rm = T),
Min = min(x, na.rm = T),
Range = max(x,na.rm = T)...- min(x,na.rm = T),
Mean = mean(x, na.rm = T),
SD = sd(x, na.rm = T),
CV = sd(x,