#' Standard Error
#'
#' Calculate the standard error of the mean.
#'
#' @param x a numeric vector.
#'
#' @return Standard error as a number.
#'
#' @export
se <- function(x)
{
s <- sd(x)
n <- length(x)
s / sqrt(n)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.