tests/testthat/test-diagnose_detection.R

In maRce10/ohun: Optimizing Acoustic Signal Detection

test_that("output size summarized", {
  # EXAMPLES
  data(lbh_reference, package = "ohun")

  # perfect detection
  dd <-
    diagnose_detection(
      reference = lbh_reference,
      detection = lbh_reference,
      time.diagnostics = TRUE,
      by.sound.file = FALSE
    )

  expect_equal(nrow(dd), 1)
})

test_that("output size by sound file", {
  data(lbh_reference, package = "ohun")

  # by sound file
  dd <-
    diagnose_detection(
      reference = lbh_reference,
      detection = lbh_reference,
      time.diagnostics = TRUE,
      by.sound.file = TRUE
    )

  expect_equal(nrow(dd), 2)

})


test_that("right recall, precision and f.score", {
  data(lbh_reference, package = "ohun")

  # perfect detection
  dd <-
    diagnose_detection(
      reference = lbh_reference,
      detection = lbh_reference,
      time.diagnostics = TRUE,
      by.sound.file = FALSE
    )

  expect_equal(dd$recall, 1)
  expect_equal(dd$precision, 1)
  expect_equal(dd$f.score, 1)

  dd <-
    diagnose_detection(
      reference = lbh_reference,
      detection = lbh_reference[-1,],
      time.diagnostics = TRUE,
      by.sound.file = FALSE
    )
  expect_lt(abs(dd$f.score - 0.972973), 0.001)

})


test_that("right recall, precision and f.score by sound files", {
  data(lbh_reference, package = "ohun")

  # by sound file
  dd <-
    diagnose_detection(
      reference = lbh_reference,
      detection = lbh_reference,
      time.diagnostics = TRUE,
      by.sound.file = TRUE
    )

  expect_equal(dd$recall, c(1, 1))
  expect_equal(dd$precision, c(1, 1))
  expect_equal(dd$f.score, c(1, 1))
})