Project

General

Profile

« Previous | Next » 

Revision e88580e7

Added by Benoit Parmentier over 9 years ago

generating slidify presentation for reg6, modifications to make it more general from Rmd

View differences:

climate/research/oregon/interpolation/mosaicing_presentation_summary.Rmd
11 11 
knit        : slidify::knit2slides
12 12 
---
13 13 

  		




  
  14
  
    
```{r,echo=F}


  		




  
  15
  
    
#First let's set up the input director


  		




  
  16
  
    
in_dir <- "/data/project/layers/commons/NEX_data/mosaicing_data_test/reg6/output_reg6_mosaic_run10_1500x4500_global_analyses_06212015"


  		




  
  17
  
    

  		




  
  18
  
    
region_name <- "reg6" #PARAM 13 #reg4 South America, Africa reg5,Europe reg2, North America reg1, Asia reg3


  		




  
  19
  
    
mosaicing_method <- c("unweighted","use_edge_weights")


  		




  
  20
  
    
out_suffix <- paste(region_name,"_","mosaic_run10_1500x4500_global_analyses_06212015",sep="") 


  		




  
  21
  
    

  		




  
  22
  
    
png_files <- list.files(path=in_dir,pattern=paste("*",out_suffix,".png",sep=""))


  		




  
  23
  
    

  		




  
  24
  
    
```


  		




  
  25
  
    

  		




  14
  26
  
    
## Mosaicing with two methods


  		




  15
  27
  
    

  		




  16
  28
  
    

  		




  17
  
  
    
1. Unweighted mean


  		




  18
  
  
    
2. distance from edge


  		




  
  29
  
    
1. Unweighted mean: each image a pixel has no specific weight


  		




  
  30
  
    
2. distance from edge: weights of pixels depends on distance to edges for each tiles


  		




  19
  31
  
    

  		




  20
  32
  
    
This was done for two dates:


  		




  21
  33
  
    
- 20100831


  		




  22
  34
  
    
- 20100901


  		




  23
  35
  
    

  		




  
  36
  
    
---


  		




  
  37
  
    

  		




  
  38
  
    
## Region 6


  		




  
  39
  
    

  		




  
  40
  
    
This presentation display mosaicing results for reg6: North America.


  		




  
  41
  
    

  		




  
  42
  
    
Show number of tiles:


  		




  
  43
  
    
```{r}


  		




  
  44
  
    
length(list.files(path=in_dir,pattern="*_use_edge_prod_weights_m_20100901_reg6_mosaic_run10_1500x4500_global_analyses_06212015.tif"))


  		




  
  45
  
    
```


  		




  
  46
  
    

  		




  24
  47
  
    
--- .class #id 


  		




  25
  48
  
    

  		




  26
  49
  
    
<!-- Limit image width and height -->


  		




  ......




  39
  62
  
    
});


  		




  40
  63
  
    
</script>


  		




  41
  64
  
    

  		




  42
  
  
    
# Unweighted mean reg1: 20100831


  		




  43
  
  
    
![Caption for the picture.](/data/project/layers/commons/NEX_data/mosaicing_data_test/reg1/output_reg1_mosaic_run10_1500x4500_global_analyses_06212015/Figure2_mosaic_mean_unweighted_20100831_unweighted_20100831_20100831_reg1_mosaic_run10_1500x4500_global_analyses_06212015.png)


  		




  
  65
  
    
# Unweighted mean reg: 20100831


  		




  
  66
  
    

  		




  
  67
  
    
```{r, echo=FALSE}


  		




  
  68
  
    
image_file1 <- file.path(in_dir,"Figure2_mosaic_mean_unweighted_20100831_unweighted_20100831_20100831_reg6_mosaic_run10_1500x4500_global_analyses_06212015.png")


  		




  
  69
  
    
```


  		




  
  70
  
    

  		




  
  71
  
    
```{r image_file1, echo = F, results = 'asis'}


  		




  
  72
  
    
md_str <- paste('\n![This is it](',image_file1,')\n',sep="") 


  		




  
  73
  
    
cat(md_str)


  		




  
  74
  
    
```


  		




  44
  75
  
    

  		




  45
  76
  
    
---


  		




  46
  77
  
    

  		




  47
  
  
    
# Edge weigted mean reg1:20100831


  		




  48
  
  
    
![Caption for the picture.](/data/project/layers/commons/NEX_data/mosaicing_data_test/reg1/output_reg1_mosaic_run10_1500x4500_global_analyses_06212015/Figure2_mosaic_mean_use_edge_weights_20100831_use_edge_weights_20100831_20100831_reg1_mosaic_run10_1500x4500_global_analyses_06212015.png)


  		




  
  78
  
    
# Edge weigted mean :20100831


  		




  
  79
  
    

  		




  
  80
  
    
```{r, echo=FALSE}


  		




  
  81
  
    
image_file2 <- file.path(in_dir,"Figure2_mosaic_mean_use_edge_weights_20100831_use_edge_weights_20100831_20100831_reg6_mosaic_run10_1500x4500_global_analyses_06212015.png")


  		




  
  82
  
    
```


  		




  
  83
  
    

  		




  
  84
  
    
```{r image_file2, echo = F, results = 'asis'}


  		




  
  85
  
    
md_str <- paste('\n![This is it](',image_file2,')\n',sep="") 


  		




  
  86
  
    
cat(md_str)


  		




  
  87
  
    
```


  		




  49
  88
  
    

  		




  50
  89
  
    
---


  		




  51
  90
  
    

  		




  52
  
  
    
# Unweighted mean reg1: 20100901


  		




  53
  
  
    
![Caption for the picture.](/data/project/layers/commons/NEX_data/mosaicing_data_test/reg1/output_reg1_mosaic_run10_1500x4500_global_analyses_06212015/Figure2_mosaic_mean_unweighted_20100901_unweighted_20100901_20100901_reg1_mosaic_run10_1500x4500_global_analyses_06212015.png)


  		




  
  91
  
    
# Unweighted mean : 20100901


  		




  
  92
  
    

  		




  
  93
  
    
```{r, echo=FALSE}


  		




  
  94
  
    
image_file3 <- file.path(in_dir,"Figure2_mosaic_mean_unweighted_20100901_unweighted_20100901_20100901_reg6_mosaic_run10_1500x4500_global_analyses_06212015.png")


  		




  
  95
  
    
```


  		




  
  96
  
    

  		




  
  97
  
    
```{r image_file3, echo = F, results = 'asis'}


  		




  
  98
  
    
md_str <- paste('\n![This is it](',image_file3,')\n',sep="") 


  		




  
  99
  
    
cat(md_str)


  		




  
  100
  
    
```


  		




  54
  101
  
    

  		




  55
  102
  
    
---


  		




  56
  103
  
    

  		




  57
  
  
    
# Edge weigted mean reg1: 20100901


  		




  58
  
  
    
![Caption for the picture.](/data/project/layers/commons/NEX_data/mosaicing_data_test/reg1/output_reg1_mosaic_run10_1500x4500_global_analyses_06212015/Figure2_mosaic_mean_use_edge_weights_20100901_use_edge_weights_20100901_20100901_reg1_mosaic_run10_1500x4500_global_analyses_06212015.png)


  		




  
  104
  
    
# Edge weigted mean : 20100901


  		




  
  105
  
    

  		




  
  106
  
    
```{r, echo=FALSE}


  		




  
  107
  
    
image_file4 <- file.path(in_dir,"Figure2_mosaic_mean_use_edge_weights_20100901_use_edge_weights_20100901_20100901_reg6_mosaic_run10_1500x4500_global_analyses_06212015.png")


  		




  
  108
  
    
```


  		




  
  109
  
    

  		




  
  110
  
    
```{r image_file4, echo = F, results = 'asis'}


  		




  
  111
  
    
md_str <- paste('\n![This is it](',image_file4,')\n',sep="") 


  		




  
  112
  
    
cat(md_str)


  		




  
  113
  
    
```


  		




  59
  114
  
    

  		




  60
  115
  
    
---


  		




  61
  116
  
    

  		




  62
  
  
    
# Unweigted mean reg1 slope: 20100831


  		




  63
  
  
    
![Caption for the picture.](/data/project/layers/commons/NEX_data/mosaicing_data_test/reg1/output_reg1_mosaic_run10_1500x4500_global_analyses_06212015/Figure2_slope_mean_unweighted_20100831_unweighted_20100831_20100831_reg1_mosaic_run10_1500x4500_global_analyses_06212015.png)


  		




  
  117
  
    
# Unweigted mean  slope: 20100831


  		




  
  118
  
    

  		




  
  119
  
    
```{r, echo=FALSE}


  		




  
  120
  
    
image_file5 <- file.path(in_dir,"Figure2_slope_mean_unweighted_20100831_unweighted_20100831_20100831_reg6_mosaic_run10_1500x4500_global_analyses_06212015.png")


  		




  
  121
  
    
```


  		




  
  122
  
    

  		




  
  123
  
    
```{r image_file5, echo = F, results = 'asis'}


  		




  
  124
  
    
md_str <- paste('\n![This is it](',image_file5,')\n',sep="") 


  		




  
  125
  
    
cat(md_str)


  		




  
  126
  
    
```


  		




  64
  127
  
    

  		




  65
  128
  
    
---


  		




  66
  129
  
    

  		












Also available in:  Unified diff