Nothing
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")
}
})
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.