tests/testthat/test-means.r

In epf02013/r2sem: Easier Definitions of S.E.M. in R

test_that("define_means",{
  result <- define_means("variable_of_interest_name")
  expect_equal(result, 'variable_of_interest_name_level ~ 0*1')
})


test_that("define_means - with include_slopes true",{
  result <- define_means("variable_of_interest_name", TRUE)
  expect_equal(result, 'variable_of_interest_name_level ~ 0*1\nvariable_of_interest_name_slope ~ 1')
})

test_that("define_means - with include_slopes true and constrain_group_means_to_be_equal is true",{
  result <- define_means("variable_of_interest_name", TRUE, TRUE)
  expect_equal(result, 'variable_of_interest_name_level ~ 0*1\nvariable_of_interest_name_slope ~ c(SM,SM)*1')
})