R/print.jml.R

Defines functions print.jml

print.jml <-
function(x, digits = 2, ...){
   cat("\nCall:\n", deparse(x$call), "\n\n", sep = "")
   cat("Coefficients:\n")
		print.default(format(coef(x), digits = digits), print.gap=2,
		quote = FALSE)
   invisible(x)
   }
wasabi1989/MiscPsycho documentation built on Jan. 19, 2020, 12:29 a.m.