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)
})

Try the rroad package in your browser

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

rroad documentation built on May 1, 2019, 10 p.m.