tests/testthat/test-plot-mixtures.R

results <- estimate_profiles(subset(iris, select = c("Sepal.Length", "Sepal.Width",
                                        "Petal.Length", "Petal.Width")), 1:3)
density_plot <- plot_density(results, variables = "Petal.Length")

test_that("density plot works",
          expect_is(density_plot, "gg")
)
jrosen48/tidyLPA documentation built on Feb. 23, 2024, 11:33 p.m.