R/se.r

In adamlilith/statisfactory: Statistical and Geometrical Tools

#' Standard error
#'
#' Calculate the standard error of the mean.
#' @param x	Numeric vector.
#' @param na.rm Logical. If TRUE then remove \code{NA}s before calculation.
#' @return Numeric.
#' @seealso \code{link[stats]{sd}}
#' @examples
#'
#' se(1:100)
#'
#' @export

se <- compiler::cmpfun(function(
	x,
	na.rm = FALSE
) {
	stats::sd(x, na.rm=na.rm) / sqrt(length(ifelse(na.rm, x, x[!is.na(x)])))
})