R/print.predLongi.R

Defines functions print.predLongi

Documented in print.predLongi

##' @export
print.predLongi <- function(x, digits = 3, ...)
{
        if(!inherits(x, "predLongi")){
                stop("The object x must be a class predLongi.")
        }else{
                if (!is.null(cl <- x$call)){
                        cat("Call:\n")
                        dput(cl)
                        cat("\n")
                }

                        cat("\n")
                        cat("--------- Prediction given the exact history of longitudinal outcome ---------\n")
                        cat("\n")
                        print(x$pred,row.names=F,digits=digits)


        }
}

Try the frailtypack package in your browser

Any scripts or data that you put into this service are public.

frailtypack documentation built on Nov. 25, 2023, 9:06 a.m.