context("projection_matrix")
test_that("projection_matrix supplies a projection matrix", {
expect_equal(is.matrix(projection_matrix(dataMat)$projectionMatrix), TRUE)
})
test_that("projection_matrix supplies a M matrix", {
expect_equal(is.matrix(projection_matrix(dataMat)$M), TRUE)
})
test_that("projection_matrix supplies the method SYS", {
expect_equal(projection_matrix(dataMat)$method, SYS)
})
test_that("projection_matrix using group = Species still supplies SYS", {
expect_equal(projection_matrix(iris, group = Species)$method, SYS)
})
test_that("projection_matrix using group = 'Species' still supplies SYS", {
expect_equal(projection_matrix(iris, group = "Species")$method, SYS)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.