context("classify")
test_that("classify supplies a projection matrix", {
expect_equal(is.matrix(classify(reduce(iris,
targetDim = 2,
group = Species))$projectionMatrix),
TRUE)
})
test_that("classify supplies a projection matrix", {
expect_equal(is.matrix(classify(reduce(iris,
targetDim = 2,
group = Species,
output = "grouped_df"))$projectionMatrix),
TRUE)
})
test_that("classify supplies a projection matrix", {
expect_equal(is.matrix(classify(reduce(iris,
targetDim = 2,
group = Species,
output = "matrix"))$projectionMatrix),
TRUE)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.