Mercurial > repos > greg > insect_phenology_model

comparison insect_phenology_model.R @ 69:a6f3b6f7e68d draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Tue, 14 Nov 2017 13:10:37 -0500
parents c0a950ae7902
children ca0caef8d8e8
comparison
equal deleted inserted replaced
68:c0a950ae7902 69:a6f3b6f7e68d
196 end_date <- temperature_data_matrix[opt$num_days, 3] 196 end_date <- temperature_data_matrix[opt$num_days, 3]
197 latitude <- temperature_data_matrix[1, 1] 197 latitude <- temperature_data_matrix[1, 1]
198 temperature_data_matrix <- add_daylight_length(latitude, temperature_data_matrix, opt$num_days) 198 temperature_data_matrix <- add_daylight_length(latitude, temperature_data_matrix, opt$num_days)
199 199
200 cat("Number of days: ", opt$num_days, "\n") 200 cat("Number of days: ", opt$num_days, "\n")
201 cat(temperature_data_matrix)
201 202
202 # Initialize matrix for results from all replications. 203 # Initialize matrix for results from all replications.
203 S0.rep <- S1.rep <- S2.rep <- S3.rep <- S4.rep <- S5.rep <- matrix(rep(0, opt$num_days * opt$replications), ncol = opt$replications) 204 S0.rep <- S1.rep <- S2.rep <- S3.rep <- S4.rep <- S5.rep <- matrix(rep(0, opt$num_days * opt$replications), ncol = opt$replications)
204 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) 205 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)
205 206