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