Revision f9600793
Added by Benoit Parmentier over 8 years ago
| climate/research/oregon/interpolation/global_product_assessment_part1_functions.R | ||
|---|---|---|
| 4 | 4 |
#Combining tables and figures for individual runs for years and tiles. |
| 5 | 5 |
#AUTHOR: Benoit Parmentier |
| 6 | 6 |
#CREATED ON: 05/24/2016 |
| 7 |
#MODIFIED ON: 09/06/2016
|
|
| 7 |
#MODIFIED ON: 09/19/2016
|
|
| 8 | 8 |
#Version: 1 |
| 9 | 9 |
#PROJECT: Environmental Layers project |
| 10 | 10 |
#COMMENTS: Initial commit, script based on part NASA biodiversity conference |
| ... | ... | |
| 19 | 19 |
# |
| 20 | 20 |
#setfacl -Rmd user:aguzman4:rwx /nobackupp8/bparmen1/output_run10_1500x4500_global_analyses_pred_1992_10052015 |
| 21 | 21 |
|
| 22 |
##COMMIT: function for combining extracted values and |
|
| 22 | 23 |
################################################################################################# |
| 23 | 24 |
|
| 24 | 25 |
### Loading R library and packages |
| ... | ... | |
| 671 | 672 |
} |
| 672 | 673 |
|
| 673 | 674 |
|
| 674 |
combine_measurements_and_predictions_df <- function(i,df_raster,df_time_series,df_ts_pix,data_var,list_selected_ID,r_ts_name,var_name,plot_fig=T){
|
|
| 675 |
combine_measurements_and_predictions_df <- function(i,df_raster,df_time_series,df_ts_pix,data_var,list_selected_ID,r_ts_name,var_name,var_pred,plot_fig=T){
|
|
| 675 | 676 |
|
| 676 | 677 |
# Input arguments: |
| 677 | 678 |
# i : selected station |
| ... | ... | |
| 770 | 771 |
#Summarize by season... |
| 771 | 772 |
## Threshold? |
| 772 | 773 |
station_summary_obj <- list(nb_zero,nb_NA, df_pix_ts) |
| 773 |
names(station_summary_obj) <- c("nb_zero_precip","nb_NA_var"," df_pix_ts")
|
|
| 774 |
names(station_summary_obj) <- c("nb_zero_precip","nb_NA_var","df_pix_ts")
|
|
| 774 | 775 |
return(station_summary_obj) |
| 775 | 776 |
} |
| 776 | 777 |
|
Also available in: Unified diff
modifying function for function for combining extracted values