tests/testthat/test-calc_specific_growth_rate.R

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)
})
richelbilderbeek/huisweis documentation built on May 9, 2019, 7:36 a.m.