Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.