R/get.risk.survreg.R

Defines functions get.risk.survreg

Documented in get.risk.survreg

get.risk.survreg <-
function(mdl, t0) {
  dens = survreg.distributions[[survreg.distributions[[mdl$dist]]$dist]]$density
  risk = dens( (-mdl$linear.predictors + log(t0) ) / mdl$scale)[,1]
  
  return(risk)
}

Try the nricens package in your browser

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

nricens documentation built on May 2, 2019, 6:01 a.m.