test_that('test distribution fitting', {
expect_equal({
x <- fitDist(rnorm(10000),
dist = 'norm',
n.points = 40,
norm = 'N2',
constrain = FALSE)
attributes(x) <- NULL
x
},
list(0, 1),
tolerance = .5)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.