Merge pull request #120 from USEPA/119-update-mc2-agg-t-wells

119 update mc2 agg t wells
USEPA · Aug 14, 2023 · de9adbc · de9adbc
2 parents a15188d + 576f5a0
commit de9adbc
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/R/mc2_mthds.R b/R/mc2_mthds.R
@@ -59,6 +59,10 @@
 #' 
 #' \subsection{Aggregation Methods}{
 #' \describe{
+#'  \item{agg.mean.rep.apid}{Aggregate technical test replicates (wllt=t) by taking the plate-wise mean per sample id (spid), assay plate (apid), and concentration index (cndx).}
+#'  \item{agg.median.rep.apid}{Aggregate technical test replicates (wllt=t) by taking the plate-wise median per sample id (spid), assay plate (apid), and concentration index (cndx).}
+#'  \item{agg.percent.rep.spid}{Use for binary data. Aggregate technical replicates as percentage by taking the sum of hits relative to total replicates per sample id (spid) and concentration index (cndx); cval = (sum(rval)/.N)*100.}
+#'  \item{agg.percent.rep.spid.min1}{Use for binary data. Aggregate technical replicates as percentage by taking the sum of hits relative to total replicates per per sample id (spid) and concentration index (cndx), where there is more than one replicate; cval = (sum(rval)/.N)*100, where .N>1.}
 #'  \item{agg.mean.rep.apid}{Aggregate technical replicates by taking the plate-wise mean per 
 #'  sample id (spid), assay plate (apid), and concentration index (cndx).}
 #'  \item{agg.median.rep.apid}{Aggregate technical replicates by taking the plate-wise median per 
@@ -174,15 +178,15 @@ mc2_mthds <- function() {
 
     agg.mean.rep.apid = function() {
 
-      e1 <- bquote(dat[ , cval := mean(cval),
+      e1 <- bquote(dat[wllt=="t", cval := mean(cval),
                         by = list(acid, spid, apid, cndx)])
       list(e1)
 
     },
 
     agg.median.rep.apid = function() {
 
-      e1 <- bquote(dat[ , cval := median(cval),
+      e1 <- bquote(dat[wllt=="t", cval := median(cval),
                         by = list(acid, spid, apid, cndx)])
       list(e1)