From 6c51fa0c52ecf1358eaa28358231b2b658aa29ed Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Miquel=20De=20C=C3=A1ceres?= <miquelcaceres@gmail.com>
Date: Tue, 12 Nov 2024 17:48:17 +0100
Subject: [PATCH] bug correction in summary.forest()

---
 R/summary.forest.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/summary.forest.R b/R/summary.forest.R
index 9e0de5acc..00d578c10 100644
--- a/R/summary.forest.R
+++ b/R/summary.forest.R
@@ -80,8 +80,8 @@ summary.forest<-function(object, SpParams, ...) {
   s["SWRground"] <- NA
   
   if(all(!is.na(object$treeData$Height)) && all(!is.na(object$shrubData$Height))) {
-    light_PARground(object, SpParams)
-    light_SWRground(object, SpParams)
+    s["PARground"] <- light_PARground(object, SpParams)
+    s["SWRground"] <- light_SWRground(object, SpParams)
   }
   class(s)<-c("summary.forest","list")
   return(s)