Nothing
test_that("plot_profiles works with varying covariances", {
skip_on_cran()
df <- iris[1:4]
names(df) <- paste0("x", 1:4 )
res <- mx_profiles(df, 2, covariances = "varying")
expect_error(tidySEM::plot_profiles(res), NA)
})
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.