Commit fb93c7d5 authored by Loup's avatar Loup
Browse files

change video title

parent 16d1aaba
......@@ -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 disease severity"
, xlab = "", ylab = "", main = "Disease 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])
......
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