Revision 8e886b6c
Added by Benoit Parmentier over 9 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: 06/16/2015
|
|
| 7 |
#MODIFIED ON: 06/21/2015
|
|
| 8 | 8 |
#Version: 1 |
| 9 | 9 |
#PROJECT: Environmental Layers project |
| 10 | 10 |
#COMMENTS: first commit of function script to test mosaicing using 1500x4500km and other tiles |
| ... | ... | |
| 536 | 536 |
width=col_mfrow*res_pix,height=row_mfrow*res_pix) |
| 537 | 537 |
|
| 538 | 538 |
plot(r_mosaic,main=paste("mosaic mean ",method_str,sep=""))
|
| 539 |
|
|
| 539 |
|
|
| 540 | 540 |
dev.off() |
| 541 | 541 |
|
| 542 | 542 |
#### plot terrain to emphasize possible edges.. |
| ... | ... | |
| 549 | 549 |
width=col_mfrow*res_pix,height=row_mfrow*res_pix) |
| 550 | 550 |
|
| 551 | 551 |
plot(r_mosaic_terrain,y=1,main=paste("slope mosaic mean ",method_str,sep=""))
|
| 552 |
|
|
| 552 |
|
|
| 553 | 553 |
dev.off() |
| 554 | 554 |
|
| 555 | 555 |
out_file3 <- paste("Figure2_aspect_mean_",method_str,"_",out_suffix_str,".png",sep="")
|
| ... | ... | |
| 557 | 557 |
width=col_mfrow*res_pix,height=row_mfrow*res_pix) |
| 558 | 558 |
|
| 559 | 559 |
plot(r_mosaic_terrain,y=2,main=paste("aspect mean ",method_str,sep=""))
|
| 560 |
|
|
| 560 |
title(paste("aspect mean ",method_str,sep=""))
|
|
| 561 | 561 |
dev.off() |
| 562 | 562 |
|
| 563 | 563 |
l_out_files <- list(out_file1,out_file2,out_file3) |
Also available in: Unified diff
plot script function minor modification before testing for reg2