Nothing
library(interval)
# Check some of the calls that might be made and make sure the error messages
# are appropriate
set.seed(1)
# Some calls that work for right censored data will not work here
test<-data.frame(aml,w=sample(c(0,1),23,replace=TRUE))
try(ictest(Surv(time, status) ~ x+strata(w), data=test))
try(ictest(Surv(time, status) ~ x+offset(w), data=test))
try(ictest(Surv(time, status) ~ x, rho=0, data=test))
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.