File: print.threshold.r

package info (click to toggle)
r-cran-erm 1.0-6-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,952 kB
  • sloc: f90: 401; ansic: 103; makefile: 8
file content (10 lines) | stat: -rwxr-xr-x 243 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
 
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)
}