Nothing
no.intercept <- function(mm)
{
if(attributes(mm)$assign[1] == 0) {
remove.int <- which(attributes(mm)$assign == 0)
mm <- mm[, -remove.int, drop = FALSE]
attributes(mm) <- list(dim = dim(mm), dimnames = dimnames(mm),
assign = attributes(mm)$assign[-remove.int])
} else return(mm)
mm
}
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.