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")
})
pbiecek/WhatIfPlots documentation built on July 23, 2020, 9:15 p.m.