tests/testthat/test-maxlogL_DEoptim.R

In Jaimemosg/EstimationTools: Maximum Likelihood Estimation for Probability Functions from Data Sets

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) )
})