tests/testthat/test_make_inefficiency.R

In danStich/dia: R package for Atlantic salmon Dam Impact Analysis (DIA) model

library(testthat)
library(dia)

test_that("run_inefficiency returns vector with length 15", {
            expect_type(
              run_inefficiency(n = rep(100, 15),
                               inefficiency_matrix = dia::inefficiency_matrix),
              "double")
            }
          )