Mercurial > repos > greg > insect_phenology_model
changeset 68:c0a950ae7902 draft
Uploaded
| author | greg |
|---|---|
| date | Tue, 14 Nov 2017 13:09:31 -0500 |
| parents | e8923653a5bf |
| children | a6f3b6f7e68d |
| files | insect_phenology_model.R |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/insect_phenology_model.R Tue Nov 14 13:05:25 2017 -0500 +++ b/insect_phenology_model.R Tue Nov 14 13:09:31 2017 -0500 @@ -43,6 +43,8 @@ } # Append daylight_length_vector as a new column to temperature_data_matrix. cbind(temperature_data_matrix, newColumn=daylight_length_vector) + # Return the altered temperature_data_matrix. + temperature_data_matrix } get_temperature_at_hour = function(latitude, temperature_data_matrix, row, num_days) { @@ -193,7 +195,7 @@ start_date <- temperature_data_matrix[1, 3] end_date <- temperature_data_matrix[opt$num_days, 3] latitude <- temperature_data_matrix[1, 1] -add_daylight_length(latitude, temperature_data_matrix, opt$num_days) +temperature_data_matrix <- add_daylight_length(latitude, temperature_data_matrix, opt$num_days) cat("Number of days: ", opt$num_days, "\n")