| Previous changeset 103:4d9e40d8af0f (2017-12-05) Next changeset 105:375a2b8e7207 (2017-12-05) |
|
Commit message:
Uploaded |
|
modified:
insect_phenology_model.R |
| b |
| 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() |