tests/testthat/test.getPosteriorMode.R

context("getPosteriorMode")

test_that("functions stops on miscelaneous errors",{
  # obj1 <- list()
  # expect_error(getPosteriorMode(obj1))

  obj2 <- NULL
  expect_error(getPosteriorMode(obj2))

  obj3 <- c("string1", "string2")
  expect_error(getPosteriorMode(obj3))

  })

Try the tRophicPosition package in your browser

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

tRophicPosition documentation built on Dec. 28, 2022, 2:27 a.m.