Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
CSIRO-INRA
landsepi
Commits
fb93c7d5
Commit
fb93c7d5
authored
Jun 25, 2021
by
Loup
Browse files
change video title
parent
16d1aaba
Changes
1
Hide whitespace changes
Inline
Side-by-side
R/output.R
View file @
fb93c7d5
...
...
@@ -451,7 +451,7 @@ epid_output <- function(types = "all", time_param, Npatho, area, rotation, cropt
round_ylab_output
<-
2
},
"audpc_rel"
=
{
main_output
<-
"Relative AUDPC"
ylab_output
<-
"Proportion of diseased hosts: (I+R)/
N
"
ylab_output
<-
"Proportion of diseased hosts: (I+R)/
(H+L+I+R)
"
round_ylab_output
<-
2
},
"gla"
=
{
main_output
<-
expression
(
"Green leaf area (GLA)"
)
## expression('title'[2])
...
...
@@ -459,7 +459,7 @@ epid_output <- function(types = "all", time_param, Npatho, area, rotation, cropt
round_ylab_output
<-
2
},
"gla_rel"
=
{
main_output
<-
expression
(
"Relative green leaf area (GLA"
[
r
]
*
")"
)
ylab_output
<-
"Proportion of healthy hosts: H/
N
"
ylab_output
<-
"Proportion of healthy hosts: H/
(H+L+I+R)
"
round_ylab_output
<-
2
},
"eco_yield"
=
{
main_output
<-
"Crop yield"
...
...
@@ -1048,13 +1048,13 @@ video <- function(audpc, time_param, Npatho, landscape, area, rotation, croptype
## moving AUDPC
plot
(
0
,
0
,
type
=
"n"
,
bty
=
"n"
,
xlim
=
c
(
1
,
Nyears
),
ylim
=
c
(
0
,
1
),
xaxt
=
"n"
,
yaxt
=
"n"
,
xlab
=
""
,
ylab
=
""
,
main
=
"
Average d
isease severity"
,
xlab
=
""
,
ylab
=
""
,
main
=
"
D
isease severity
averaged on whole cropping seasons
"
)
axis
(
1
,
at
=
seq
(
1
,
Nyears
,
by
=
(
Nyears
-
1
)
%/%
10
+
1
))
ticksMarks
<-
round
(
seq
(
0
,
1
,
length.out
=
5
),
2
)
axis
(
2
,
at
=
ticksMarks
,
labels
=
paste
(
100
*
ticksMarks
,
"%"
),
las
=
1
)
title
(
xlab
=
"Years"
,
mgp
=
c
(
2
,
1
,
0
))
title
(
ylab
=
"Proportion of diseased hosts: (I+R)/
N
"
,
mgp
=
c
(
3.5
,
1
,
0
))
title
(
ylab
=
"Proportion of diseased hosts: (I+R)/
(H+L+I+R)
"
,
mgp
=
c
(
3.5
,
1
,
0
))
for
(
host
in
1
:
Nhost
)
{
# lines(1:y, audpc[1:y, host] / audpc100S, type = "o", lwd = 2, lty = host, pch = PCH[host], col = GRAY[host])
lines
(
1
:
y
,
audpc
[
1
:
y
,
host
],
type
=
"o"
,
lwd
=
2
,
lty
=
host
,
pch
=
PCH
[
host
],
col
=
GRAY
[
host
])
...
...
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