Nothing
#' @title Standard error and confidence interval
#'
#' @description
#' These wrapper functions compute the standard error (SE) or the confidence
#' interval (CI) of the values in \code{x}. If \code{na.rm} is \code{TRUE},
#' missing values are removed before the computation proceeds.
#'
#' @param x a numeric vector or an \R object which is coercible to one by
#' \code{as.vector(x, "numeric")}.
#' @param level the confidence level required.
#' @param na.rm logical. Should missing values be removed?
#'
#' @seealso
#' \code{\link[stats]{sd}()} for the standard deviation.
#'
#' @author
#' Zacharias Steinmetz
#'
#' @examples
#' se(1:5)
#' CI(1:5)
#'
#' @importFrom stats qnorm sd
#' @export
se <- function(x, na.rm = FALSE) {
if(length(x) == 1) warning("Single value supplied; NA introduced", call. = F)
sd(x, na.rm = na.rm) / sqrt(length(x))
}
#' @rdname se
#'
#' @export
CI <- function(x, level = 0.95, na.rm = FALSE) {
qnorm(1 - ((1 - level) / 2)) * se(x, na.rm = na.rm)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.