tests/testthat/test-fitprobit.R

test_that("fitprobit() returns the right kind of object", {
  toxdat <- data.frame(
    dose=c(0.05, 0.0625, 0.125, 0.25, 0.5, 1),
    ntot=rep(8, 6),
    nfx = c(0, 1, 4, 4, 6, 8))
  fit <- fitprobit(toxdat)
  expect_that(fit, is_a("glm"))
})

Try the LW1949 package in your browser

Any scripts or data that you put into this service are public.

LW1949 documentation built on May 2, 2019, 6:11 a.m.