inst/tests/test-RMIndex.R

In umd-lib/animalmove: Analysis of animal population-level movement patterns

data(puechabonsp)
sampleds <- puechabonsp
relocs <- sampleds$relocs
relocs@data$type <- "type1"
relocs@data[1:50,5] <- "type2"
pop.data <- Individuals(relocs, group.by = c("type"))
rmi.df <- compute.RealizedMobilityIndex(pop.data, percent = 100,
                                        id="Name")
rmi <- RMIndex(rmi.df)

test_that("compute.RealizedMobilityIndex is computed correctly", {
  expect_equal(length(rmi.df[[1]]), 4)
  expect_false(any(rmi.df$rmi.index > 1.0))
})

test_that("Object creation works properly for RMIndex objects", {
  expect_true(class(rmi) == "RMIndex")
  expect_equal(length(rmi@data), 5)
})

test_that("RMIndex can be properly summarized using RMIndex object", {
  summary <- summary(rmi)
  expect_equal(length(summary), 2)
})

test_that("RMIndex can be properly summarized using data.frame", {
  summary <- summary(rmi.df)
  expect_equal(length(summary), 2)
})