https://github.com/cran/nFactors
Raw File
Tip revision: 592b098fc786911733da1c1953e58c9d1c2e9517 authored by Gilles Raiche on 10 April 2010, 00:00:00 UTC
version 2.3.3
Tip revision: 592b098
nFactorsObjectMethods.r
## .................................................................
is.nFactors <-
function(object) {
 if (any(class(object) == "nFactors")) return(TRUE) else return(FALSE)
 }
## .................................................................


## .................................................................
print.nFactors <-
function(x, ...) {
 if (!is.nFactors(x)) stop("Not a nFactors object")
 res <- x$nFactors
 print(res, ...)
 }
## .................................................................

## .................................................................
summary.nFactors <-
function(object, ...) {
 if (!is.nFactors(object)) stop("Not a nFactors object")
 cat("Report For a nFactors Class \n\n")
 NextMethod()
 cat(paste("Details:","\n\n"))
 print(object$detail, ...)
 cat(paste("\n\n Number of factors retained by index","\n\n"))
 print(object$nFactors)
 }
## .................................................................

back to top