# HG changeset patch
# User greg
# Date 1510245632 18000
# Node ID 3ef94dce7454e9dd3ab64d65831b60f37e7c3ec1
# Parent  24949e72f7ecdb3f0741a75e02a749eba569ce3d
Uploaded

diff -r 24949e72f7ec -r 3ef94dce7454 insect_phenology_model.R
--- a/insect_phenology_model.R	Thu Nov 09 11:35:44 2017 -0500
+++ b/insect_phenology_model.R	Thu Nov 09 11:40:32 2017 -0500
@@ -203,19 +203,9 @@
 temperature_file_path <- convert_csv_to_rdata(opt$location, temperature_data)
 latitude <- temperature_data[1, 1]
 
-cat("Number of days: ", opt$num_days, ", ")
+cat("Number of days: ", opt$num_days, "\n")
 cat("Latitude: ", latitude, "\n")
-cat("Replications: ", opt$replications, ", ")
-cat("Photoperiod: ", opt$photoperiod, "\n")
-cat("Oviposition rate: ", opt$oviposition, ", ")
-cat("Egg mortality rate: ", opt$egg_mort, "\n")
-cat("Nymph mortality rate: ", opt$nymph_mort, ", ")
-cat("Adult mortality rate: ", opt$adult_mort, "\n")
-cat("Min clutch size: ", opt$min_clutch_size, ", ")
-cat("Max clutch size: ", opt$max_clutch_size, "\n")
-cat("(egg->young nymph): ", opt$young_nymph_accum, ", ")
-cat("(young nymph->old nymph): ", opt$old_nymph_accum, "\n")
-cat("(old nymph->adult): ", opt$adult_accum)
+cat("Replications: ", opt$replications)
 
 # Initialize matrix for results from all replications.
 S0.rep <- S1.rep <- S2.rep <- S3.rep <- S4.rep <- S5.rep <- matrix(rep(0, opt$num_days * opt$replications), ncol = opt$replications)