# HG changeset patch
# User greg
# Date 1510682971 18000
# Node ID c0a950ae790261350a666758abe91f8f4fc83bb9
# Parent  e8923653a5bfe89cef1ebd664a66aa04f4c1e72f
Uploaded

diff -r e8923653a5bf -r c0a950ae7902 insect_phenology_model.R
--- a/insect_phenology_model.R	Tue Nov 14 13:05:25 2017 -0500
+++ b/insect_phenology_model.R	Tue Nov 14 13:09:31 2017 -0500
@@ -43,6 +43,8 @@
     }
     # Append daylight_length_vector as a new column to temperature_data_matrix.
     cbind(temperature_data_matrix, newColumn=daylight_length_vector)
+    # Return the altered temperature_data_matrix.
+    temperature_data_matrix
 }
 
 get_temperature_at_hour = function(latitude, temperature_data_matrix, row, num_days) {
@@ -193,7 +195,7 @@
 start_date <- temperature_data_matrix[1, 3]
 end_date <- temperature_data_matrix[opt$num_days, 3]
 latitude <- temperature_data_matrix[1, 1]
-add_daylight_length(latitude, temperature_data_matrix, opt$num_days)
+temperature_data_matrix <- add_daylight_length(latitude, temperature_data_matrix, opt$num_days)
 
 cat("Number of days: ", opt$num_days, "\n")