# HG changeset patch
# User greg
# Date 1512138481 18000
# Node ID b6b42e12e173db97f16b08a4160396349e7b5753
# Parent  7433448e313d9d2555649df816c8bb0d8d891f41
Uploaded

diff -r 7433448e313d -r b6b42e12e173 insect_phenology_model.R
--- a/insect_phenology_model.R	Fri Dec 01 09:20:56 2017 -0500
+++ b/insect_phenology_model.R	Fri Dec 01 09:28:01 2017 -0500
@@ -454,7 +454,7 @@
         num_insects.newborn <- length(birth.vec[,1])
         vec.mat <- rbind(vec.mat, birth.vec)
         # Update population size for the next day.
-        n <- n - num_insects.death + num_insects.newborn 
+        num_insects <- num_insects - num_insects.death + num_insects.newborn 
 
         # Aggregate results by day.
         tot.pop <- c(tot.pop, n)