epcc (version 1.4.7)

rate_adjustment: Intrinsic growth rate adjustment

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<U+00F1>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.

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.

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.

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<U+00F1>a-N<U+00FA><U+00F1>ez, V.N., C<U+00F3>rdova-Lepe, F.D. & Moreno-G<U+00F3>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

# NOT RUN {
######################################################################
  #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)


# }