tests/testthat/test-groundwater.R

context("Groundwater")

test_that("Observations are positive", {
  expect_true(all(groundwater$no3mgladj>0, na.rm = TRUE))
  expect_true(all(groundwater$po4mgladj>0, na.rm = TRUE))
})
ISU-STRIPS/STRIPSHelmers documentation built on May 8, 2019, 11 a.m.