library(marlin)
seasons <- 1
fauna <-
list(
"bigeye" = create_critter(
common_name = "bigeye tuna",
adult_diffusion = 10,
adult_home_range = 10,
density_dependence = "local_habitat",
seasons = seasons,
fished_depletion = .25,
resolution = c(10,10),
steepness = 0.6,
ssb0 = 42,
m = 0.4
)
)
#> Warning in f(names[[col]]): NAs introduced by coercion
fauna$bigeye$adult_diffusion
#> [1] 13.37194