Nothing
SimTestDiff.formula <-
function(formula, ...) {
resp <- all.vars(formula[[2]])
grp <- all.vars(formula[[3]])
SimTestDiff(grp=grp, resp=if (length(resp)==0) NULL else resp, ...)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.