R/se.R

In inecolr: Modeling and Plotting for Ecologist

Defines functions se

Documented in se

#standard error
se <- function(x) {
  if(is.matrix(x)){
    se <- sqrt(diag(var(x, na.rm = TRUE))/colSums(!is.na(x)| !is.infinite(x)))
  } else {se <- sqrt(var(x, na.rm = TRUE)/sum(!is.na(x) | !is.infinite(x)))}
  se
}

Try the inecolr package in your browser