Project

General

Profile

« Previous | Next » 

Revision c5abcbae

Added by Benoit Parmentier over 9 years ago

slidify presentation global assessment scaling up Africa 1992

View differences:

climate/research/oregon/interpolation/presentation_global_run_scalingup_assessment.Rmd
98 98 

  		




  99
  99
  
    
```


  		




  100
  100
  
    

  		




  101
  
  
    
# ACCUARY OVERALL FOR MODEL 1


  		




  
  101
  
    
---


  		




  
  102
  
    

  		




  
  103
  
    
# ACCURACY OVERALL FOR MODEL 1


  		




  102
  104
  
    

  		




  103
  105
  
    
```{r, echo=FALSE}


  		




  104
  106
  
    
#image_file2 <- file.path(in_dir,"Figure9_clim_mosaics_day_test_edge_weighted_20100831_world_mosaic_07092015.png")


  		




  105
  107
  
    

  		




  106
  108
  
    

  		




  107
  109
  
    
fname <- paste("Figure3a_boxplot_overall_region_with_oultiers_mod_kr_run10_1500x4500_global_analyses_pred_1992_09012015.png")


  		




  108
  
  
    
image_file2 <- file.path(in_dir,fname)


  		




  
  110
  
    
image_file4 <- file.path(in_dir,fname)


  		




  109
  111
  
    

  		




  110
  112
  
    
fname <- paste("Figure3b_boxplot_overall_region_scaling_mod_kr_run10_1500x4500_global_analyses_pred_1992_09012015.png")


  		




  111
  
  
    
image_file3 <- file.path(in_dir,fname)


  		




  
  113
  
    
image_file5 <- file.path(in_dir,fname)


  		




  112
  114
  
    

  		




  113
  115
  
    
```


  		




  114
  116
  
    

  		




  115
  117
  
    

  		




  116
  
  
    
```{r image_file2, echo = F, results = 'asis', fig.show = 'hold', out.width = '50%',out.extra='style=""'}


  		




  
  118
  
    
```{r image_file4,image_file5, echo = F, results = 'asis', fig.show = 'hold', out.width = '50%',out.extra='style=""'}


  		




  117
  119
  
    

  		




  118
  
  
    
md_str <- paste('\n![](',image_file2,') ','![](',image_file3,')\n',sep="") 


  		




  
  120
  
    
md_str <- paste('\n![](',image_file4,') ','![](',image_file5,')\n',sep="") 


  		




  
  121
  
    
cat(md_str)


  		




  
  122
  
    
#md_str <- paste('\n![](',image_file2,')\n',sep="") 


  		




  
  123
  
    
#cat(md_str)


  		




  
  124
  
    

  		




  
  125
  
    
#![alt-text-1](image1.png "title-1") ![alt-text-2](image2.png "title-2")


  		




  
  126
  
    

  		




  
  127
  
    
cat("Mod1: tmax <- s(lat,long,k=5) + s(elev_s,k=5)")


  		




  
  128
  
    

  		




  
  129
  
    
```


  		




  
  130
  
    

  		




  
  131
  
    
---


  		




  
  132
  
    

  		




  
  133
  
    
# AVERAGE ACCURACY RANKED BY TILES 


  		




  
  134
  
    

  		




  
  135
  
    
```{r, echo=FALSE}


  		




  
  136
  
    
#image_file2 <- file.path(in_dir,"Figure9_clim_mosaics_day_test_edge_weighted_20100831_world_mosaic_07092015.png")


  		




  
  137
  
    

  		




  
  138
  
    

  		




  
  139
  
    
fname <- paste("Figure5_ac_metrics_ranked_mod1_run10_1500x4500_global_analyses_pred_1992_09012015.png")


  		




  
  140
  
    
image_file6 <- file.path(in_dir,fname)


  		




  
  141
  
    

  		




  
  142
  
    
fname <- paste("Figure5_ac_metrics_ranked_mod_kr_run10_1500x4500_global_analyses_pred_1992_09012015.png")


  		




  
  143
  
    
image_file7 <- file.path(in_dir,fname)


  		




  
  144
  
    

  		




  
  145
  
    
```


  		




  
  146
  
    

  		




  
  147
  
    

  		




  
  148
  
    
```{r image_file6,image_file7, echo = F, results = 'asis', fig.show = 'hold', out.width = '50%',out.extra='style=""'}


  		




  
  149
  
    

  		




  
  150
  
    
md_str <- paste('\n![](',image_file6,') ','![](',image_file7,')\n',sep="") 


  		




  119
  151
  
    
cat(md_str)


  		




  120
  152
  
    
#md_str <- paste('\n![](',image_file2,')\n',sep="") 


  		




  121
  153
  
    
#cat(md_str)


  		




  ......




  123
  155
  
    
#![alt-text-1](image1.png "title-1") ![alt-text-2](image2.png "title-2")


  		




  124
  156
  
    

  		




  125
  157
  
    

  		




  
  158
  
    

  		




  
  159
  
    
```


  		




  
  160
  
    

  		




  
  161
  
    
---


  		




  
  162
  
    

  		




  
  163
  
    
# Averae RMSE mod1 for 1500x4500km 


  		




  
  164
  
    

  		




  
  165
  
    
```{r, echo=FALSE}


  		




  
  166
  
    
#image_file1 <- file.path(in_dir,"Figure9_clim_mosaics_day_test_unweighted_20100831_world_mosaic_07092015")


  		




  
  167
  
    

  		




  
  168
  
    
fname <- paste("Figure6_ac_metrics_map_centroids_tile_mod1_run10_1500x4500_global_analyses_pred_1992_09012015.png")


  		




  
  169
  
    

  		




  
  170
  
    
image_file8 <- file.path(in_dir,fname)


  		




  
  171
  
    

  		




  126
  172
  
    
```


  		




  127
  173
  
    

  		




  
  174
  
    
```{r image_file8, echo = F, results = 'asis'}


  		




  
  175
  
    
#| I am text to the left  | ![Flowers](/flowers.jpeg) |


  		




  
  176
  
    
#md_str <- paste('\n|        |![](',image_file1,')\n',sep="") 


  		




  
  177
  
    
#md_str <- paste('\n->![alt text](',image_file1,'),<-\n',sep="")


  		




  
  178
  
    
#<center>![Alt test](http://upload.wikimedia.org/wikipedia/en/b/bc/Wiki.png)</center>


  		




  
  179
  
    
md_str <- paste('\n<center>![](',image_file8,')<center>\n',sep="")


  		




  
  180
  
    
#md_str <- paste('\n![](',image_file1,'#center)\n',sep="")


  		




  
  181
  
    
#fig.align = "center"


  		




  
  182
  
    
cat(md_str)


  		




  
  183
  
    
```


  		




  128
  184
  
    

  		




  129
  185
  
    
---


  		




  130
  186
  
    

  		




  
  187
  
    
# Predicted less than 367


  		




  
  188
  
    

  		




  
  189
  
    
```{r, echo=FALSE}


  		




  
  190
  
    
#image_file1 <- file.path(in_dir,"Figure9_clim_mosaics_day_test_unweighted_20100831_world_mosaic_07092015")


  		




  
  191
  
    

  		




  
  192
  
    
fname <- paste("Figure7a_ac_metrics_map_centroids_tile_mod1_missing_day_367_run10_1500x4500_global_analyses_pred_1992_09012015.png")


  		




  
  193
  
    

  		




  
  194
  
    
image_file9 <- file.path(in_dir,fname)


  		




  
  195
  
    

  		




  
  196
  
    
```


  		




  
  197
  
    

  		




  
  198
  
    
```{r image_file9, echo = F, results = 'asis'}


  		




  
  199
  
    
#| I am text to the left  | ![Flowers](/flowers.jpeg) |


  		




  
  200
  
    
#md_str <- paste('\n|        |![](',image_file1,')\n',sep="") 


  		




  
  201
  
    
#md_str <- paste('\n->![alt text](',image_file1,'),<-\n',sep="")


  		




  
  202
  
    
#<center>![Alt test](http://upload.wikimedia.org/wikipedia/en/b/bc/Wiki.png)</center>


  		




  
  203
  
    
md_str <- paste('\n<center>![](',image_file9,')<center>\n',sep="")


  		




  
  204
  
    
#md_str <- paste('\n![](',image_file1,'#center)\n',sep="")


  		




  
  205
  
    
#fig.align = "center"


  		




  
  206
  
    
cat(md_str)


  		




  
  207
  
    
```


  		




  
  208
  
    

  		




  
  209
  
    
---


  		




  
  210
  
    

  		




  
  211
  
    
# Predicted less than 365


  		




  
  212
  
    

  		




  
  213
  
    
```{r, echo=FALSE}


  		




  
  214
  
    
#image_file1 <- file.path(in_dir,"Figure9_clim_mosaics_day_test_unweighted_20100831_world_mosaic_07092015")


  		




  
  215
  
    

  		




  
  216
  
    
fname <- paste("Figure7a_ac_metrics_map_centroids_tile_mod1_missing_day_365_run10_1500x4500_global_analyses_pred_1992_09012015.png")


  		




  
  217
  
    

  		




  
  218
  
    
image_file10 <- file.path(in_dir,fname)


  		




  
  219
  
    

  		




  
  220
  
    
```


  		




  
  221
  
    

  		




  
  222
  
    
```{r image_file10, echo = F, results = 'asis'}


  		




  
  223
  
    
#| I am text to the left  | ![Flowers](/flowers.jpeg) |


  		




  
  224
  
    
#md_str <- paste('\n|        |![](',image_file1,')\n',sep="") 


  		




  
  225
  
    
#md_str <- paste('\n->![alt text](',image_file1,'),<-\n',sep="")


  		




  
  226
  
    
#<center>![Alt test](http://upload.wikimedia.org/wikipedia/en/b/bc/Wiki.png)</center>


  		




  
  227
  
    
md_str <- paste('\n<center>![](',image_file10,')<center>\n',sep="")


  		




  
  228
  
    
#md_str <- paste('\n![](',image_file1,'#center)\n',sep="")


  		




  
  229
  
    
#fig.align = "center"


  		




  
  230
  
    
cat(md_str)


  		




  
  231
  
    
```


  		




  
  232
  
    

  		




  
  233
  
    
---


  		




  
  234
  
    

  		




  
  235
  
    
# Predicted less than 300


  		




  
  236
  
    

  		




  
  237
  
    
```{r, echo=FALSE}


  		




  
  238
  
    
#image_file1 <- file.path(in_dir,"Figure9_clim_mosaics_day_test_unweighted_20100831_world_mosaic_07092015")


  		




  
  239
  
    

  		




  
  240
  
    
fname <- paste("Figure7a_ac_metrics_map_centroids_tile_mod1_missing_day_300_run10_1500x4500_global_analyses_pred_1992_09012015.png")


  		




  
  241
  
    

  		




  
  242
  
    
image_file11 <- file.path(in_dir,fname)


  		




  
  243
  
    

  		




  
  244
  
    
```


  		




  
  245
  
    

  		




  
  246
  
    
```{r image_file11, echo = F, results = 'asis'}


  		




  
  247
  
    
#| I am text to the left  | ![Flowers](/flowers.jpeg) |


  		




  
  248
  
    
#md_str <- paste('\n|        |![](',image_file1,')\n',sep="") 


  		




  
  249
  
    
#md_str <- paste('\n->![alt text](',image_file1,'),<-\n',sep="")


  		




  
  250
  
    
#<center>![Alt test](http://upload.wikimedia.org/wikipedia/en/b/bc/Wiki.png)</center>


  		




  
  251
  
    
md_str <- paste('\n<center>![](',image_file11,')<center>\n',sep="")


  		




  
  252
  
    
#md_str <- paste('\n![](',image_file1,'#center)\n',sep="")


  		




  
  253
  
    
#fig.align = "center"


  		




  
  254
  
    
cat(md_str)


  		




  
  255
  
    
```


  		




  
  256
  
    

  		




  
  257
  
    

  		




  131
  258
  
    

  		




  132
  259
  
    
#########


  		












Also available in:  Unified diff