R/print.gpava.R

Defines functions `print.gpava`

`print.gpava` <-
function(x, ...)
{
  #x... object of class pava
  cat("\nCall:\n")
  print(x$call)
  cat("\nPAVA results:\n")
  res.table <- t(data.frame(x$z, round(x$x,2)))
  rownames(res.table) <- c("Predictor", "Fitted Values")
  colnames(res.table) <- 1:length(x$z)
  print(t(res.table))
  cat("\n")
  invisible(x)
}

Try the isotone package in your browser

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

isotone documentation built on May 2, 2019, 4:41 p.m.