Project

General

Profile

« Previous | Next » 

Revision 30c0f20c

Added by Benoit Parmentier over 9 years ago

generating slidify presentation for reg5

View differences:

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