Commit 72b59b78 authored by patrick.lambert's avatar patrick.lambert
Browse files

new temperature effect function

parent c1d691ab
library(tidyverse)
#rm(list = ls())
Ratkowsky = function(temperature, par){
......@@ -58,7 +58,8 @@ modifiedLehman = function(temperature, par){
Tmin = 10
Topt = 20
Tmax = 30
temperature = seq(0, 35, 1)
cbind(temperature, modifiedLehman(temperature, par = c(Tmin, Topt, Tmax)))
plot(temperature, modifiedLehman(temperature, par = c(Tmin, Topt, Tmax)), ylab = 'rate', type = 'l', main = ' modified Lehman')
temperature[which.max(modifiedLehman(temperature, par = c(Tmin, Topt, Tmax)))]
......@@ -186,8 +187,10 @@ modifiedMasterReaction = function(temperature, par){
}
# DeucthEtal
# Deutsch, Curtis A., Joshua J. Tewksbury, Raymond B. Huey, Kimberly S. Sheldon, Cameron K. Ghalambor, David C. Haak, et Paul R. Martin. « Impacts of Climate Warming on Terrestrial Ectotherms across Latitude ». Proceedings of the National Academy of Sciences 105, nᵒ 18 (5 juin 2008): 6668‑72. https://doi.org/10.1073/pnas.0709472105.
# Huey, Raymond B., et R. D. Stevenson. « Integrating Thermal Physiology and Ecology of Ectotherms: A Discussion of Approaches ». American Zoologist 19, nᵒ 1 (1 février 1979): 357‑66. https://doi.org/10.1093/icb/19.1.357.
# Deutsch, Curtis A., Joshua J. Tewksbury, Raymond B. Huey, Kimberly S. Sheldon, Cameron K. Ghalambor, David C. Haak, et Paul R. Martin.
# « Impacts of Climate Warming on Terrestrial Ectotherms across Latitude ». Proceedings of the National Academy of Sciences 105, nᵒ 18 (5 juin 2008): 6668‑72. https://doi.org/10.1073/pnas.0709472105.
# Huey, Raymond B., et R. D. Stevenson. « Integrating Thermal Physiology and Ecology of Ectotherms:
# A Discussion of Approaches ». American Zoologist 19, nᵒ 1 (1 février 1979): 357‑66. https://doi.org/10.1093/icb/19.1.357.
# Payne, Nicholas L., James A. Smith, Dylan E. van der Meulen, Matthew D. Taylor, Yuuki Y. Watanabe, Akinori Takahashi, Teagan A. Marzullo, Charles A. Gray, Gwenael Cadiou, et Iain M. Suthers. « Temperature Dependence of Fish Performance in the Wild: Links with Species Biogeography and Physiological Thermal Tolerance ». Functional Ecology 30, nᵒ 6 (2016): 903‑12. https://doi.org/10.1111/1365-2435.12618.
......@@ -270,4 +273,5 @@ StrabakaGnauck = function(temperature, par){
return(rate)
}
plot(temperature, StrabakaGnauck(temperature, par = c(19.74, 30.48, 1.87)))
\ No newline at end of file
plot(temperature, StrabakaGnauck(temperature, par = c(19.74, 30.48, 1.87)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment