Nothing
make.formula <- function(string){
formula(paste(string[2],string[1],string[3],sep="",collapse=""))
}
make.null.formula <- function(formula){
string <- sub("\\*","+",formula)
make.formula(string)
}
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.