tests/testthat/test_select_neighbours.R

context("Check select_neighbours() function")



test_that("Output format - select_neighbours",{
  expect_is(select_neighbours(apartmentsTest, new_apartment, n = 10), "data.frame")
  expect_is(select_neighbours(apartmentsTest, new_apartment, n = NULL, frac = 0.001), "data.frame")
})

Try the ceterisParibus package in your browser

Any scripts or data that you put into this service are public.

ceterisParibus documentation built on March 31, 2020, 5:22 p.m.