tests/testthat/helpers/is_weibull.R

is_weibull <- function(mod) {
  (mod$dist == "weibull" && mod$shape == 0)
}

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.