Fix plotRGB in more places

index.Rmd

@@ -11,7 +11,12 @@ output:
     highlight.chooser: TRUE
 ---
 
-# [WUR Geoscripting](https://geoscripting-wur.github.io/) <img src="https://www.wur.nl/upload/5e55a1d9-47c3-4149-9384-26d5147ee2d7_WUR_RGB_standard.png" alt="WUR logo" style="height: 35px;"/>
+<style type="text/css">
+body {max-width: none;}
+a:visited {color: #91170a;}
+</style>
+
+# [WUR Geoscripting](https://geoscripting-wur.github.io/) <img src="https://www.wur.nl/upload/854757ab-168f-46d7-b415-f8b501eebaa5_WUR_RGB_standard_2021-site.svg" alt="WUR logo" style="height: 35px;"/>
 
 
 # Week 1, Lesson 4: Intro To Raster
@@ -396,7 +401,7 @@ cloud <- tahiti[[7]]
 cloud[cloud == 0] <- NA
 
 ## Plot the stack and the cloud mask on top of each other
-plotRGB(tahiti, 3,4,5)
+plotRGB(tahiti, 3,4,5, stretch="lin")
 plot(cloud, add = TRUE, legend = FALSE)
 ```
 
@@ -437,7 +442,7 @@ tahiti6_2 <- dropLayer(tahiti, 7)
 tahitiCloudFree <- overlay(x = tahiti6_2, y = fmask, fun = cloud2NA)
 
 ## Visualize the output
-plotRGB(tahitiCloudFree, 3,4,5)
+plotRGB(tahitiCloudFree, 3,4,5, stretch="lin")
 ```