test_that("Check if netSEMp2 gives correct output", {
  expect_s3_class(netSEMp2(acrylic, exogenous = "IrradTot", endogenous = "YI"), c("netSEMp2", "list"))
})