Revision 88913b48
Added by Benoit Parmentier about 8 years ago
| climate/research/oregon/interpolation/global_product_assessment_part0_functions.R | ||
|---|---|---|
| 9 | 9 |
# |
| 10 | 10 |
#AUTHOR: Benoit Parmentier |
| 11 | 11 |
#CREATED ON: 10/31/2016 |
| 12 |
#MODIFIED ON: 11/25/2016
|
|
| 12 |
#MODIFIED ON: 11/27/2016
|
|
| 13 | 13 |
#Version: 1 |
| 14 | 14 |
#PROJECT: Environmental Layers project |
| 15 | 15 |
#COMMENTS: removing unused functions and clean up for part0 global prodduct assessment part0 |
| ... | ... | |
| 26 | 26 |
# |
| 27 | 27 |
#setfacl -Rmd user:aguzman4:rwx /nobackupp8/bparmen1/output_run10_1500x4500_global_analyses_pred_1992_10052015 |
| 28 | 28 |
|
| 29 |
##COMMIT: adding necessary function for assessment from other script
|
|
| 29 |
##COMMIT: modification of inputs for checking missing
|
|
| 30 | 30 |
|
| 31 | 31 |
################################################################################################# |
| 32 | 32 |
|
| ... | ... | |
| 354 | 354 |
return(obj_number_day_predicted) |
| 355 | 355 |
} |
| 356 | 356 |
|
| 357 |
predictions_tiles_missing_fun <- function(i,list_param){
|
|
| 357 |
predictions_tiles_missing_fun <- function(list_param){
|
|
| 358 | 358 |
#Add documentation |
| 359 | 359 |
|
| 360 | 360 |
############################## |
| ... | ... | |
| 385 | 385 |
pred_mod_name <- list_param$pred_mod_name |
| 386 | 386 |
metric_name <- list_param$metric_name |
| 387 | 387 |
|
| 388 |
year_predicted <- list_param$list_year_predicted[i] #selected year
|
|
| 388 |
year_predicted <- list_param$year_predicted #selected year
|
|
| 389 | 389 |
|
| 390 | 390 |
########################## START SCRIPT ######################################### |
| 391 | 391 |
|
| ... | ... | |
| 746 | 746 |
|
| 747 | 747 |
#undebug(generate_raster_number_of_prediction_by_day) |
| 748 | 748 |
#4.51pm |
| 749 |
browser() |
|
| 749 |
#browser()
|
|
| 750 | 750 |
#5.10pm |
| 751 | 751 |
#test_number_pix_predictions <- generate_raster_number_of_prediction_by_day(1,list_param=list_param_generate_raster_number_pred) |
| 752 | 752 |
if(nrow(df_missing_tiles_day)>0){
|
Also available in: Unified diff
modification of inputs for checking missing