source("R/suTex.R")
df <- data.frame(var1 = rnorm(20), var2 = runif(20))
vars <- list(var1 = "Variable 1", var2 = "Variable 2")
suTex(vars, data = df, stats = c("mean", "sd", "min", "max", "nObs"))
suTex(vars, file = "examples/suTex-example.tex", data = df)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.