R/se.jack.r

In asbio: A Collection of Statistical Tools for Biologists

Defines functions se.jack1 se.jack

Documented in se.jack se.jack1

se.jack <- function(x){
n <- length(x)
x <- as.matrix(x)
sqrt(((n - 1)/n) * sum((x - mean(x))^2))
}

se.jack1 <- function(x){
n <- length(x)
x <- as.matrix(x)
sqrt(sum((x - mean(x))^2)/(n*(n - 1)))
}

Try the asbio package in your browser