Nothing
library(classInt)
# issue #1
set.seed(101)
data_censored <- c(rep(0,10), rnorm(100, mean=20,sd=1),rep(26,10))
expect_error(classInt::classIntervals(data_censored, style = "quantile",
probs = seq(0, 1, 0.25)))
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.