tests/testthat/test-plot_plot_prob.R

test_that("plot_prob works", {
  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 Oct. 25, 2023, 1:06 a.m.