Nothing
library(parfm)
data(kidney)
kidney$sex <- kidney$sex - 1
plot(select.parfm(Surv(time,status) ~ sex + age,
dist=c("exponential", "gompertz", "lognormal"),
frailty=c("gamma", "possta"),
cluster="id", data=kidney))
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.