changeset 66:f575148ce157 draft

Uploaded
author greg
date Tue, 14 Nov 2017 13:03:59 -0500
parents 8f3dba5dddb5
children e8923653a5bf
files insect_phenology_model.R
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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")
 }