tests/testthat/test-iri.R

context("IRI computation")

# Tests ==========

test_that("First test", {
  profile <- rnorm(10000)
  iri <- CalculateIRIperSegments(profile, IRI_COEF_100, 20)
  expect_equal(length(iri), 50)
})
vsimko/rroad documentation built on May 14, 2020, 1:44 a.m.