Mercurial > repos > greg > insect_phenology_model

comparison insect_phenology_model.R @ 24:5354a82ed295 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Thu, 09 Nov 2017 08:40:35 -0500
parents cd4d17bf3b9e
children 3c06cab3db2c
comparison
equal deleted inserted replaced
23:7fb723bc93b4 24:5354a82ed295
208 cat("(egg->young nymph): ", opt$young_nymph_accum, "\n") 208 cat("(egg->young nymph): ", opt$young_nymph_accum, "\n")
209 cat("(young nymph->old nymph): ", opt$old_nymph_accum, "\n") 209 cat("(young nymph->old nymph): ", opt$old_nymph_accum, "\n")
210 cat("(old nymph->adult): ", opt$adult_accum, "\n") 210 cat("(old nymph->adult): ", opt$adult_accum, "\n")
211 211
212 # Read in the input temperature datafile into a Data Frame object. 212 # Read in the input temperature datafile into a Data Frame object.
213 temperature_data <= temp.data <- read.csv(file=opt$input, header=T, sep=",") 213 temperature_data <- read.csv(file=opt$input, header=T, sep=",")
214 temperature_file_path <- get_temperature_file_path(opt$location, temperature_data) 214 temperature_file_path <- get_temperature_file_path(opt$location, temperature_data)
215 latitude <- temperature_data[1, 1] 215 latitude <- temperature_data[1, 1]
216 216
217 # Initialize matrix for results from all replications 217 # Initialize matrix for results from all replications
218 S0.rep <- S1.rep <- S2.rep <- S3.rep <- S4.rep <- S5.rep <- matrix(rep(0, opt$num_days * opt$replications), ncol = opt$replications) 218 S0.rep <- S1.rep <- S2.rep <- S3.rep <- S4.rep <- S5.rep <- matrix(rep(0, opt$num_days * opt$replications), ncol = opt$replications)