tests/testthat/test-utils_metrics.R

context("utils metrics")

test_that("LAD works", {
  set.seed(42)
  z = runif(1e4, 0, 20)
  lad = LAD(z,  z0 = 0)

  expect_equal(lad$z, seq(0.5, 19.5 , 1))
})

Try the lidR package in your browser

Any scripts or data that you put into this service are public.

lidR documentation built on Sept. 11, 2024, 5:21 p.m.