Hi Im trying to replicate this although my .tif doesnt seem to be loading properly as i get this error message:

class       : SpatRaster 
dimensions  : 5972, 5020, 1  (nrow, ncol, nlyr)
resolution  : 100, 100  (x, y)
extent      : 2863300, 3365300, 3211800, 3809000  (xmin, xmax, ymin, ymax)
coord. ref. : ETRS89-extended / LAEA Europe (EPSG:3035) 
source      : U2018_CLC2018_V2020_20u1.tif 
name        : U2018_CLC2018_V2020_20u1 
Warning message:
In class(object) <- "environment" :
  Setting class(x) to "environment" sets attribute to NULL; result will no longer be an S4 object

Any advice would be greatly appreciated!