Nothing
dummy <- function(f, name = "f"){
n <- length(f)
t <- table(f)
nlevels <- length(t)
levels <- as.numeric(names(t))
dum <- matrix(NA, ncol = nlevels - 1, nrow = n)
for (l in 2:nlevels){dum[, l - 1] <- as.numeric(f == levels[l])}
dimnames(dum) <- list(NULL, paste(name, ".", levels[-1], sep = ""))
return(dum)
}
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.