File: print.resid.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 (18 lines) | stat: -rwxr-xr-x 507 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
`print.resid` <-
function(x,...)
# print method for object of class "resid" (from residuals.ppar)
{
    cat("\nStandardized Residuals \n")
    for (i in 1:length(x$st.res)) {
      if (length(x$st.res) > 1) {cat("Person NA Group:",i,"\n")}
      print(x$st.res[[i]])
      cat("\n")
    }
    cat("\nSquared Standardized Residuals \n")
    for (i in 1:length(x$sq.res)) {
      if (length(x$sq.res) > 1) {cat("Person NA Group:",i,"\n")}
      print(x$sq.res[[i]])
      cat("\n")
    }
}