Ian*_*ows 144
标准误差只是标准偏差除以样本大小的平方根.所以你可以轻松地创建自己的功能:
> std <- function(x) sd(x)/sqrt(length(x))
> std(c(1,2,3,4))
[1] 0.6454972
Run Code Online (Sandbox Code Playgroud)
Joh*_*ohn 84
使用var可能更有效...因为你实际上在你的代码中sqrt两次,一次得到sd(sd的代码在r中并且通过输入"sd"显示)...
se <- function(x) sqrt(var(x)/length(x))
Run Code Online (Sandbox Code Playgroud)
ara*_*ame 57
上面的约翰答案的一个版本删除了讨厌的NA:
stderr <- function(x, na.rm=FALSE) {
if (na.rm) x <- na.omit(x)
sqrt(var(x)/length(x))
}
Run Code Online (Sandbox Code Playgroud)
| 归档时间: |
|
| 查看次数: |
296983 次 |
| 最近记录: |