Nothing
get.risk.coxph <-
function(mdl, t0) {
bash = basehaz(mdl)
lambda0 = approx(bash$time, bash$hazard, t0)$y
risk = 1 - exp( - lambda0 * exp( mdl$linear.predictors ) )
return(risk)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.