Nothing
obtain.design <- function(data, formula = ~.) {
mf <- model.frame(formula, data = data, na.action = na.pass)
model.matrix(formula, data = mf)
}
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.