#' @title Average
#'
#' @description Does some complex math to get an average value
#'
#' @param vector A numeric vector
#'
#' @return A numeric value
#'
#' @examples
#' average(rnorm(10))
#'
#' @author Thomas Guillerme
#' @export
## A really complex function
average <- function(vector) {
## Checking the vector
check.vector(vector)
## Calculating the average
return(sum(vector)/length(vector))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.