Revision 30c0f20c
Added by Benoit Parmentier over 9 years ago
climate/research/oregon/interpolation/mosaicing_presentation_summary.Rmd | ||
---|---|---|
1 | 1 |
--- |
2 |
title : Mosaicing test summary region 2, Europe
|
|
2 |
title : Mosaicing test summary region 5, Africa
|
|
3 | 3 |
subtitle : Global assessment interpolation |
4 | 4 |
author : Benoit Parmentier |
5 |
job : NEX job reg2
|
|
5 |
job : NEX job reg5
|
|
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/reg2/output_reg2_mosaic_run10_1500x4500_global_analyses_06212015"
|
|
18 |
in_dir <- "/data/project/layers/commons/NEX_data/mosaicing_data_test/reg5/output_reg5_mosaic_run10_1500x4500_global_analyses_06262015"
|
|
19 | 19 |
|
20 |
region_name <- "reg2" #PARAM 13 #reg4 South America, Africa reg5,Europe reg2, North America reg1, Asia reg3
|
|
20 |
region_name <- "reg5" #PARAM 13 #reg4 South America, Africa reg5,Europe reg2, North America reg1, Asia reg3
|
|
21 | 21 |
mosaicing_method <- c("unweighted","use_edge_weights") |
22 |
out_suffix <- paste(region_name,"_","mosaic_run10_1500x4500_global_analyses_06212015",sep="")
|
|
22 |
out_suffix <- paste(region_name,"_","mosaic_run10_1500x4500_global_analyses_06262015",sep="")
|
|
23 | 23 |
#_mosaic_run10_1500x4500_global_analyses_06212015 |
24 | 24 |
day_to_mosaic <- c("20100831", |
25 | 25 |
"20100901") #PARAM7 |
... | ... | |
40 | 40 |
|
41 | 41 |
--- |
42 | 42 |
|
43 |
## Region 2
|
|
43 |
## Region 5
|
|
44 | 44 |
|
45 |
This presentation display mosaicing results for reg1: Europe
|
|
45 |
This presentation display mosaicing results for reg5: Africa
|
|
46 | 46 |
|
47 | 47 |
This regions contains the following number of tiles: |
48 | 48 |
```{r} |
... | ... | |
107 | 107 |
# Unweighted mean : 20100901 |
108 | 108 |
|
109 | 109 |
```{r, echo=FALSE} |
110 |
image_file3 <- file.path(in_dir,"Figure2_mosaic_mean_unweighted_20100901_unweighted_20100901_20100901_reg2_mosaic_run10_1500x4500_global_analyses_06212015.png") |
|
110 |
#image_file3 <- file.path(in_dir,"Figure2_mosaic_mean_unweighted_20100901_unweighted_20100901_20100901_reg2_mosaic_r#un10_1500x4500_global_analyses_06212015.png") |
|
111 |
|
|
112 |
fname <- paste("Figure2_mosaic_mean_unweighted_20100901_unweighted_20100901_20100901_",out_suffix,".png",sep="") |
|
113 |
|
|
114 |
image_file3 <- file.path(in_dir,fname) |
|
111 | 115 |
|
112 | 116 |
#fname <- paste("Figure2_mosaic_mean_unweighted_20100901_unweighted_20100901_20100901_",out_suffix,".png",sep="") |
113 | 117 |
#image_file3 <- file.path(in_dir,fname) |
... | ... | |
197 | 201 |
``` |
198 | 202 |
|
199 | 203 |
```{r image_file8, echo = F, results = 'asis'} |
200 |
md_str <- paste('\n![](',image_file7,')\n',sep="")
|
|
204 |
md_str <- paste('\n![](',image_file8,')\n',sep="")
|
|
201 | 205 |
cat(md_str) |
202 | 206 |
``` |
203 | 207 |
|
Also available in: Unified diff
generating slidify presentation for reg5