tests/testthat/test-tlast-rxS.R

rxTest({
  test_that("rxS for tlast() shouldn't error", {
    expect_error(rxS("d/dt(depot)=exp(log(bio*podo())+log(ktr)+n*log(ktr*tad(depot))-ktr*tad(depot)-lgamma(n+1))-ka*depot"), NA)
    expect_error(rxS("d/dt(depot)=exp(log(bio*podo())+log(ktr)+n*log(ktr*tad)-ktr*tad-lgamma(n+1))-ka*depot"), NA)
  })
})

Try the rxode2 package in your browser

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

rxode2 documentation built on Oct. 30, 2024, 9:06 a.m.