| Previous changeset 67:e8923653a5bf (2017-11-14) Next changeset 69:a6f3b6f7e68d (2017-11-14) |
|
Commit message:
Uploaded |
|
modified:
insect_phenology_model.R |
| b |
| diff -r e8923653a5bf -r c0a950ae7902 insect_phenology_model.R --- 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") |