Nothing
kaplan.meier.location <-
function(fit)
{
xloc=fit$time[fit$n.event>0]
yloc=1-fit$surv[fit$n.event>0]
nn=length(yloc)
yloc=(yloc+c(0,yloc[1:(nn-1)]))/2
return(cbind(xloc,yloc))
}
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.