Nothing
splitting.stat.MST4 <-
function(surv, id, z) {
score <- NA
options(warn = -1)
fit <- try(survdiff(surv ~ z), silent = TRUE)
options(warn = 0)
if (!inherits(fit, "try-error")) {
score <- fit$chisq
if (length(score) == 0) { score <- NA }
}
score
}
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.