test_that("test results match pre-calculated results", {
results <- calcClassScot(data = fcs2::demo_data, seed = 42)
expect_equal(results, fcs2::demo_results)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.