R/print.threshold.r

In eRm: Extended Rasch Modeling

Defines functions print.threshold

Documented in print.threshold

print.threshold <- function(x,...)
{
    cat("\n")
    for (i in 1:length(x$threshtable)) {
      cat("Design Matrix Block ",i,":\n",sep="")
      print(round(x$threshtable[[i]],5))
      cat("\n")
    }
    invisible(x$threshtable)
}

Try the eRm package in your browser