Merge pull request #332 from USEPA/324-remove-sig-fig-transform-in-mc3-and-sc1

324 removed lines from mc3 and sc1 that round concs

Author: cthunes

Diff for: R/mc3.R

@@ -55,9 +55,6 @@ mc3 <- function(ac, wr = FALSE) {
 
   stime <- Sys.time()
 
-  ## Force all concentrations to 1 significant figure
-  dat[ , conc := signif(conc, 1)]
-
   ## Load aeid mapping information.
   aeid_info <- tcplLoadAeid("acid", ac)[ , list(acid, aeid)]
   setkey(aeid_info, acid)

Diff for: R/sc1.R

@@ -59,10 +59,6 @@ sc1 <- function(ac, wr = FALSE) {
   ## Remove data with well quality of 0
   dat <- dat[wllq == 1]
 
-  ## Force all concentrations to 1 significant figure
-  dat[ , conc := signif(conc, 1)]
-  
-  
   ## Load aeid mapping information.
   aeid_info <- tcplLoadAeid("acid", ac)[ , list(acid, aeid)]
   setkey(aeid_info, acid)