Repository 'insect_phenology_model'
hg clone https://eddie.galaxyproject.org/repos/greg/insect_phenology_model

Changeset 65:8f3dba5dddb5 (2017-11-14)
Previous changeset 64:e2f2780f5c14 (2017-11-14) Next changeset 66:f575148ce157 (2017-11-14)
Commit message:
Uploaded
modified:
insect_phenology_model.R
b
diff -r e2f2780f5c14 -r 8f3dba5dddb5 insect_phenology_model.R
--- a/insect_phenology_model.R Tue Nov 14 11:35:11 2017 -0500
+++ b/insect_phenology_model.R Tue Nov 14 12:53:34 2017 -0500
[
@@ -42,7 +42,9 @@
         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.
-    temperature_data_matrix <- cbind(temperature_data_matrix, daylight_length_vector)
+    rbind(temperature_data_matrix[, 7], daylight_length_vector)
+    # Give the new column a name.
+    colnames(temperature_data_matrix)[7] <- c("DAYLEN")
 }
 
 get_temperature_at_hour = function(latitude, temperature_data_matrix, row, num_days) {