comparison utils.R @ 138:3f1c93b0e8c6 draft

Uploaded
author greg
date Wed, 21 Nov 2018 11:20:17 -0500
parents dbcd6ed8e3ee
children 0440f1c7715e
comparison
equal deleted inserted replaced
137:97a56ff8f32a 138:3f1c93b0e8c6
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 if (date_interval) { 144 tick_labels[tick_index] = label_str;
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 }
150 last_tick = i; 145 last_tick = i;
151 } else if (i == prepend_end_norm_row) { 146 } else if (i == prepend_end_norm_row) {
152 # Add a tick for the end of the 30 year normnals data 147 # Add a tick for the end of the 30 year normnals data
153 # that was prepended to the year-to-date data. 148 # that was prepended to the year-to-date data.
154 label_str = "End prepended 30 year normals"; 149 label_str = "End prepended 30 year normals";