Mercurial > repos > greg > insect_phenology_model

comparison insect_phenology_model.R @ 70:ca0caef8d8e8 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:12:46 -0500
parents a6f3b6f7e68d
children f3d11014be12
comparison
equal deleted inserted replaced
69:a6f3b6f7e68d 70:ca0caef8d8e8
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 print(temperature_data_matrix)
202 202
203 # Initialize matrix for results from all replications. 203 # Initialize matrix for results from all 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 S0.rep <- S1.rep <- S2.rep <- S3.rep <- S4.rep <- S5.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 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)
206 206