Merge pull request #52 from ldecicco-USGS/master

Added error handling. Fixes #50.
DOI-USGS · Apr 13, 2015 · 59013ec · 59013ec
2 parents 4e3e8ac + 2df0854
commit 59013ec
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/modelEstimation.R b/R/modelEstimation.R
@@ -43,6 +43,11 @@ modelEstimation<-function(eList,
   localSample <- getSample(eList)
   localDaily <- getDaily(eList)
 
+  if(any(localSample$ConcLow[!is.na(localSample$ConcLow)] == 0)){
+
+    stop("modelEstimation cannot be run with 0 values in ConcLow. An estimate of the reporting limit needs to be included. See fixSampleFrame to adjust the Sample data frame")
+  }
+
   numDays <- length(localDaily$DecYear)
   DecLow <- localDaily$DecYear[1]
   DecHigh <- localDaily$DecYear[numDays]