#' Averaging Function
#'
#' Gives average
#'
#' @param x vector
#'
#' @return average of vector
#' @export
#'
#' @examples average(c(1,2,3))
average<-function(x){mean(x)}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.