tests/testthat/test_all_cluster.R

In SilviaTerra/forestsamplr: Standard Forest Sampling Design Workups

context("Forest sampling statistics calculations: all cluster samples")


test_that("all cluster function handles simple cluster sample", {
  expect_equal(
    summarize_all_cluster(
      redData,
      attribute = "volume", element = TRUE, bernoulli = F
    ),
    summarize_cluster(
      redData,
      attribute = "volume", element = TRUE
    ),
    tolerance = 0.1
  )
})


test_that("all cluster function handles cluster sample for discrete attribute, bernoulli", {
  data <- data.frame(
    plots = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
    propAlive = c(
      0.75, 0.80, 0.80, 0.85, 0.70,
      0.90, 0.70, 0.75, 0.80, 0.65
    )
  )

  expect_equal(
    summarize_all_cluster(
      data,
      attribute = "propAlive", plotTot = 250, bernoulli = T
    ),
    summarize_cluster_discrete(
      data,
      attribute = "propAlive", plotTot = 250
    ),
    tolerance = 0.01
  )
})