tests/testthat/test-plot_plot_prob.R

test_that("plot_prob works", {
  testthat::skip_if_not_installed("OpenMx")
  tidySEM:::skip_if_not_local()
  df <- data_mix_ordinal
  df[1:4] <- lapply(df, ordered)
  mx_lca(data = df,
         classes = 2) -> res
  plot_prob(res)
  expect_equal(1, 1)
})

Try the tidySEM package in your browser

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

tidySEM documentation built on April 3, 2025, 9:13 p.m.