Mercurial > repos > greg > insect_phenology_model

changeset 11:d1f2c0634354 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Tue, 27 Feb 2018 13:35:16 -0500
parents 61bc6bd8807d
children bd5e35775e20
files insect_phenology_model.R
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/insect_phenology_model.R	Tue Feb 27 13:31:59 2018 -0500
+++ b/insect_phenology_model.R	Tue Feb 27 13:35:16 2018 -0500
@@ -976,7 +976,7 @@
         if (life_stage == "Egg") {
             # Start PDF device driver.
             dev.new(width=20, height=30);
-            file_path = paste(output_dir, "egg_pop_size.pdf", sep="/");
+            file_path = paste(output_dir, "egg_pop.pdf", sep="/");
             pdf(file=file_path, width=20, height=30, bg="white");
             par(mar=c(5, 6, 4, 4), mfrow=c(3, 1));
             # Egg population size.
@@ -988,7 +988,7 @@
         } else if (life_stage == "Nymph") {
             # Start PDF device driver.
             dev.new(width=20, height=30);
-            file_name = paste(tolower(life_stage_nymph), "nymph_pop_size.pdf", sep="_");
+            file_name = paste(tolower(life_stage_nymph), "nymph_pop.pdf", sep="_");
             file_path = paste(output_dir, file_name, sep="/");
             pdf(file=file_path, width=20, height=30, bg="white");
             par(mar=c(5, 6, 4, 4), mfrow=c(3, 1));
@@ -1001,7 +1001,7 @@
         } else if (life_stage == "Adult") {
             # Start PDF device driver.
             dev.new(width=20, height=30);
-            file_name = paste(tolower(life_stages_adult), "adult_pop_size.pdf", sep="_");
+            file_name = paste(tolower(life_stages_adult), "adult_pop.pdf", sep="_");
             file_path = paste(output_dir, file_name, sep="/");
             pdf(file=file_path, width=20, height=30, bg="white");
             par(mar=c(5, 6, 4, 4), mfrow=c(3, 1));
@@ -1014,7 +1014,7 @@
         } else if (life_stage == "Total") {
             # Start PDF device driver.
             dev.new(width=20, height=30);
-            file_path = paste(output_dir, "total_pop_size.pdf", sep="/");
+            file_path = paste(output_dir, "total_pop.pdf", sep="/");
             pdf(file=file_path, width=20, height=30, bg="white");
             par(mar=c(5, 6, 4, 4), mfrow=c(3, 1));
             # Total population size.