Nothing
test_that("running 'DEoptim' in maxlogL", {
mu <- 1.26; sigma <- 0.12
n <- 1000
set.seed(258)
library(gamlss.dist)
v <- rZIP(n, mu=mu, sigma=sigma)
fit <- maxlogL(v, dist = 'dZIP', optimizer = 'DEoptim',
lower = c(0,0), upper = c(4,1))
expect_snapshot_output( summary(fit) )
})
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.