# HG changeset patch
# User greg
# Date 1510593266 18000
# Node ID 1d4e864b77204a85ad8743ad239aa9a11966afa2
# Parent  f64704e0ad97d6bf84928f7c0f1b1707b0ef9497
Uploaded

diff -r f64704e0ad97 -r 1d4e864b7720 insect_phenology_model.R
--- a/insect_phenology_model.R	Mon Nov 13 12:14:19 2017 -0500
+++ b/insect_phenology_model.R	Mon Nov 13 12:14:26 2017 -0500
@@ -197,8 +197,8 @@
 # The input data currently must have 6 columns:
 # LATITUDE, LONGITUDE, DATE, DOY, TMIN, TMAX
 temperature_data <- read.csv(file=opt$input, header=T, strip.white=TRUE, sep=",")
-start_date <- temperature_data[c(1:1), 3]
-end_date <- temperature_data[c(opt$num_days:opt$num_days), 3]
+start_date <- temperature_data[1, 3]
+end_date <- temperature_data[opt$num_days, 3]
 latitude <- temperature_data[1, 1]
 daylight_length_vector <- get_daylight_length(latitude, temperature_data, opt$num_days)