tests/testthat/test-fitexp5.R
In USEPA/CompTox-ToxCast-tcplFit2: A Concentration-Response Modeling Utility
test_that("fitexp5 works", {
ex_conc <- c(0.01, 0.1, 0.5, 1, 3, 10, 30)
resp <- exp5(ps = c(tp = 793,ga = 6.25,p = 1.25,er = 0.1),x = ex_conc)
expect_equal(fitexp5(ex_conc, resp)$tp, 793)
expect_equal(fitexp5(ex_conc, resp)$ga, 6.25)
expect_equal(fitexp5(ex_conc, resp)$p, 1.25)
})
USEPA/CompTox-ToxCast-tcplFit2 documentation built on Dec. 5, 2024, 8:23 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("fitexp5 works", {
ex_conc <- c(0.01, 0.1, 0.5, 1, 3, 10, 30)
resp <- exp5(ps = c(tp = 793,ga = 6.25,p = 1.25,er = 0.1),x = ex_conc)
expect_equal(fitexp5(ex_conc, resp)$tp, 793)
expect_equal(fitexp5(ex_conc, resp)$ga, 6.25)
expect_equal(fitexp5(ex_conc, resp)$p, 1.25)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.