rate_adjustment: Intrinsic growth rate adjustment

In epcc: Simulating Populations of Ectotherms under Global Warming

Description

This function allows you to adjust the intrinsic growth rate of an ectothermic population using temperature and growth rate data obtained empirically, using a cubic TPC (Saldaña et al., 2019).

Usage

rate_adjustment(data = data)

Arguments

data	database where the first column shows the ambient temperature (TA) and the second column contains the intrinsic growth rate (R) associated with them.

Details

This function allows you to adjust the intrinsic growth rate of an ectotherm population by providing as input the values of environmental or body temperature together with the growth rate, using the nls2 function you can find the parameters temp_cmax, temp_cmax and ro, which are necessary to adjust the curve through a cubic polynomial which fulfills the essential conditions of a TPC.

Value

A figure showing the fitting curve corresponding to the intrinsic growth rate of an ectothermic population, the empirically obtained temperature and growth rate data points, in addition, called for side effects.

References

Rezende, E. L., & Bozinovic, F. (2019). Thermal performance across levels of biological organization. Philosophical Transactions of the Royal Society B: Biological Sciences, 374(1778), 20180549.doi:10.1098/rstb.2018.0549

Saldaña-Núñez, V.N., Córdova-Lepe, F.D. & Moreno-Gómez, F.N. (2019). Population dynamics in the face of climate change: Analysis of a cubic thermal performance curve in ectotherms. J. Phys.: Conf. Ser. 1329 012007. doi:10.1088/1742-6596/1329/1/012007

Examples

######################################################################
  #Example 1: We consider a population of Macrolophus pygmaeus whose
  #intrinsic growth rate is adjusted to the data obtained from Rezende
  #and Bozinovic (2019).
#######################################################################

github_link <- "https://github.com/Victor-Saldana/epcc/raw/main/M_pygmaeus.xlsx"
library(httr)
temp_file <- tempfile(fileext = ".xlsx")
req <- GET(github_link,
          authenticate(Sys.getenv("GITHUB_PAT"), ""),
          write_disk(path = temp_file))
M_pygmaeus <- readxl::read_excel(temp_file)
TPC <- rate_adjustment(data = M_pygmaeus)

######################################################################
  #Example 2: We consider a population of Eretmocerus furuhashii whose
  #intrinsic growth rate is adjusted to the data obtained from Rezende
  #and Bozinovic (2019).
#######################################################################

github_link <- "https://github.com/Victor-Saldana/epcc/raw/main/E_furuhashii.xlsx"
library(httr)
temp_file <- tempfile(fileext = ".xlsx")
req <- GET(github_link,
          authenticate(Sys.getenv("GITHUB_PAT"), ""),
          write_disk(path = temp_file))
E_furuhashii <- readxl::read_excel(temp_file)
TPC <- rate_adjustment(data = E_furuhashii)

######################################################################
  #Example 3: We consider a population of Trichogramma pretoisum whose
  #intrinsic growth rate is adjusted to the data obtained from Rezende
  #and Bozinovic (2019).
#######################################################################

github_link <- "https://github.com/Victor-Saldana/epcc/raw/main/T_pretoisum.xlsx"
library(httr)
temp_file <- tempfile(fileext = ".xlsx")
req <- GET(github_link,
          authenticate(Sys.getenv("GITHUB_PAT"), ""),
          write_disk(path = temp_file))
T_pretoisum <- readxl::read_excel(temp_file)
TPC <- rate_adjustment(data = T_pretoisum)

epcc documentation built on June 29, 2021, 9:07 a.m.