Skip to contents

Fits a curve using the Rezende model for fitting thermal performance curves

Usage

fit_rezende(ymax, xopt, xmin, xmax)

Arguments

ymax

maximal value of y

xopt

value of x at which y = ymax

xmin

minimal threshold of x (y = 0)

xmax

maximal threshold of x (y = 0)

Value

function that accepts x and returns y based on fitted model

Details

Fits a curve using the Rezende model (Rezende et al. 2019): $$ y = \begin{cases} a \cdot 10^{\frac{\log_{10}(q_{10})}{\frac{10}{x}}}, & \text{if } x < x_{\text{opt}} \\ a \cdot 10^{\frac{\log_{10}(q_{10})}{\frac{10}{x}}} \cdot (1 - b \cdot (x_{\text{opt}} - x)^2), & \text{otherwise} \end{cases} $$ Optimal values for a (rate shift parameter), b (decline rate parameter), and q_10 are estimated based on provided arguments.

References

Rezende, Enrico L., and Francisco Bozinovic. Thermal performance across levels of biological organization. Philosophical Transactions of the Royal Society B 374.1778 (2019): 20180549.

Examples

my_func <- EndoSim:::fit_rezende(1, 25, 2.84, 32.79)
plot(seq(0, 50, by = 0.1), my_func(seq(0, 50, by = 0.1)), type = "l")