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