Nothing
library(lavaan)
HS.model <- " visual =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9 "
fit <- cfa(HS.model,
data = HolzingerSwineford1939,
group = "school"
)
summary(fit)
plot_lavaan(fit, where = "browser")
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.