tests/testthat/test-bioassay.R

In yuekai/UMichBDA: Data and helper functions for the Bayesian Data Analysis at the University of Michigan

context("bioassay")

test_that(desc="bioassaylp()",{
  data("bioassay")
  expect_equivalent(round(bioassaylp(alpha = 3,
                               beta = 9,
                               x = bioassay$x,
                               y = bioassay$y,
                               n = bioassay$n), 5),
                    -9.49154)
})