Nothing
context("Check calculate_covariate_drift() function")
test_that("Type of data in the explainer",{
d <- calculate_covariate_drift(apartments, apartments_test)
expect_true("covariate_drift" %in% class(d))
expect_true(all(dim(d) == c(6,2)))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.