TABLE OF CONTENTS

S3Methods/print.summary.splinesurv [ Functions ]

NAME

    print.summary.splinesurv --- print summary.splinesurv object

FUNCTION

Pretty-print the output of summary.splinesurv

SYNOPSIS

3677 print.summary.splinesurv <- function(x, ...)

INPUTS

    x      an object of class summary.splinesurv
    ...    additional parameters passed to formatC

SOURCE

3680 { 
3681     cat("Call: \n")
3682     print(x$call)
3683     # print basic info
3684     cat("\nIterations: ", x$iter, " (", x$burnin, " discarded as burn - in)\n", sep = "")
3685     printpars <- paste(names(x$dots), unlist(x$dots), sep = " = ", collapse = ", ")
3686     if(nchar(printpars)) printpars <- paste(", ", printpars)
3687     # print regression coefficients and quantiles
3688     cat("\nRegression parameter posterior:\n")
3689     eval(parse(text = paste("print(cbind(x$coef, x$quantiles.coef)", printpars, ")")))
3690     # print frailty variances
3691     cat("\nFrailty variance:\n")
3692     fvarout <- rbind(cbind(x$frailty$fvar, x$quantiles.fvar[1, ,drop = F]),
3693         c(x$frailty$fvar2, x$quantiles.fvar2))
3694     rownames(fvarout) <- c("fvar", "fvar2"); colnames(fvarout)[1] <- "mean"
3695     eval(parse(text = paste("print(fvarout", printpars, ")")))
3696     # print summaries of each of the curves
3697     cat("\nBaseline hazard:")
3698     printcurvesummary(x$hazard, x$posterior.mean$hazard.weight,
3699         x$posterior.mean$hazard.param.par)
3700     cat("\nFrailty density:")
3701     printcurvesummary(x$frailty, x$posterior.mean$frailty.weight,
3702         x$posterior.mean$frailty.param.par)
3703     invisible(x)
3704 }