tests/testthat/test-compare_solutions_mplus.R

context("test-compare_models_mplus.R")

test_that("compare_solutions_mplus() works", {
  skip_on_cran()
  skip_on_travis()
  x <- compare_solutions_mplus(iris, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width, n_profiles_max = 2)
  expect_s3_class(x, "data.frame")
})
jrosen48/tidyLPA documentation built on June 1, 2018, 3:12 p.m.