Revision 923d0cc1f43c36debbea1f1fb06e4de448065380 authored by Gilles Raiche on 31 August 2019, 09:11:55 UTC, committed by cran-robot on 31 August 2019, 09:11:55 UTC
1 parent 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)
}
## .................................................................
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...