tests/testthat/test-gamlss.R

In drsimonj/twidlr: data.frame-first formula-second modelling functions

context("gamlss")


test_that("gamlss", {
  d <- datasets::mtcars

  twidlr_fit <- twidlr::gamlss(d, vs ~ hp + wt, family = "BI", trace = FALSE)
  origin_fit <- gamlss::gamlss(vs ~ hp + wt, data = d, family = "BI", trace = FALSE)

  expect_equal(coef(twidlr_fit), coef(origin_fit))
  expect_error(predict(twidlr_fit))
  expect_equal(predict(twidlr_fit, data = d), gamlss:::predict.gamlss(origin_fit, newdata = d, data = d))
})