#' Convert factor into numeric
#'
#' @param f a factor that contains values that can be converted with as.numeric
f2n <- function(f) as.numeric(levels(f))[f]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.