# HG changeset patch
# User greg
# Date 1519756516 18000
# Node ID d1f2c06343546fc9fadebf109fa50d5bf28de979
# Parent  61bc6bd8807d91b24680cbefd48f88156ec6af7d
Uploaded

diff -r 61bc6bd8807d -r d1f2c0634354 insect_phenology_model.R
--- 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.