# HG changeset patch
# User greg
# Date 1512490403 18000
# Node ID d6e37828b0944fe0e39e4ea73a76c77a3ae006cc
# Parent  4d9e40d8af0fedbce9a87b80f815656d57283337
Uploaded

diff -r 4d9e40d8af0f -r d6e37828b094 insect_phenology_model.R
--- a/insect_phenology_model.R	Tue Dec 05 11:01:23 2017 -0500
+++ b/insect_phenology_model.R	Tue Dec 05 11:13:23 2017 -0500
@@ -629,26 +629,22 @@
 
 # Data analysis and visualization plots
 # only within a single calendar year.
-day.all <- c(1:opt$num_days)
+days <- c(1:opt$num_days)
 start_date <- temperature_data_frame$DATE[1]
 end_date <- temperature_data_frame$DATE[opt$num_days]
 
 # Subfigure 1: population size by life stage
 maxval <- max(eggs+eggs.std_error, nymphs+nymphs.std_error, adults+adults.std_error)
-render_chart("pop_size_by_life_stage", opt$insect, opt$location, latitude, start_date, end_date, days.all, maxval,
+render_chart("pop_size_by_life_stage", opt$insect, opt$location, latitude, start_date, end_date, days, maxval,
              opt$std_error_plot, adults, nymphs, eggs, adults.std_error, nymphs.std_error, eggs.std_error)
-
 # Subfigure 2: population size by generation
 maxval <- max(F2)
-render_chart("pop_size_by_generation", opt$insect, opt$location, latitude, start_date, end_date, days.all, maxval,
+render_chart("pop_size_by_generation", opt$insect, opt$location, latitude, start_date, end_date, days, maxval,
              opt$std_error_plot, P, F1, F2, P.std_error, F1.std_error, F2.std_error)
-
-
 # Subfigure 3: adult population size by generation
 maxval <- max(F2_adults) + 100
-render_chart("adult_pop_size_by_generation", opt$insect, opt$location, latitude, start_date, end_date, days.all, maxval,
+render_chart("adult_pop_size_by_generation", opt$insect, opt$location, latitude, start_date, end_date, days, maxval,
              opt$std_error_plot, P_adults, F1_adults, F2_adults, P_adults.std_error, F1_adults.std_error, F2_adults2.std_error)
 
-
 # Turn off device driver to flush output.
 dev.off()