tests/testthat/test-strata_centroids.R

In dyerlab/scape: Convienence Functions for Geospatial Data Analysis (Title Case)

test_that("missing data", {

  x <- 23.3
  expect_that( strata_centroids(x), throws_error("You must pass a data.frame object to this function.") )

  data <- data.frame(Levels = c("A","A","B","B"))
  expect_that( strata_centroids(data), throws_error() )
  names(data)[1] <- "Population"

  expect_that( strata_centroids(data), throws_error() )
  data$Latitude <- c(26.4, 26.6, 32.6, 33.8)

  expect_that( strata_centroids(data), throws_error() )
  data$Longitude <- c(-77.3, -77.5, -84.2, -86.4)

  df <- strata_centroids(data)

  expect_true( is.data.frame(df) )

  expect_true( df$Longitude[1] == mean(data$Longitude[1:2]) )
  expect_true( df$Longitude[2] == mean(data$Longitude[3:4]) )
  expect_true( df$Latitude[1] == mean(data$Latitude[1:2]) )
  expect_true( df$Latitude[2] == mean(data$Latitude[3:4]) )

})