tests/testthat/test.LAI_from_gf_at_57.R

In cmartin/LAI: Calculate indirect Leaf Area Index (LAI) from images

library(LAI)
context("Full LAI computations")

expect_that(
  LAI_from_gf_at_57(
    system.file("extdata", "IMG_0005.JPG", package = "LAI")
  ),
  equals(0.33, tolerance = .1)
)

expect_that(
  LAI_from_gf_at_57(
    system.file("extdata", "IMG_7818.JPG", package = "LAI")
  ),
  equals(1.8, tolerance = .1)
)

expect_that(
  LAI_from_gf_at_57(
    system.file("extdata", "IMG_9362.JPG", package = "LAI")
  ),
  equals(2.7, tolerance = .1)
)

expect_that(
  LAI_from_gf_at_57(
    system.file("extdata", "IMG_7595.JPG", package = "LAI")
  ),
  equals(2.5, tolerance = .1)
)

expect_that(
  LAI_from_gf_at_57(
    system.file("extdata", "IMG_0044.JPG", package = "LAI")
  ),
  equals(2.8, tolerance = .1)
)

context("Intelligent error messages")
expect_error(
  LAI_from_gf_at_57(
    system.file("extdata", "IMG_0044.JPG", package = "LAI"),
    camera_horiz_FOV = 10,
    focal_angle = 45
  ),
  "Image does not include the 57 degrees band"
)