change video title

R/output.R

@@ -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])