Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
SimAquaLife
GR3D
Commits
35b51d6a
Commit
35b51d6a
authored
Apr 26, 2021
by
patrick.lambert
Browse files
thermal range
parent
91214804
Changes
1
Hide whitespace changes
Inline
Side-by-side
exploration/GR3D_Rdescription/thermalRanges.R
0 → 100644
View file @
35b51d6a
library
(
tidyverse
)
#TODO extract from xml
thermalRange
=
tibble
(
process
=
"Grow"
,
Tmin
=
1.7
,
Topt
=
4.5
,
Tmax
=
27.9
,
type
=
"Rosso"
)
%>%
bind_rows
(
tibble
(
process
=
"SurvivalSpawnerInRiv"
,
Tmin
=
5.4
,
Topt
=
16.7
,
Tmax
=
27.5
,
type
=
"Rosso"
)
)
%>%
bind_rows
(
tibble
(
process
=
"Reproduction"
,
Tmin
=
5.1
,
Topt
=
13.5
,
Tmax
=
24.5
,
type
=
"Rosso"
)
)
%>%
bind_rows
(
tibble
(
process
=
"SurviveAfterReproduction"
,
Tmin
=
-
Inf
,
Topt
=
19.58
-
log
(
19
)
/
0.58
,
Tmax
=
19.58
+
log
(
19
)
/
0.58
,
type
=
"logit"
)
)
thermalRange
%>%
mutate
(
numero
=
row_number
(),
process
=
factor
(
process
,
levels
=
c
(
"Grow"
,
"SurvivalSpawnerInRiv"
,
"SurviveAfterReproduction"
,
"Reproduction"
)))
%>%
ggplot
()
+
geom_segment
(
aes
(
x
=
Tmin
,
y
=
process
,
xend
=
Tmax
,
yend
=
process
))
+
geom_point
(
aes
(
x
=
Topt
,
y
=
process
))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment