Nothing
NAtoCategory <- function(fact, label = "missing"){
if (sum(is.na(fact)) > 0){
fact <- as.factor(fact)
leve <- levels(fact)
leve <- leve[leve != ""]
res <- rep(NA, length(fact))
for (i in 1:length(leve)){res[fact == leve[i]] <- i}
res[is.na(res) == TRUE] <- length(leve) + 1
res <- factor(res, levels = 1:(length(leve) + 1), labels = c(leve,
label))} else {res <- fact}
return(res)
}
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.