context("calc_specific_growth_rate")
test_that("use, 1 resource", {
max_growth_rate <- 12.34
resource_densities <- 23.45
hsr <- 34.56
created <- calc_specific_growth_rate(
resource_densities = resource_densities,
max_growth_rate = max_growth_rate,
hsr = hsr
)
expected <- (max_growth_rate * resource_densities[1]) /
(hsr[1] + resource_densities[1])
expect_equal(created, expected)
})
test_that("use, 2 resources, 0 density", {
max_growth_rate <- 12.34
resource_densities <- c(23.45, 0.0)
hsr <- c(34.56, 45.67)
created <- calc_specific_growth_rate(
resource_densities = resource_densities,
max_growth_rate = max_growth_rate,
hsr = hsr
)
expected <- 0.0
expect_equal(created, expected)
})
test_that("use, 2 resource", {
max_growth_rate <- 12.34
resource_densities <- c(23.45, 34.56)
hsr <- c(45.56, 56.78)
created <- calc_specific_growth_rate(
resource_densities = resource_densities,
max_growth_rate = max_growth_rate,
hsr = hsr
)
specific_growth_rate_1 <- (max_growth_rate * resource_densities[1]) /
(hsr[1] + resource_densities[1])
specific_growth_rate_2 <- (max_growth_rate * resource_densities[2]) /
(hsr[2] + resource_densities[2])
expected <- min(specific_growth_rate_1, specific_growth_rate_2)
expect_equal(created, expected)
})
test_that("use, 1 resource", {
created <- calc_specific_growth_rate(
resource_densities = 1.0,
max_growth_rate = 3.0,
hsr = 4.0
)
expect_equal(0.6, created)
})
test_that("use, 1 resource", {
created <- calc_specific_growth_rate(
resource_densities = 2.0,
max_growth_rate = 3.0,
hsr = 5.0
)
expect_equal(6.0 / 7.0, created)
})
test_that("use, 2 resource", {
created <- calc_specific_growth_rate(
resource_densities = c(1.0, 2.0),
max_growth_rate = 3.0,
hsr = c(4.0, 5.0)
)
expect_equal(0.6, created)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.