Mercurial > repos > greg > insect_phenology_model

comparison insect_phenology_model.R @ 61:82668ca72b08 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:33:21 -0500
parents a3bdf0d35d1d
children 46f360025893
comparison
equal deleted inserted replaced
60:a3bdf0d35d1d 61:82668ca72b08
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: ", start_date, "\n") 205 cat("Start date: ", temperature_data[1, 3], "\n")
206 cat("End date: ", end_date, "\n") 206 cat("End date: ", temperature_data[opt$num_days, 3], "\n")
207 cat("Number of days: ", opt$num_days, "\n") 207 cat("Number of days: ", opt$num_days, "\n")
208 208
209 # Initialize matrix for results from all replications. 209 # 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) 210 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) 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)