Revision 7b97800e
Added by Benoit Parmentier over 9 years ago
| climate/research/oregon/interpolation/mosaicing_presentation_summary.Rmd | ||
|---|---|---|
| 1 | 1 |
--- |
| 2 |
title : Mosaicing test summary region 4,South America
|
|
| 2 |
title : Mosaicing test summary region 2, Europe
|
|
| 3 | 3 |
subtitle : Global assessment interpolation |
| 4 | 4 |
author : Benoit Parmentier |
| 5 |
job : NEX job reg4
|
|
| 5 |
job : NEX job reg2
|
|
| 6 | 6 |
framework : io2012 # {io2012, html5slides, shower, dzslides, ...}
|
| 7 | 7 |
highlighter : highlight.js # {highlight.js, prettify, highlight}
|
| 8 | 8 |
hitheme : tomorrow # |
| ... | ... | |
| 15 | 15 |
|
| 16 | 16 |
#First let's set up the input parameters for the script in R: |
| 17 | 17 |
|
| 18 |
in_dir <- "/data/project/layers/commons/NEX_data/mosaicing_data_test/reg4/output_reg4_mosaic_run10_1500x4500_global_analyses_06212015"
|
|
| 18 |
in_dir <- "/data/project/layers/commons/NEX_data/mosaicing_data_test/reg2/output_reg2_mosaic_run10_1500x4500_global_analyses_06212015"
|
|
| 19 | 19 |
|
| 20 |
region_name <- "reg4" #PARAM 13 #reg4 South America, Africa reg5,Europe reg2, North America reg1, Asia reg3
|
|
| 20 |
region_name <- "reg2" #PARAM 13 #reg4 South America, Africa reg5,Europe reg2, North America reg1, Asia reg3
|
|
| 21 | 21 |
mosaicing_method <- c("unweighted","use_edge_weights")
|
| 22 | 22 |
out_suffix <- paste(region_name,"_","mosaic_run10_1500x4500_global_analyses_06212015",sep="") |
| 23 |
#_mosaic_run10_1500x4500_global_analyses_06212015 |
|
| 23 | 24 |
day_to_mosaic <- c("20100831",
|
| 24 | 25 |
"20100901") #PARAM7 |
| 25 | 26 |
|
| ... | ... | |
| 39 | 40 |
|
| 40 | 41 |
--- |
| 41 | 42 |
|
| 42 |
## Region 4
|
|
| 43 |
## Region 2
|
|
| 43 | 44 |
|
| 44 |
This presentation display mosaicing results for reg4: South America
|
|
| 45 |
This presentation display mosaicing results for reg1: Europe
|
|
| 45 | 46 |
|
| 46 | 47 |
This regions contains the following number of tiles: |
| 47 | 48 |
```{r}
|
| ... | ... | |
| 72 | 73 |
```{r, echo=FALSE}
|
| 73 | 74 |
#image_file1 <- file.path(in_dir,"Figure2_mosaic_mean_unweighted_20100831_unweighted_20100831_20100831_reg6_mosaic_r#un10_1500x4500_global_analyses_06212015.png") |
| 74 | 75 |
|
| 75 |
image_file1 <- file.path(in_dir,paste("Figure2_mosaic_mean_unweighted_20100831_unweighted_20100831_20100831_",out_suffix,".png",sep=""))
|
|
| 76 |
fname <- paste("Figure2_mosaic_mean_unweighted_20100831_unweighted_20100831_20100831_",out_suffix,".png",sep="")
|
|
| 77 |
|
|
| 78 |
image_file1 <- file.path(in_dir,fname) |
|
| 76 | 79 |
|
| 77 | 80 |
``` |
| 78 | 81 |
|
| ... | ... | |
| 86 | 89 |
# Edge weigted mean :20100831 |
| 87 | 90 |
|
| 88 | 91 |
```{r, echo=FALSE}
|
| 89 |
image_file2 <- file.path(in_dir,"Figure2_mosaic_mean_use_edge_weights_20100831_use_edge_weights_20100831_20100831_reg4_mosaic_run10_1500x4500_global_analyses_06212015.png") |
|
| 92 |
#image_file2 <- file.path(in_dir,"Figure2_mosaic_mean_use_edge_weights_20100831_use_edge_weights_20100831_20100831_r#eg4_mosaic_run10_1500x4500_global_analyses_06212015.png") |
|
| 93 |
|
|
| 94 |
|
|
| 95 |
fname <- paste("Figure2_mosaic_mean_use_edge_weights_20100831_use_edge_weights_20100831_20100831_",out_suffix,".png",sep="")
|
|
| 96 |
image_file2 <- file.path(in_dir,fname) |
|
| 97 |
|
|
| 90 | 98 |
``` |
| 91 | 99 |
|
| 92 | 100 |
```{r image_file2, echo = F, results = 'asis'}
|
| ... | ... | |
| 99 | 107 |
# Unweighted mean : 20100901 |
| 100 | 108 |
|
| 101 | 109 |
```{r, echo=FALSE}
|
| 102 |
image_file3 <- file.path(in_dir,"Figure2_mosaic_mean_unweighted_20100901_unweighted_20100901_20100901_reg4_mosaic_run10_1500x4500_global_analyses_06212015.png") |
|
| 110 |
image_file3 <- file.path(in_dir,"Figure2_mosaic_mean_unweighted_20100901_unweighted_20100901_20100901_reg2_mosaic_run10_1500x4500_global_analyses_06212015.png") |
|
| 111 |
|
|
| 112 |
#fname <- paste("Figure2_mosaic_mean_unweighted_20100901_unweighted_20100901_20100901_",out_suffix,".png",sep="")
|
|
| 113 |
#image_file3 <- file.path(in_dir,fname) |
|
| 114 |
|
|
| 103 | 115 |
``` |
| 104 | 116 |
|
| 105 | 117 |
```{r image_file3, echo = F, results = 'asis'}
|
| ... | ... | |
| 112 | 124 |
# Edge weigted mean : 20100901 |
| 113 | 125 |
|
| 114 | 126 |
```{r, echo=FALSE}
|
| 115 |
image_file4 <- file.path(in_dir,"Figure2_mosaic_mean_use_edge_weights_20100901_use_edge_weights_20100901_20100901_reg4_mosaic_run10_1500x4500_global_analyses_06212015.png") |
|
| 127 |
#image_file4 <- file.path(in_dir,"Figure2_mosaic_mean_use_edge_weights_20100901_use_edge_weights_20100901_20100901_r#eg4_mosaic_run10_1500x4500_global_analyses_06212015.png") |
|
| 128 |
|
|
| 129 |
fname <- paste("Figure2_mosaic_mean_use_edge_weights_20100901_use_edge_weights_20100901_20100901_",out_suffix,".png",sep="")
|
|
| 130 |
image_file4 <- file.path(in_dir,fname) |
|
| 131 |
|
|
| 116 | 132 |
``` |
| 117 | 133 |
|
| 118 | 134 |
```{r image_file4, echo = F, results = 'asis'}
|
Also available in: Unified diff
generating presentation for reg2, more changes