# INBO CODING CLUB 25 November 2021 Welcome! ## Share your code snippet If you want to share your code snippet, copy paste your snippet within a section of three backticks (```): As an **example**: ``` library(tidyverse) ``` (*you can copy paste this example and add your code further down*) ## Yellow sticky notes No yellow sticky notes online. Put your name + " | " and add a "*" each time you solve a challenge (see below). ## Participants Name | Challenges --- | --- Damiano Oldoni | *** Hans Van Calster |** Emma Cartuyvels|** Tom De Dobbelaer |** Karen Cox | ** Els Lommelen |** Raïsa Carmen |*** Jolien Goossens|** Toon Spanhove | Jasmijn Hillaert| Britt Lonneville| ** Jeroen Vanden Borre | ** Jeroen Speybroeck | ** Toon Westra|** ## Challenge 1 To set legend with land use classes: ```r plot(lu_nara_2016, type = "classes", col = legend$color, levels = legend$land_use) ``` ## Challenge 2 ## INTERMEZZO ## Challenge 3 Raïsa ```r ext(dsm) ext(dtm)#extends do not match dsm <- resample(dsm,dtm) #Resample (warp) values to a SpatRaster with a different origin and/or resolution chm <- dsm - dtm #works! ``` ## Bonus challenge