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")
)

Try the tidyLPA package in your browser

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

tidyLPA documentation built on Nov. 17, 2021, 5:07 p.m.