tests/testthat/test-glm.R

test_that("glm", {
  expect_identical(sumer(glm(low ~ age + lwt + factor(race) + smoke + ptl + ht + ui  + ftv, binomial, MASS::birthwt)), glm_bwt)
})
deepfriar/wickr documentation built on Dec. 19, 2021, 10:09 p.m.