require("lavaan")
HS.model <- ' visual =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9 '
fit <- cfa(HS.model, data = HolzingerSwineford1939)
summary(fit, fit.measures = TRUE)
require("onyxR")
onyx(fit)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.