Nothing
addIndicators <- function(data, formula, drop.intercept = TRUE) {
mm <- stats::model.matrix(formula,data)
if (drop.intercept && any(intercept <- "(Intercept)" %in% names(mm)))
mm <- mm[, !intercept, drop = FALSE]
for (name in colnames(mm))
data[[name]] <- mm[, name]
data
}
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.