diff --git a/R/area-based.3.mapping.and.inference.Rmd b/R/area-based.3.mapping.and.inference.Rmd
index 79e28c42317fbe59222e5e612b5836603e4d02d6..73b593c6c58a949e6ee80a10cef2f8d8224afe43 100644
--- a/R/area-based.3.mapping.and.inference.Rmd
+++ b/R/area-based.3.mapping.and.inference.Rmd
@@ -169,7 +169,7 @@ dummy <- lidaRtRee::raster_metrics(r_treechm,
   },
   output = "raster"
 )
-names(dummy) <- c("TreeCanop_cover_in_plot", "TreeCanopy_meanH_in_plot")
+names(dummy) <- c("TreeCanopy_cover_in_plot", "TreeCanopy_meanH_in_plot")
 metrics_trees <- raster::addLayer(metrics_trees, dummy)
 ```
 
@@ -471,4 +471,4 @@ plot(sf::st_geometry(forest_cropped), add = TRUE)
 
 # Inference
 
-Work in progress...
\ No newline at end of file
+Work in progress...