Nothing
library(FSelectorRcpp)
library(microbenchmark)
x <- round(rnorm(10000), 3)
microbenchmark(length(unique(x)), fs_count_levels(x))
x <- as.character(x)
microbenchmark(length(unique(x)), fs_count_levels(x))
microbenchmark(length(levels(factor(x))), fs_count_levels(x))
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.