Nothing
attachPresAbs <- function(v){
v <- as.numeric(v)
res <- factor(v, levels = 0:1, labels = c("absent", "present"))
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.