v1.0.2.0000

FIBI missing final scores for HIGHLAND. Line 181 in metric.scores.R used "WARM" instead of "HIGHLAND".
leppott · Oct 26, 2017 · 7e61dcf · 7e61dcf
1 parent 5904ca6
commit 7e61dcf
Show file tree

Hide file tree

Showing 5 changed files with 307 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: MBSStools
 Title: MBSS tool suite for calculations and data manipulation.
-Version: 1.0.1.0000
+Version: 1.0.2.0000
 Authors@R: c(
   person("Erik W.", "Leppo", email="Erik.Leppo@tetratech.com", role=c("aut","cre")),
   person("Ann","Roseberry Lincoln", role="ctb"),

diff --git a/NEWS.md b/NEWS.md
@@ -2,7 +2,7 @@ NEWS-MBSStools
 ================
 
 <!-- NEWS.md is generated from NEWS.Rmd. Please edit that file -->
-    #> Last Update: 2017-09-26 19:02:05
+    #> Last Update: 2017-10-26 10:49:01
 
 Version history.
 
@@ -11,6 +11,13 @@ Planned Updates
 
 -   None at this time.
 
+v1.0.2.0000
+===========
+
+2017-10-26
+
+-   Corrected metric.score() \[line 181\] for fish for "HIGHLANDS" was incorrectly designated. These sites were not getting a final FIBI score.
+
 v1.0.1.0000
 ===========
 

diff --git a/NEWS.rmd b/NEWS.rmd
@@ -25,6 +25,11 @@ Version history.
 
 * None at this time.
 
+# v1.0.2.0000
+2017-10-26
+
+* Corrected metric.score() [line 181] for fish for "HIGHLANDS" was incorrectly designated.  These sites were not getting a final FIBI score.
+
 # v1.0.1.0000
 2017-09-26
 

diff --git a/R/metric.scores.R b/R/metric.scores.R
@@ -178,7 +178,7 @@ metric.scores <- function(DF_Metrics, MetricNames, IndexName, IndexRegion, DF_Th
     DF_Metrics[,"IBI"][myTF,] <- DF_Metrics[myTF,"sum_IBI"]/6
   myTF <- DF_Metrics[,IndexName]=="MBSS.2005.Fish" & DF_Metrics[,IndexRegion]=="EPIEDMONT"
     DF_Metrics[,"IBI"][myTF,] <- DF_Metrics[myTF,"sum_IBI"]/6
-  myTF <- DF_Metrics[,IndexName]=="MBSS.2005.Fish" & DF_Metrics[,IndexRegion]=="WARM"
+  myTF <- DF_Metrics[,IndexName]=="MBSS.2005.Fish" & DF_Metrics[,IndexRegion]=="HIGHLAND"
     DF_Metrics[,"IBI"][myTF,] <- DF_Metrics[myTF,"sum_IBI"]/6
   myTF <- DF_Metrics[,IndexName]=="MBSS.2005.Fish" & DF_Metrics[,IndexRegion]=="COLD"
     DF_Metrics[,"IBI"][myTF,] <- DF_Metrics[myTF,"sum_IBI"]/4

diff --git a/vignettes/Notebook_MBSStools.nb.html b/vignettes/Notebook_MBSStools.nb.html