Nothing
CreateFormula <-
function(data, i, covariable=NULL) {
if(length(covariable)==0) { fmla <- as.formula(data[,1] ~ data[,i]); return(fmla)
} else {
covname <- colnames(covariable)
fmla <- as.formula(paste("data[,1] ~ data[,i] + ", paste(covname, collapse= "+")))
}
return(fmla)
}
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.