Revision 683ac533
Added by Benoit Parmentier over 8 years ago
| climate/research/oregon/interpolation/global_run_scalingup_mosaicing_function.R | ||
|---|---|---|
| 4 | 4 |
#Different options to explore mosaicing are tested. This script only contains functions. |
| 5 | 5 |
#AUTHOR: Benoit Parmentier |
| 6 | 6 |
#CREATED ON: 04/14/2015 |
| 7 |
#MODIFIED ON: 05/30/2016
|
|
| 7 |
#MODIFIED ON: 06/19/2016
|
|
| 8 | 8 |
#Version: 2 |
| 9 | 9 |
#PROJECT: Environmental Layers project |
| 10 | 10 |
#COMMENTS: first commit of function script to test mosaicing using 1500x4500km and other tiles |
| ... | ... | |
| 1543 | 1543 |
#create output name for predicted raster |
| 1544 | 1544 |
extension_str <- extension(inFilename) |
| 1545 | 1545 |
raster_name_tmp <- gsub(extension_str,"",basename(inFilename)) |
| 1546 |
out_filename <- file.path(out_dir_str,paste(raster_name_tmp,"_","kriged_residuals_",var_pred,"_",out_suffix_str,file_format,sep="")) #for use in function later...
|
|
| 1546 |
out_filename <- file.path(out_dir_str,paste(raster_name_tmp,"_","kriged_res_",var_pred,"_",out_suffix_str,file_format,sep="")) #for use in function later... |
|
| 1547 | 1547 |
|
| 1548 | 1548 |
#tile_selected <- as.character(df_raster_pred_tiles$tile_id[j]) |
| 1549 | 1549 |
data_df$tile_id <- as.character(data_df$tile_id) |
Also available in: Unified diff
mosaicing function script, modifying output names for kriged residuals