R/summary.QmethodRes.R

In aiorazabala/qmethod: Analysis of Subjective Perspectives Using Q Methodology

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)
}