comparison utils.R @ 139:0440f1c7715e draft

Uploaded
author greg
date Wed, 21 Nov 2018 11:31:11 -0500
parents 3f1c93b0e8c6
children b06b3881ecf0
comparison
equal deleted inserted replaced
138:3f1c93b0e8c6 139:0440f1c7715e
139 # Add a tick for the day on which the number of insects 139 # Add a tick for the day on which the number of insects
140 # per replication is 0. 140 # per replication is 0.
141 label_str = "Number insects is 0"; 141 label_str = "Number insects is 0";
142 tick_index = get_tick_index(i, last_tick, ticks, tick_labels, tick_sep); 142 tick_index = get_tick_index(i, last_tick, ticks, tick_labels, tick_sep);
143 ticks[tick_index] = i; 143 ticks[tick_index] = i;
144 tick_labels[tick_index] = label_str; 144 if (date_interval) {
145 # Append the day to label_str
146 tick_labels[tick_index] = paste(label_str, day, sep=" ");
147 } else {
148 tick_labels[tick_index] = label_str;
149 }
145 last_tick = i; 150 last_tick = i;
146 } else if (i == prepend_end_norm_row) { 151 } else if (i == prepend_end_norm_row) {
147 # Add a tick for the end of the 30 year normnals data 152 # Add a tick for the end of the 30 year normnals data
148 # that was prepended to the year-to-date data. 153 # that was prepended to the year-to-date data.
149 label_str = "End prepended 30 year normals"; 154 label_str = "End prepended 30 year normals";