# HG changeset patch
# User greg
# Date 1510682639 18000
# Node ID f575148ce15733f43ee18357cc01471ab97325bf
# Parent  8f3dba5dddb5364b1f90f13fc7f0acd559c425fd
Uploaded

diff -r 8f3dba5dddb5 -r f575148ce157 insect_phenology_model.R
--- a/insect_phenology_model.R	Tue Nov 14 12:53:34 2017 -0500
+++ b/insect_phenology_model.R	Tue Nov 14 13:03:59 2017 -0500
@@ -42,7 +42,7 @@
         daylight_length_vector[i] <- 24 - (24 / pi * acos((sin(p * pi / 180) + sin(latitude * pi / 180) * sin(phi)) / (cos(latitude * pi / 180) * cos(phi))))
     }
     # Append daylight_length_vector as a new column to temperature_data_matrix.
-    rbind(temperature_data_matrix[, 7], daylight_length_vector)
+    cbind(temperature_data_matrix, newColumn=daylight_length_vector)
     # Give the new column a name.
     colnames(temperature_data_matrix)[7] <- c("DAYLEN")
 }