R/Print.Summary.R

In TestSurvRec: Statistical tests to compare two survival curves with recurrent events

Defines functions Print.Summary

Documented in Print.Summary

Print.Summary <-
function (XX) 
{
    XL <- XX
    fit1 <- survfitr(Survr(id, time, event) ~ as.factor(group), 
        data = XL, type = "pe")
    fit2 <- survfitr(Survr(id, time, event) ~ 1, data = XL, type = "pe")
    Plot.Surv.Rec(XL)
    Dif.Surv.Rec(XL, "all")
}

Try the TestSurvRec package in your browser