Nothing
context("Check select_neighbours() function")
test_that("Output rf",{
library("DALEX")
new_apartment <- apartments[1, 2:6]
small_apartments <- select_neighbours(apartments_test, new_apartment, n = 10)
expect_true(nrow(small_apartments) == 10)
small_apartments <- select_sample(apartments_test, n = 10)
expect_true(nrow(small_apartments) == 10)
})
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.