tests/testthat/helpers/is_exponential.R

is_exponential <- function(mod) {
  (mod$dist == "weibull" && mod$shape == 1)
}

Try the simsurv package in your browser

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

simsurv documentation built on Jan. 16, 2021, 5:27 p.m.