Mercurial > repos > greg > extract_ipm_date_interval

comparison utils.R @ 6:0d9a74365270 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Wed, 01 Aug 2018 08:47:08 -0400
parents 9c5a4d07edb8
children c2eb16ef23c0
comparison
equal deleted inserted replaced
5:87482a201699 6:0d9a74365270
97 } else { 97 } else {
98 return(365); 98 return(365);
99 } 99 }
100 } 100 }
101 101
102 get_x_axis_ticks_and_labels = function(temperature_data_frame, prepend_end_doy_norm=NULL, append_start_doy_norm=NULL, date_interval=FALSE) { 102 get_x_axis_ticks_and_labels = function(temperature_data_frame, prepend_end_doy_norm=0, append_start_doy_norm=0, date_interval=FALSE) {
103 # Generate a list of ticks and labels for plotting the x axis. 103 # Generate a list of ticks and labels for plotting the x axis.
104 if (!is.null(prepend_end_doy_norm) & prepend_end_doy_norm > 0) { 104 if (prepend_end_doy_norm > 0) {
105 prepend_end_norm_row = which(temperature_data_frame$DOY==prepend_end_doy_norm); 105 prepend_end_norm_row = which(temperature_data_frame$DOY==prepend_end_doy_norm);
106 } else { 106 } else {
107 prepend_end_norm_row = 0; 107 prepend_end_norm_row = 0;
108 } 108 }
109 if (!is.null(append_start_doy_norm) & append_start_doy_norm > 0) { 109 if (append_start_doy_norm > 0) {
110 append_start_norm_row = which(temperature_data_frame$DOY==append_start_doy_norm); 110 append_start_norm_row = which(temperature_data_frame$DOY==append_start_doy_norm);
111 } else { 111 } else {
112 append_start_norm_row = 0; 112 append_start_norm_row = 0;
113 } 113 }
114 num_rows = dim(temperature_data_frame)[1]; 114 num_rows = dim(temperature_data_frame)[1];