Nothing
library(testthat)
suppressMessages(library(lavaan))
test_that("ptable_pop: Nonpositive definite", {
# Simple mediation model
mod <-
"
m ~ x
y ~ m + x
"
pop_es <- c("m ~ x" = ".90",
"y ~ m" = ".90",
"y ~ x" = ".90")
expect_error(ptable_pop(model = mod,
pop_es = pop_es))
})
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.