library(classInt)
# issue 44
set.seed(101)
large_n <- 1000
x <- 1:(large_n + 1)
expect_warning(classInt::classIntervals(x, n = 10, style = "fisher",
largeN = large_n, samp_prop = 0.05))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.