Nothing
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)
}
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.