tests/testthat/test_try.R

context("my first test file")

library(ecoCopula)
library(mvabund)
data(spider)
spider.mod=manyglm(mvabund(spider$abund)~.,data=spider$x)

test_that("error", {
  expect_error(cgr(4))
})

test_that("obj file type", {
  expect_is(cgr(spider.mod), "cgr")
})

Try the ecoCopula package in your browser

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

ecoCopula documentation built on March 18, 2022, 6:56 p.m.