library(lavaan)
df <- HolzingerSwineford1939
#df$x2 <- ordered(cut(df$x2, 4))
HS.model <- ' visual =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9 '
fit <- cfa(HS.model, data=df, meanstructure = T)
test_that("Can plot lavaan without specifying anything", {
expect_error(do.call(graph_sem, list(model = fit)), NA)
})
layout <- get_layout("", "", "visual","","textual","","speed","", "",
paste0("x", 1:9), rows = 2)
edg <- get_edges(fit)
nod <- get_nodes(fit)
#nod$label[5] <- "bla"
p2 <- prepare_graph(nodes = nod, layout = layout, edges = edg, angle = 170, text_size = 3)
#p2$edges$curvature[19:24] <- .3
#edges(p2)$curvature[10:12] <- edges(p2)$curvature[10:12] *-1
tmp <- plot(p2)
edges(p2)
test_that("Plot works for lavaan cfa", {
expect_s3_class(tmp, "ggplot")
})
edges(p2)$linetype <- 1
edges(p2)$colour <- sample(c("red", "blue"), nrow(edges(p2)), replace = T)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.