R/print.PE.r

Defines functions print.PE

Documented in print.PE

print.PE <- function(x, ...){

es <- format(x$res, digits = 3, trim=TRUE)

cat("\nAverage partial effect with ",(1-x$prob.lev)*100,"% interval:\n\n",sep="")

cat(es[2]," (",es[1],",",es[3],")\n\n",sep="")

invisible(x)

}
KironmoyDas/KD-STAT0035-GMupdate documentation built on Feb. 15, 2021, 12:17 a.m.