updates knfi 1.0.1.0009

SYOUNG9836 · Nov 30, 2024 · 87c27ff · 87c27ff
1 parent c249c66
commit 87c27ff
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: knfi
 Title: Analysis of Korean National Forest Inventory Database
-Version: 1.0.1
+Version: 1.0.1.0009
 Maintainer: Sinyoung Park <[email protected]>
 Authors@R: 
   c(person(given = "Sinyoung", family = "Park", role = c("aut", "cre"), email = "[email protected]", comment = c(ORCID = "0000-0003-3658-0935")),

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,7 @@
+# knfi 1.0.1.0009
+## Bug fixes
+* Fixed a bug in `biomass_nfi`
+
 # knfi 1.0.1
 ## Bug fixes
 * Fixed a bug in `summary_nfi` and `biomass_nfi` where functions were not working when `largetree_area = FALSE`.

diff --git a/R/biomass_nfi.R b/R/biomass_nfi.R
@@ -276,7 +276,7 @@ biomass_nfi <- function(data, byplot= FALSE, plotgrp=NULL, treegrp= NULL, contin
                 tree_area= sum(tree_area, na.rm=TRUE),.groups = 'drop')
 
     bm_temp <- df %>% 
-      group_by(CYCLE, !!plot_id, INVYR, largetree, !!!plotgrp, SP, !!strat) %>% 
+      group_by(CYCLE, !!plot_id, INVYR, largetree, !!!plotgrp, !!!treegrp, !!strat) %>% 
       summarise(volume_m3 = sum(VOL_EST, na.rm=TRUE),
                 biomass_ton = sum(T_biomass, na.rm=TRUE),
                 AG_biomass_ton = sum(AG_biomass, na.rm=TRUE),