# 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