tests/testthat/testmisc.R

library(plantecophys)
context("Misc tests")


test_that("QUADP", {
 
  expect_equal(plantecophys:::QUADP(0,0,0), 0)
  expect_equal(plantecophys:::QUADM(0,0,0), 0)
  expect_equal(plantecophys:::QUADM(0,1,1), -1)
  expect_equal(plantecophys:::QUADP(0,1,1), -1)
  
  expect_warning(plantecophys:::QUADP(1,2,3))
  expect_warning(plantecophys:::QUADM(1,2,3))
})

Try the plantecophys package in your browser

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

plantecophys documentation built on April 1, 2021, 1:06 a.m.