Mercurial > repos > greg > insect_phenology_model

comparison insect_phenology_model.R @ 62:46f360025893 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Mon, 13 Nov 2017 12:37:35 -0500
parents 82668ca72b08
children e2f2780f5c14
comparison
equal deleted inserted replaced
61:82668ca72b08 62:46f360025893
200 start_date <- temperature_data[1, 3] 200 start_date <- temperature_data[1, 3]
201 end_date <- temperature_data[opt$num_days, 3] 201 end_date <- temperature_data[opt$num_days, 3]
202 latitude <- temperature_data[1, 1] 202 latitude <- temperature_data[1, 1]
203 daylight_length_vector <- get_daylight_length(latitude, temperature_data, opt$num_days) 203 daylight_length_vector <- get_daylight_length(latitude, temperature_data, opt$num_days)
204 204
205 cat("Start date: ", temperature_data[1, 3], "\n")
206 cat("End date: ", temperature_data[opt$num_days, 3], "\n")
207 cat("Number of days: ", opt$num_days, "\n") 205 cat("Number of days: ", opt$num_days, "\n")
208 206
209 # Initialize matrix for results from all replications. 207 # Initialize matrix for results from all replications.
210 S0.rep <- S1.rep <- S2.rep <- S3.rep <- S4.rep <- S5.rep <- matrix(rep(0, opt$num_days * opt$replications), ncol = opt$replications) 208 S0.rep <- S1.rep <- S2.rep <- S3.rep <- S4.rep <- S5.rep <- matrix(rep(0, opt$num_days * opt$replications), ncol = opt$replications)
211 newborn.rep <- death.rep <- adult.rep <- pop.rep <- g0.rep <- g1.rep <- g2.rep <- g0a.rep <- g1a.rep <- g2a.rep <- matrix(rep(0, opt$num_days * opt$replications), ncol=opt$replications) 209 newborn.rep <- death.rep <- adult.rep <- pop.rep <- g0.rep <- g1.rep <- g2.rep <- g0a.rep <- g1a.rep <- g2a.rep <- matrix(rep(0, opt$num_days * opt$replications), ncol=opt$replications)