R/loa.and.flags.R

Defines functions loa.and.flags

Documented in loa.and.flags

loa.and.flags <- function(results, nload=FALSE){
  nfactors <- results$brief$nfactors
  loa <- round(results$loa, digits=2)
  fla <- as.data.frame(results$flagged)
  names(fla) <- paste0("fg", 1:ncol(fla))
  for (i in 1:nfactors) fla[[i]] <- as.character(fla[[i]])
  for (i in 1:nfactors) fla[which(fla[[i]]=="FALSE"),i ] <- ""
  for (i in 1:nfactors) fla[which(fla[[i]]=="TRUE"),i ] <- "*"
  flagqs <- cbind(loa, fla)
  pos <- vector()
  for(i in 1:nfactors) pos <- c(pos, i+nfactors, i)
  flagqs <- flagqs[pos]
  if (nload) {
    cat("\nNumber of Q-sorts flagged for each factor:\n")
    print(results$f_char$characteristics["nload"])
  }
  cat("\n")
  return(flagqs)
}

Try the qmethod package in your browser

Any scripts or data that you put into this service are public.

qmethod documentation built on April 1, 2023, 12:18 a.m.