print.survfitJM <-
function (x, ...) {
if (!is.null(x$success.rate)) {
cat("\nPrediction of Conditional Probabilities of Event\n\tbased on",
nrow(x$success.rate), "Monte Carlo samples\n\n")
} else {
cat("\nPrediction of Conditional Probabilities for Events\n\n")
}
f <- function (d, t) {
dd <- d[1, , drop = FALSE]
dd[1, ] <- c(as.vector(t), rep(1, ncol(dd) - 1))
round(rbind(dd, d), 4)
}
print(mapply(f, x$summaries, x$last.time, SIMPLIFY = FALSE))
invisible(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.