tests/testthat/helper-dataobjects.R

A <- c(3000, 4000, 5000, 2000)
A0 <- 70000
bounds <- c(100, 90, 70, 80)
m <- c(100, 90, 70, 50)
M <- bounds
ucosts <- c(0.7, 15, 2, 3) # unit costs

N_pop507 <- pop507[, "N"]
A_pop507 <- N_pop507 * pop507[, "S"]
ucosts_pop507 <- pop507[, "unit_cost"]

Try the stratallo package in your browser

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

stratallo documentation built on Nov. 27, 2023, 1:07 a.m.