v1.2.4.9006

* fix: Update dominance metrics (fish and bugs)
    + Dom01 used max original data not dom dataset
    + Other dom numbers unaffected

Author: leppott

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: BioMonTools
 Type: Package
 Title: Biomonitoring and Bioassessment Calculations
-Version: 1.2.4.9005
+Version: 1.2.4.9006
 Authors@R: c(
     person("Erik W.", "Leppo", 
            email="Erik.Leppo@tetratech.com", 

NEWS

@@ -4,10 +4,16 @@ NEWS
 
 <!-- NEWS.md is generated from NEWS.Rmd. Please edit that file -->
 
-    #> Last Update: 2026-01-06 13:43:43.930047
+    #> Last Update: 2026-01-12 09:29:53.560202
 
 # Version History
 
+## Changes in version 1.2.4.9006 (2026-01-12)
+
+- fix: Update dominance metrics (fish and bugs)
+  - Dom01 used max original data not dom dataset
+  - Other dom numbers unaffected
+
 ## Changes in version 1.2.4.9005 (2025-12-26)
 
 - docs: Update README, Issue \#127

NEWS.md

@@ -4,10 +4,16 @@ NEWS
 
 <!-- NEWS.md is generated from NEWS.Rmd. Please edit that file -->
 
-    #> Last Update: 2026-01-06 13:43:43.930047
+    #> Last Update: 2026-01-12 09:29:53.560202
 
 # Version History
 
+## Changes in version 1.2.4.9006 (2026-01-12)
+
+- fix: Update dominance metrics (fish and bugs)
+  - Dom01 used max original data not dom dataset
+  - Other dom numbers unaffected
+
 ## Changes in version 1.2.4.9005 (2025-12-26)
 
 - docs: Update README, Issue \#127

NEWS.rmd

@@ -18,6 +18,12 @@ cat(paste0("Last Update: ",Sys.time()))
 
 # Version History
 
+## Changes in version 1.2.4.9006 (2026-01-12)
+
+* fix: Update dominance metrics (fish and bugs)
+    + Dom01 used max original data not dom dataset
+    + Other dom numbers unaffected
+    
 ## Changes in version 1.2.4.9005 (2025-12-26)
 
 * docs: Update README, Issue #127

R/metric_values.R

@@ -2687,7 +2687,7 @@ metric.values.bugs <- function(myDF
 
                                 ### Dominant N ####
                                 ## uses previously defined values added to myDF
-                                , pi_dom01 = 100 * max(N_TAXA, na.rm = TRUE) / ni_total
+                                , pi_dom01 = 100 * max(ni_dom01, na.rm = TRUE) / ni_total
                                 , pi_dom02 = 100 * max(ni_dom02, na.rm = TRUE) / ni_total
                                 , pi_dom03 = 100 * max(ni_dom03, na.rm = TRUE) / ni_total
                                 , pi_dom04 = 100 * max(ni_dom04, na.rm = TRUE) / ni_total
@@ -4640,7 +4640,7 @@ metric.values.fish <- function(myDF
 
                  ## Dominant N ####
                  ## uses previously defined values added to myDF
-                 , pi_dom01 = 100 * max(N_TAXA, na.rm = TRUE) / ni_total
+                 , pi_dom01 = 100 * max(ni_dom01, na.rm = TRUE) / ni_total
                  , pi_dom02 = 100 * max(ni_dom02, na.rm = TRUE) / ni_total
                  , pi_dom03 = 100 * max(ni_dom03, na.rm = TRUE) / ni_total
                  , pi_dom04 = 100 * max(ni_dom04, na.rm = TRUE) / ni_total