R/print.MY.R

Defines functions print.MY

Documented in print.MY

print.MY <-
function(x, ...)
 {
  if (!inherits(x, "MY"))
     stop("argument 'x' must be of class 'MY'")
  cat("\n") 
  if (x$ypow == 1 & x$xpow == 1)
    cat("Estimated adjusted ", x$ymeasure, " of the response variable:\n\n", sep = "")
    else
    cat("Estimated adjusted ", x$ymeasure, " of the response variable in the ", x$space, " space:\n\n", sep = "")
  print(x$M, ...)
  cat("\n")
 }

Try the tlm package in your browser

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

tlm documentation built on May 2, 2019, 2:11 p.m.