R/simexitinner.R

Defines functions simexitinner

simexitinner <- function(u, entry, all.bhr, eta.ij, x.i, max.time, pme){
  suppressWarnings(new.exit <- uniroot(unirootf, interval = c(entry, max.time * 1e4),
                      u = u, entry = entry, all.bhr = all.bhr, eta.ij = eta.ij, x.i = x.i, pme = pme)$root)
  return(list(new.exit = new.exit, u = u))}

Try the simMSM package in your browser

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

simMSM documentation built on May 6, 2022, 9:05 a.m.