tests/testthat/test-aggregation.R

In rbenvo: Built Environment Objects

M <- matrix(1,nrow(joinvo(longitudinal_HFS,"HFS")),ncol=1)
test_that("Aggrenvo works", {
  expect_equivalent(11,aggrenvo(longitudinal_HFS,M,"HFS","Distance")[1,1])
  expect_equivalent(11,aggrenvo(longitudinal_HFS,M,"HFS","Distance")[1,1])
  expect_error(aggrenvo(longitudinal_HFS,M[1:5,],"HFS","Distance"))
})

M_ <- aggrenvo(longitudinal_HFS,M,"HFS","Distance")
test_that("bw_construction works",{
  ## 4 is from looking up how many visits the first subject has
  expect_equivalent(sum(M_[1:4,])/4,bwinvo(longitudinal_HFS,M_)$between[1,1])
})