R/print.summary.mult.ev.data.sim.R

In survsim: Simulation of Simple and Complex Survival Data

print.summary.mult.ev.data.sim <-
function(x, ...)
{
    attr(x,"class") <- "data.frame"
    nn <- c("", "Number of subjects at risk", "Number of events", "Total time of follow-up",
            "Time of follow-up (median)", "Density of incidence")
    for (i in 2:length(x))
    {
      cat("\n")
      cat(nn[i], "\n")
      cat("----------------------------\n ")
      print(cbind(x[1],x[i]), na.print="", row.names=FALSE,quote=FALSE)
      cat("\n")
    }
}