bug correction in summary.forest()

emf-creaf · Nov 12, 2024 · 6c51fa0 · 6c51fa0
1 parent 0b8b8b9
commit 6c51fa0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)