# HG changeset patch
# User greg
# Date 1533129435 14400
# Node ID cf6a06a2346c0bc66f7b3403657c77a0803716c0
# Parent  869e7d06bdf3a8e13e4259fe226d410ccfa86279
Uploaded

diff -r 869e7d06bdf3 -r cf6a06a2346c extract_ipm_date_interval.R
--- a/extract_ipm_date_interval.R	Wed Aug 01 08:47:20 2018 -0400
+++ b/extract_ipm_date_interval.R	Wed Aug 01 09:17:15 2018 -0400
@@ -16,7 +16,6 @@
 
 get_new_temperature_data_frame = function(input_file) {
     temperature_data_frame = read.csv(file=input_file, header=T, strip.white=TRUE, stringsAsFactors=FALSE, sep=",");
-    colnames(temperature_data_frame) = c("LATITUDE", "LONGITUDE", "DATE", "DOY", "TMIN", "TMAX");
     return(temperature_data_frame);
 }
 
@@ -65,10 +64,10 @@
         date_labels = c(unlist(ticks_and_labels[2]));
     # All latitude values are the same, so get the value
     # for plots from the first row.
-        latitude = temperature_data_frame$LATITUDE[1];
+    latitude = temperature_data_frame$LATITUDE[1];
     # Save the date interval data into an output file
     # named the same as the input.
-    file_path = paste("output_data_dir", input_file, sep="/");
+    file_path = paste("output_data_dir", basename(input_file), sep="/");
     write.csv(temperature_data_frame, file=file_path, row.names=F);
-    # TODO: Save the datE interval plots...
+    # TODO: Save the date interval plots...
 }