Nothing
## The following gave an error for versions<1.2.7
## there was a problem if all the censoring happended
## at times where there was also failures
library(bpcp)
x<-c(1,1,2,3)
status<-c(0,1,1,1)
plot(c(0,5),c(0,1),type="n")
## also the default color for the survival line in
## lines.kmciLR was white...gray(1),
## it should be black...gray(0)
lines(bpcp(x,status),linetype="surv")
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.