#' Title
#'
#' @param x
#' @param ...
#'
#' @return
#' @export
#'
#' @examples
print.crowdsimulation <- function(x, ...){
cat("\n Simulation")
cat("\n HTest: \n")
print(x$Htest)
cat("\n Var: \n")
print(x$var)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.