tests/testthat/test_toyModel.R

In guidedPLS: Supervised Dimensional Reduction by Guided Partial Least Squares

out <- toyModel()

expect_equal(length(out), 8)
expect_equal(dim(out$X1), c(100, 300))
expect_equal(dim(out$X2), c(200, 150))
expect_equal(dim(out$Y1), c(100, 50))
expect_equal(dim(out$Y1_dummy), c(100, 3))
expect_equal(dim(out$Y2), c(200, 50))
expect_equal(dim(out$Y2_dummy), c(200, 3))
expect_equal(length(out$col1), 100)
expect_equal(length(out$col2), 200)