test_that("multiplication works", {
test <- rict(demo_observed_values[1:2, ])
predict <- rict_predict(demo_observed_values[1:2, ])
data <- rict_classify(predict)
expect_equal(test, data)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.