Nothing
HRSurv<-function(x, xin, cens, h, kfun)
{
HazardRateEst(xin, x, kfun, h, cens)/KMest(xin, cens, x) #denom
}
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.