#' Standard error
#'
#' @param data
#' Numerical vector of data.
#' @import stats
#' @export
#' @return
#' A double vector is returned with a standard error of the input (given sample).
#' @examples
#' library(smplot2)
#' sm_stdErr(rnorm(10, 0, 1))
#'
sm_stdErr <- function(data) {
sd(data) / sqrt(length(data))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.