tests/testthat/test_RateOfSpreadAtTheta.r

test_that("RateOfSpreadAtTheta", {
  checkData('RateOfSpreadAtTheta',
            rate_of_spread_at_theta,
            list(data.table(ROS=ROS),
                 data.table(FROS=ROS),
                 data.table(BROS=ROS),
                 data.table(THETA=THETA)))
})
jordan-evens-nrcan/cffdrs documentation built on Sept. 19, 2024, 6:23 a.m.