diff --git a/exploration/scriptR/PatrickPrg.R b/exploration/scriptR/PatrickPrg.R index 48050442dcf418dadba625e2c8bcecb111f2d396..00f56c3b95aa28062cbc64170f8866724642a0db 100644 --- a/exploration/scriptR/PatrickPrg.R +++ b/exploration/scriptR/PatrickPrg.R @@ -1,8 +1,28 @@ # see BruchPrg for upload of data +# ====================================================================== +# temp en fonction de la latitude +# ==================================================================== +library(dplyr) + +extractTemp<-as.data.frame(tempData %>% + filter(Year>1901 & Year <= 1910) %>% + group_by(NOM,Lat)%>% + summarize(meanSpring=mean(Spring)) + %>% arrange (Lat) +) + +plot(extractTemp$Lat, extractTemp$meanSpring, pch=20) +abline(v=49.25) # vire +abline(v=53.75) # elbe + + +abline(h=11) +abline(h=12.5) + # ======================================================================== -# effect tempertaure sur la reproduction +# effect temperature sur la reproduction # ======================================================================== thermalBevertonHolt = function (stock, temperature, juvenileTolerance) {