# HG changeset patch
# User greg
# Date 1510688026 18000
# Node ID 8ca2b154e5cba0a475acea3968a76f53480b7d25
# Parent  392980f72514710f9e6ae36b738fb03f456b3071
Uploaded

diff -r 392980f72514 -r 8ca2b154e5cb insect_phenology_model.R
--- a/insect_phenology_model.R	Tue Nov 14 14:21:25 2017 -0500
+++ b/insect_phenology_model.R	Tue Nov 14 14:33:46 2017 -0500
@@ -29,7 +29,7 @@
 parse_input_data = function(input_file, num_rows, num_columns) {
     # Read in the input temperature datafile into a data frame.
     temperature_data_frame <- read.csv(file=input_file, header=T, strip.white=TRUE, sep=",")
-    if (num_rows == 6) {
+    if (num_columns == 6) {
         # The input data has the following 6 columns:
         # LATITUDE, LONGITUDE, DATE, DOY, TMIN, TMAX
         # Add a column containing the daylight length for each day.