tests/testthat/test_plot_mm.R

In pdwaggoner/plotGMM: Tidy Tools for Visualizing Mixture Models

context("plot_mm")

set.seed(235)

test_that("plot_mm catches input errors", {
  mixmdl <- mixtools::normalmixEM(faithful$waiting, k = 2)
  expect_error(plot_mm(mixmdl, k = 1))
  expect_error(plot_mm(mixmdl, k = 16))
})

# Testing beyond 11 components causes problems for full function too.
test_that("plot_mm successfully plots", {
  for (num_comps in seq(2, 11)) {
    mixmdl <- mixtools::normalmixEM(faithful$waiting, k = num_comps)
    expect_is(plot_mm(mixmdl, k = num_comps), "ggplot")
  }
})