tests/testthat/test_titanic.R

In plssem: Complex Partial Least Squares Structural Equation Modeling

devtools::load_all()

head(titanic)

m <- "Survived ~ Age + Sex + Age:Sex"
testthat::expect_no_error({
  fit <- pls(m, data = titanic, ordered = c("Survived", "Sex"),
           bootstrap = TRUE, boot.parallel = "multicore",
           boot.ncores = 4, boot.R = 50)

  pls_predict(fit, benchmark = c("acc"))
})


testthat::expect_no_error({
  fit <- pls(m, data = titanic, ordered = c("Survived"),
             bootstrap = TRUE, boot.parallel = "multicore",
             boot.ncores = 4, boot.R = 50, missing = "kNN", knn.k = 10)
})

testthat::expect_no_error({
  fit <- pls(m, data = titanic, ordered = c("Survived"),
             bootstrap = FALSE, missing = "mean")
})

testthat::expect_error(pls("Survived ~ Embarked", data = titanic),
                       regexp = "Please recode .*")