inst/tinytest/test-pkg-lavaan.R

source("helpers.R")
requiet("lavaan")

# Issue #502
model <- 'ind60 =~ x1 + x2 + x3'
fit <- lavaan::cfa(model, data = PoliticalDemocracy)
void <- capture.output({tab <- modelsummary(fit, output = "data.frame", standardize = "all")})
expect_inherits(tab, "data.frame")
expect_true(nrow(tab) > 7)
expect_true(ncol(tab) > 3)

Try the modelsummary package in your browser

Any scripts or data that you put into this service are public.

modelsummary documentation built on Oct. 15, 2023, 5:06 p.m.