changeset 81:5729eb737082 draft

Uploaded
author greg
date Tue, 14 Nov 2017 14:57:26 -0500
parents b701a134d640
children 0c807f99a816
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 14:49:29 2017 -0500
+++ b/insect_phenology_model.R	Tue Nov 14 14:57:26 2017 -0500
@@ -28,7 +28,7 @@
 parse_input_data = function(input_file, num_rows) {
     # 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 (ncol(temperature_data_frame) == 6) {
+    if (dim(temperature_data_frame)[2] == 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.