tests/testthat/test-test3Gsm.R
In oliviergimenez/R2ucare: Goodness-of-Fit Tests for Capture-Recapture Models
context("test3Gsm")
test_that("test3Gsm() output", {
geese = system.file("extdata", "geese.inp", package = "R2ucare")
geese = read_inp(geese)
geese.hist = geese$encounter_histories
geese.freq = geese$sample_size
res = test3Gsm(geese.hist,geese.freq)
expect_output(str(res), "List of 2")
expect_equivalent(res$test3Gsm, c(302.769,119,0))
})
oliviergimenez/R2ucare documentation built on July 17, 2022, 7:23 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("test3Gsm")
test_that("test3Gsm() output", {
geese = system.file("extdata", "geese.inp", package = "R2ucare")
geese = read_inp(geese)
geese.hist = geese$encounter_histories
geese.freq = geese$sample_size
res = test3Gsm(geese.hist,geese.freq)
expect_output(str(res), "List of 2")
expect_equivalent(res$test3Gsm, c(302.769,119,0))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.