tests/testthat/test_evaluate_image_crowns.R

In weecology/NeonTreeEvaluation_package: Evaluate Individual Tree Segmentation Algorithms against Benchmark Data

context("Check image crown evaluation")
library(dplyr)

test_that("Image crown summaries from csv", {
  results <- submission %>%
    filter(plot_name %in% "SJER_052_2018") %>% evaluate_image_crowns(.,summarize = T,project = T)
  expect_equal(length(results),4)

  #Overall
  expect_equal(dim(results[["overall"]]),c(1,2))
  expect_equal(results[["overall"]]$precision,1)

  #By Site
  expect_equal(colnames(results[["by_site"]]),c("Site","recall","precision"))

  #site is non zero
  results[["by_site"]]

  #plot_level
  expect_equal(colnames(results[["plot_level"]]),c("plot_name","submission","ground_truth"))
})

test_that("Image crown summaries from shp", {
  results <- submission_polygons %>%
    filter(plot_name %in% "SJER_052_2018") %>% evaluate_image_crowns(.,summarize = T,project = T)
  expect_equal(length(results),4)

  #Overall
  expect_equal(dim(results[["overall"]]),c(1,2))
  expect_equal(results[["overall"]]$precision,1)

  #By Site
  expect_equal(colnames(results[["by_site"]]),c("Site","recall","precision"))

  #plot_level
  expect_equal(colnames(results[["plot_level"]]),c("plot_name","submission","ground_truth"))
})

test_that("Image crown summaries from shp and csv are the same", {
  results_csv <- submission %>%
    filter(plot_name %in% "SJER_052_2018") %>% evaluate_image_crowns(.,summarize = T,project = T)

  results_shp <- submission_polygons %>%
    filter(plot_name %in% "SJER_052_2018") %>% evaluate_image_crowns(.,summarize = T,project = T)

  expect_equal(results_csv[["overall"]],results_shp[["overall"]])


})