R/summary.QmethodRes.R

summary.QmethodRes <- function(object, ...) {
  cat(object$brief$info, sep="\n")
  cat("\nFactor scores\n")
  print(object[[6]], quote=FALSE)
  fch <- t(object[[7]][[1]])
  rownames(fch) <- c(
    "Average reliability coefficient", 
    "Number of loading Q-sorts", 
    "Eigenvalues", 
    "Percentage of explained variance", 
    "Composite reliability", 
    "Standard error of factor scores")
  print(fch, quote=FALSE, digits=2)
}
aiorazabala/qmethod documentation built on May 10, 2019, 8 a.m.