tests/testthat/test-samplesize.R

In breakaway: Species Richness Estimation and Modeling

context("sample size")
library(breakaway)
data("apples")

est <- breakaway(apples)
test_that("sample size estimate works", {
  expect_null(sample_size_estimate(est$estimate, est$error, prop = 0.1))
})

test_that("sample size plot works", {
  expect_null(sample_size_figure(est$estimate, est$error))
})