#' A test function
#'
#' And this just a brief test documentation.
#'
#' @export
#' @param samples number of samples
normalMean <- function(samples=10){
data <- rnorm(samples)
message = paste("mean is: ", mean(data))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.