if (FALSE) {
data(big5)
data(big5groups)
Q <- qgraph(cor(big5), minimum = 0.25, groups = big5groups,
nodeNames = colnames(big5), legend = TRUE, DoNotPlot = TRUE)
# Rich interactive viewer:
qgraphHTML(Q, "big5.html")
# Minimal embeddable version:
qgraphHTML(Q, "big5_plain.html", htmltype = "plain")
# Equivalently, directly from qgraph:
qgraph(cor(big5), minimum = 0.25, groups = big5groups,
nodeNames = colnames(big5), filetype = "html", filename = "big5")
}
Run the code above in your browser using DataLab