Mercurial > repos > greg > insect_phenology_model
changeset 104:d6e37828b094 draft
Uploaded
| author | greg |
|---|---|
| date | Tue, 05 Dec 2017 11:13:23 -0500 |
| parents | 4d9e40d8af0f |
| children | 375a2b8e7207 |
| files | insect_phenology_model.R |
| diffstat | 1 files changed, 4 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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()