R/se.R

Defines functions se

Documented in se

se <-
function(x,y=NULL) {
  if (is.null(y)) {
    result <- sd(x,na.rm=TRUE)/sqrt(length(na.omit(x)))
  } else {
    p <- x/y
    result <- sqrt((p*(1-p))/y)
  }
  return(result)
}

Try the RVAideMemoire package in your browser

Any scripts or data that you put into this service are public.

RVAideMemoire documentation built on Aug. 21, 2017, 5:07 p.m.