Mercurial > repos > greg > insect_phenology_model

comparison insect_phenology_model.R @ 33:a374a8fab830 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 13:34:22 -0500
parents 5517d380c337
children 17f9578b7391
comparison
equal deleted inserted replaced
32:5517d380c337 33:a374a8fab830
201 # Read in the input temperature datafile into a Data Frame object. 201 # Read in the input temperature datafile into a Data Frame object.
202 temperature_data <- read.csv(file=opt$input, header=T, sep=",") 202 temperature_data <- read.csv(file=opt$input, header=T, sep=",")
203 date <- temperature_data[c(1:1), 3] 203 date <- temperature_data[c(1:1), 3]
204 year <- substr(date, 1, 4) 204 year <- substr(date, 1, 4)
205 raw_data_matrix <- matrix(rep(0, opt$num_days * 6), nrow=opt$num_days) 205 raw_data_matrix <- matrix(rep(0, opt$num_days * 6), nrow=opt$num_days)
206 temperature_file_path <- convert_csv_to_rdata(raw_data_matrix) 206 temperature_file_path <- convert_csv_to_rdata(temperature_data, raw_data_matrix)
207 latitude <- temperature_data[1, 1] 207 latitude <- temperature_data[1, 1]
208 208
209 cat("Number of days: ", opt$num_days, "\n") 209 cat("Number of days: ", opt$num_days, "\n")
210 cat("Latitude: ", latitude, "\n") 210 cat("Latitude: ", latitude, "\n")
211 cat("Replications: ", opt$replications, "\n") 211 cat("Replications: ", opt$replications, "\n")