Add a title on the last slide

index.Rmd

@@ -1139,7 +1139,7 @@ plot(0,type='n',axes=FALSE,ann=FALSE)
 legend("topleft",legend = levels(samples.type),fill = 1:4,cex=1.2)
 ```
 
-##
+## Comparing diversity of the environments
 
 ```{r}
 guiana.relfreq.final = apply(guiana.relfreq.final,

index.html

@@ -2309,7 +2309,7 @@ guiana.jac.50.pcoa = cmdscale(guiana.jac.50.dist,k=3,eig = TRUE)</pre>
 
 <p><img src="index_files/figure-html/unnamed-chunk-84-1.png" width="1152" /></p>
 
-</article></slide><slide class=""><hgroup><h2></h2></hgroup><article  id="section" class="smaller ">
+</article></slide><slide class=""><hgroup><h2>Comparing diversity of the environments</h2></hgroup><article  id="comparing-diversity-of-the-environments" class="smaller ">
 
 <p><img src="index_files/figure-html/unnamed-chunk-86-1.png" width="864" /></p>