diff --git a/.github/workflows/test-on-PR.yaml b/.github/workflows/test-on-PR.yaml
index e9549a97..6a991b0d 100644
--- a/.github/workflows/test-on-PR.yaml
+++ b/.github/workflows/test-on-PR.yaml
@@ -2,7 +2,7 @@
 # Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help
 on:
   pull_request:
-    branches: [main]
+    branches: [main, dev]
 
 name: test-coverage
 
diff --git a/R/data.R b/R/data.R
index 7e34358e..b5da029c 100644
--- a/R/data.R
+++ b/R/data.R
@@ -490,4 +490,258 @@
 #'   \item{scagg}{Column names returned requesting sc lvl "agg" data}
 #' }
 #' @source ToxCast database
-"load_data_columns"
\ No newline at end of file
+"load_data_columns"
+
+
+#' List of lists containing queries sent to tcplQuery associated with each test
+#' case. Each list also contains the associated ids with each case. Only meant
+#' to be used with automated testing with mocking for mc data.
+#' @format A list with 30 items:
+#' \describe{
+#'   \item{tcplConfQuery}{Data table with 1 row and 2 columns used for each test
+#'   case for establishing connection using tcplConf. This data table mocks the
+#'   response one would get from connecting with invitrodb.}
+#'   \item{mc0_by_m0id}{List containing the queries used for loading mc0 data by
+#'   m0id via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 'm0id' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{mc0_by_acid}{List containing the queries used for loading mc0 data by
+#'   acid via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 'acid' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{mc1_by_m1id}{List containing the queries used for loading mc1 data by
+#'   m1id via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 'm1id' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{mc1_by_acid}{List containing the queries used for loading mc1 data by
+#'   acid via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 'acid' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{mc2_by_m2id}{List containing the queries used for loading mc2 data by
+#'   m2id via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 'm2id' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{mc2_by_acid}{List containing the queries used for loading mc2 data by
+#'   acid via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 'acid' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{mc3_by_m3id}{List containing the queries used for loading mc3 data by
+#'   m3id via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 'm3id' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{mc3_by_aeid}{List containing the queries used for loading mc3 data by
+#'   aeid via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 'aeid' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{mc4_by_m4id}{List containing the queries used for loading mc4 data by
+#'   m4id via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 'm4id' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{mc4_by_aeid}{List containing the queries used for loading mc4 data by
+#'   aeid via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 'aeid' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{mc5_by_m5id}{List containing the queries used for loading mc5 data by
+#'   m5id via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 'm5id' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{mc5_by_aeid}{List containing the queries used for loading mc5 data by
+#'   aeid via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 'aeid' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{mc6_by_m6id}{List containing the queries used for loading mc6 data by
+#'   m6id via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 'm6id' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{mc6_by_aeid}{List containing the queries used for loading mc6 data by
+#'   aeid via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 'aeid' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{mc7_by_m7id}{List containing the queries used for loading mc7 data by
+#'   m7id via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 'm7id' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{mc7_by_aeid}{List containing the queries used for loading mc7 data by
+#'   aeid via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 'aeid' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{mcagg_by_aeid}{List containing the queries used for loading mc 'agg'
+#'   data by aeid via tcplLoadData. Each query has an associated data table 
+#'   response for mocking an actual connection. Contains one 'aeid' labeled item
+#'   storing the id used to load the data, for use in tests.}
+#'   \item{plot_single_m4id}{List containing the queries used for loading and
+#'   plotting mc data by m4id via tcplPlot. Each query has an associated data
+#'   table response for mocking an actual connection. Contains one 'm4id'
+#'   labeled item storing the id used to load the data, for use in tests.}
+#'   \item{plot_multiple_m4id}{List containing the queries used for loading and
+#'   plotting mc data by multiple m4ids via tcplPlot. Each query has an
+#'   associated data table response for mocking an actual connection. Contains
+#'   one 'm4id' labeled item storing the ids used to load the data, for use in
+#'   tests.}
+#'   \item{plot_single_aeid}{List containing the queries used for loading and
+#'   plotting mc data by aeid via tcplPlot. Each query has an associated data
+#'   table response for mocking an actual connection. Contains one 'aeid'
+#'   labeled item storing the id used to load the data, for use in tests.}
+#'   \item{plot_multiple_aeid}{List containing the queries used for loading and
+#'   plotting mc data by multiple aeids via tcplPlot. Each query has an
+#'   associated data table response for mocking an actual connection. Contains
+#'   one 'aeid' labeled item storing the ids used to load the data, for use in
+#'   tests.}
+#'   \item{plot_single_spid}{List containing the queries used for loading and
+#'   plotting mc data by spid/aeid via tcplPlot. Each query has an associated
+#'   data table response for mocking an actual connection. Contains 'spid' and
+#'   'aeid' labeled items storing the ids used to load the data, for use in
+#'   tests.}
+#'   \item{plot_multiple_spid}{List containing the queries used for loading and
+#'   plotting mc data by multiple spids/aeid via tcplPlot. Each query has an
+#'   associated data table response for mocking an actual connection. Contains
+#'   'spid' and 'aeid' labeled items storing the ids used to load the data, for
+#'   use in tests.}
+#'   \item{plot_single_m4id_compare}{List containing the queries used for 
+#'   loading and plotting compared mc data by m4id via tcplPlot. Each query has
+#'   an associated data table response for mocking an actual connection.
+#'   Contains 'm4id' and 'compare.m4id' labeled items storing the ids used to
+#'   load the data, for use in tests.}
+#'   \item{plot_multiple_m4id_compare}{List containing the queries used for loading and
+#'   plotting compared mc data by multiple m4ids via tcplPlot. Each query has an
+#'   associated data table response for mocking an actual connection. Contains 
+#'   'm4id' and 'compare.m4id' labeled items storing the ids used to load the 
+#'   data, for use in tests.}
+#'   \item{plot_single_aeid_compare}{List containing the queries used for
+#'   loading and plotting compared mc data by aeid via tcplPlot. Each query has
+#'   an associated data table response for mocking an actual connection.
+#'   Contains 'aeid' and 'compare.aeid' labeled items storing the ids used to
+#'   load the data, for use in tests.}
+#'   \item{plot_multiple_aeid_compare}{List containing the queries used for
+#'   loading and plotting compared mc data by multiple aeids via tcplPlot. Each
+#'   query has an associated data table response for mocking an actual
+#'   connection. Contains 'aeid' and 'compare.aeid' labeled items storing the
+#'   ids used to load the data, for use in tests.}
+#'   \item{plot_single_spid_compare}{List containing the queries used for
+#'   loading and plotting compared mc data by spid/aeid via tcplPlot. Each query
+#'   has an associated data table response for mocking an actual connection.
+#'   Contains 'spid', 'compare.spid', 'aeid', and 'compare.aeid' labeled items
+#'   storing the ids used to load the data, for use in tests.}
+#'   \item{plot_multiple_spid_compare}{List containing the queries used for
+#'   loading and plotting compared mc data by multiple spids/aeid via tcplPlot.
+#'   Each query has an associated data table response for mocking an actual
+#'   connection. Contains 'spid', 'compare.spid', 'aeid', and 'compare.aeid'
+#'   labeled items storing the ids used to load the data, for use in tests.}
+#' }
+#' @source ToxCast database
+"mc_test"
+
+
+#' List of lists containing queries sent to tcplQuery associated with each test
+#' case. Each list also contains the associated ids with each case. Only meant
+#' to be used with automated testing with mocking for sc data.
+#' @format A list with 20 items:
+#' \describe{
+#'   \item{tcplConfQuery}{Data table with 1 row and 2 columns used for each test
+#'   case for establishing connection using tcplConf. This data table mocks the
+#'   response one would get from connecting with invitrodb.}
+#'   \item{sc0_by_s0id}{List containing the queries used for loading sc0 data by
+#'   s0id via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 's0id' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{sc0_by_acid}{List containing the queries used for loading sc0 data by
+#'   acid via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 'acid' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{sc1_by_s1id}{List containing the queries used for loading sc1 data by
+#'   s1id via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 's1id' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{sc1_by_acid}{List containing the queries used for loading sc1 data by
+#'   acid via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 'acid' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{sc2_by_s2id}{List containing the queries used for loading sc2 data by
+#'   s2id via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 's2id' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{sc2_by_aeid}{List containing the queries used for loading sc2 data by
+#'   aeid via tcplLoadData. Each query has an associated data table response for
+#'   mocking an actual connection. Contains one 'aeid' labeled item storing the
+#'   id used to load the data, for use in tests.}
+#'   \item{scagg_by_aeid}{List containing the queries used for loading sc 'agg'
+#'   data by aeid via tcplLoadData. Each query has an associated data table 
+#'   response for mocking an actual connection. Contains one 'aeid' labeled item
+#'   storing the id used to load the data, for use in tests.}
+#'   \item{plot_single_s2id}{List containing the queries used for loading and
+#'   plotting sc data by s2id via tcplPlot. Each query has an associated data
+#'   table response for mocking an actual connection. Contains one 's2id'
+#'   labeled item storing the id used to load the data, for use in tests.}
+#'   \item{plot_multiple_s2id}{List containing the queries used for loading and
+#'   plotting sc data by multiple s2ids via tcplPlot. Each query has an
+#'   associated data table response for mocking an actual connection. Contains
+#'   one 's2id' labeled item storing the ids used to load the data, for use in
+#'   tests.}
+#'   \item{plot_single_aeid}{List containing the queries used for loading and
+#'   plotting sc data by aeid via tcplPlot. Each query has an associated data
+#'   table response for mocking an actual connection. Contains one 'aeid'
+#'   labeled item storing the id used to load the data, for use in tests.}
+#'   \item{plot_multiple_aeid}{List containing the queries used for loading and
+#'   plotting sc data by multiple aeids via tcplPlot. Each query has an
+#'   associated data table response for mocking an actual connection. Contains
+#'   one 'aeid' labeled item storing the ids used to load the data, for use in
+#'   tests.}
+#'   \item{plot_single_spid}{List containing the queries used for loading and
+#'   plotting sc data by spid/aeid via tcplPlot. Each query has an associated
+#'   data table response for mocking an actual connection. Contains 'spid' and
+#'   'aeid' labeled items storing the ids used to load the data, for use in
+#'   tests.}
+#'   \item{plot_multiple_spid}{List containing the queries used for loading and
+#'   plotting sc data by multiple spids/aeid via tcplPlot. Each query has an
+#'   associated data table response for mocking an actual connection. Contains
+#'   'spid' and 'aeid' labeled items storing the ids used to load the data, for
+#'   use in tests.}
+#'   \item{plot_single_s2id_compare}{List containing the queries used for 
+#'   loading and plotting compared sc data by s2id via tcplPlot. Each query has
+#'   an associated data table response for mocking an actual connection.
+#'   Contains 's2id' and 'compare.s2id' labeled items storing the ids used to
+#'   load the data, for use in tests.}
+#'   \item{plot_multiple_s2id_compare}{List containing the queries used for loading and
+#'   plotting compared sc data by multiple s2ids via tcplPlot. Each query has an
+#'   associated data table response for mocking an actual connection. Contains 
+#'   's2id' and 'compare.s2id' labeled items storing the ids used to load the 
+#'   data, for use in tests.}
+#'   \item{plot_single_aeid_compare}{List containing the queries used for
+#'   loading and plotting compared sc data by aeid via tcplPlot. Each query has
+#'   an associated data table response for mocking an actual connection.
+#'   Contains 'aeid' and 'compare.aeid' labeled items storing the ids used to
+#'   load the data, for use in tests.}
+#'   \item{plot_multiple_aeid_compare}{List containing the queries used for
+#'   loading and plotting compared sc data by multiple aeids via tcplPlot. Each
+#'   query has an associated data table response for mocking an actual
+#'   connection. Contains 'aeid' and 'compare.aeid' labeled items storing the
+#'   ids used to load the data, for use in tests.}
+#'   \item{plot_single_spid_compare}{List containing the queries used for
+#'   loading and plotting compared sc data by spid/aeid via tcplPlot. Each query
+#'   has an associated data table response for mocking an actual connection.
+#'   Contains 'spid', 'compare.spid', 'aeid', and 'compare.aeid' labeled items
+#'   storing the ids used to load the data, for use in tests.}
+#'   \item{plot_multiple_spid_compare}{List containing the queries used for
+#'   loading and plotting compared sc data by multiple spids/aeid via tcplPlot.
+#'   Each query has an associated data table response for mocking an actual
+#'   connection. Contains 'spid', 'compare.spid', 'aeid', and 'compare.aeid'
+#'   labeled items storing the ids used to load the data, for use in tests.}
+#' }
+#' @source ToxCast database
+"sc_test"
+
+
+#' List containing ids used for different automated tests of tcpl integration
+#' with the CTX APIs, randomly selected from what is available via API.
+#' @format A list with 7 items:
+#' \describe{
+#'   \item{aeid}{Randomly selected assay component endpoint id}
+#'   \item{acid}{Assay component id associated with the above aeid}
+#'   \item{aid}{Assay id associated with the above aeid}
+#'   \item{asid}{Assay source id associated with the above aeid}
+#'   \item{dtxsid}{dsstox substance id of one sample from the above aeid}
+#'   \item{spid}{Sample id of one (the same) sample from the above aeid}
+#'   \item{m4id}{Level 4 id of one (the same) sample from the above aeid}
+#' }
+#' @source CTX Bioactivity API
+"test_api"
\ No newline at end of file
diff --git a/R/tcplConf.R b/R/tcplConf.R
index 8fc42930..8c6071c4 100644
--- a/R/tcplConf.R
+++ b/R/tcplConf.R
@@ -74,9 +74,9 @@ tcplConf <- function (drvr = NULL, user = NULL, pass = NULL, host = NULL,
     
     if (drvr == "API") {
       options("TCPL_DRVR" = "API")
-      if (is.null(pass)) stop("'API' driver requires an API-key, supply it to 
-                              the 'pass' parameter. To request a key, send an
-                              email to ccte_api@epa.gov.")
+      if (is.null(pass)) stop("'API' driver requires an API-key, supply it to ", 
+                              "the 'pass' parameter. To request a key, send an ",
+                              "email to ccte_api@epa.gov.")
       if (is.null(host)) options("TCPL_HOST" = "https://api-ccte.epa.gov/bioactivity")
       register_ctx_api_key(key = pass)
     }
diff --git a/R/tcplLoadChem.R b/R/tcplLoadChem.R
index 80e1f525..7b50a7ab 100644
--- a/R/tcplLoadChem.R
+++ b/R/tcplLoadChem.R
@@ -59,6 +59,9 @@ tcplLoadChem <- function(field = NULL, val = NULL, exact = TRUE,
     if (tolower(field) != "spid") stop("When drvr option is set to 'API', only 'spid' is a valid 'field' value.")
     if (!exact) exact <- TRUE
     dat <- tcplQueryAPI(resource = "data", fld = "spid", val = val, return_flds = c("spid", "chid", "casn", "chnm", "dsstox_substance_id"))
+    if (!length(colnames(dat))) {
+      return(dat)
+    } 
     setorder(dat, "spid")
   } else {
     tbl <- c("chemical", "sample")
diff --git a/R/tcplLoadConcUnit.R b/R/tcplLoadConcUnit.R
index 31dd8c23..b8d7f155 100644
--- a/R/tcplLoadConcUnit.R
+++ b/R/tcplLoadConcUnit.R
@@ -21,8 +21,10 @@ tcplLoadConcUnit <- function(spid) {
   
   if (getOption("TCPL_DRVR") == "API") {
     dat <- tcplQueryAPI(resource = "data", fld = "spid", val = spid, return_flds = c("spid", "tested_conc_unit"))
-    setnames(dat, "tested_conc_unit", "conc_unit")
-    setorder(dat, "spid")
+    if (length(colnames(dat))) {
+      setnames(dat, "tested_conc_unit", "conc_unit")
+      setorder(dat, "spid")
+    }
     return(unique(dat, by = c("spid", "conc_unit")))
   }
   
diff --git a/R/tcplLoadData.R b/R/tcplLoadData.R
index fdfb73b4..c510cb57 100644
--- a/R/tcplLoadData.R
+++ b/R/tcplLoadData.R
@@ -108,7 +108,7 @@ tcplLoadData <- function(lvl, fld = NULL, val = NULL, type = "mc", add.fld = TRU
       }
       else if (lvl == 1L) {
         sc1 <- sc_vignette[["sc1"]]
-        sc1 <- sc1[,c("s0id","s1id","spid","acid","aeid","apid","rowi","coli","wllt","logc","resp")]
+        sc1 <- sc1[,c("s0id","s1id","spid","acid","aeid","apid","rowi","coli","wllt","conc","resp")]
         return(sc1)
       }
       
@@ -121,7 +121,7 @@ tcplLoadData <- function(lvl, fld = NULL, val = NULL, type = "mc", add.fld = TRU
         sc1 <- sc_vignette[["sc1"]]
         sc2 <- sc_vignette[["sc2"]]
         agg <- sc1[sc2, on = c("spid","aeid")]
-        agg <- agg[,c("aeid","s2id","s1id","s0id","logc","resp")]
+        agg <- agg[,c("aeid","s2id","s1id","s0id","conc","resp")]
         return(agg)
       }
       else stop("example tables for sc0, sc1, sc2, agg available.")
@@ -146,14 +146,17 @@ tcplLoadData <- function(lvl, fld = NULL, val = NULL, type = "mc", add.fld = TRU
       } 
       else if (lvl == 3L) {
         mc3 <- mc_vignette[["mc3"]]
-        mc3 <- mc3[,c("m0id","m1id","m2id","m3id","spid","aeid","logc","resp","cndx","wllt","apid","rowi","coli","repi")]
+        mc3 <- mc3[,c("m0id","m1id","m2id","m3id","spid","aeid","conc","resp","cndx","wllt","apid","rowi","coli","repi")]
         return(mc3)
       } 
       else if (lvl == 4L) {
         mc4 <- mc_vignette[["mc4"]]
         if (!add.fld) {
-          mc4 <- mc4[,c("m4id","aeid","spid","bmad","resp_max","resp_min","max_mean","max_mean_conc","max_med","max_med_conc",
-                        "logc_max","logc_min","nconc","npts","nrep","nmed_gtbl")]
+          mc4 <- mc4[,c("m4id", "aeid", "spid", "bmad", "resp_max", "resp_min", 
+                        "max_mean", "max_mean_conc", "min_mean", "min_mean_conc", 
+                        "max_med", "max_med_conc", "min_med", "min_med_conc", 
+                        "max_med_diff", "max_med_diff_conc", "conc_max", "conc_min", 
+                        "nconc", "npts", "nrep", "nmed_gtbl_pos", "nmed_gtbl_neg")]
         } else {
           mc4 <- mc4[,!c("chid","casn","chnm","dsstox_substance_id","code","aenm","resp_unit","conc_unit")]
           setcolorder(mc4, c("m4id", "aeid", "spid"))
@@ -163,10 +166,15 @@ tcplLoadData <- function(lvl, fld = NULL, val = NULL, type = "mc", add.fld = TRU
       else if (lvl == 5L) {
         mc5 <- mc_vignette[["mc5"]]
         if (!add.fld){
-          mc5 <- mc5[,c("m5id","m4id","aeid","spid","bmad","resp_max","resp_min","max_mean","max_mean_conc","max_med",
-                        "max_med_conc","logc_max","logc_min","nconc","npts","nrep","nmed_gtbl","hitc","modl","fitc","coff")]
+          mc5 <- mc5[,c("m5id","m4id", "aeid", "spid", "bmad", "resp_max", "resp_min", 
+                        "max_mean", "max_mean_conc", "min_mean", "min_mean_conc", 
+                        "max_med", "max_med_conc", "min_med", "min_med_conc", 
+                        "max_med_diff", "max_med_diff_conc", "conc_max", "conc_min", 
+                        "nconc", "npts", "nrep", "nmed_gtbl_pos", "nmed_gtbl_neg",
+                        "hitc", "modl", "fitc", "coff")]
         } else {
-          mc5 <- mc5[,!c("chid","casn","chnm","dsstox_substance_id","code","aenm","resp_unit","conc_unit","tp","ga","q","la","ac50_loss")]
+          mc5 <- mc5[,!c("chid","casn","chnm","dsstox_substance_id","code","aenm",
+                         "resp_unit","conc_unit","tp","ga","q","la","ac50_loss")]
           setcolorder(mc5, c("m5id", "m4id","aeid", "spid"))
         }
         return(mc5)
@@ -175,7 +183,8 @@ tcplLoadData <- function(lvl, fld = NULL, val = NULL, type = "mc", add.fld = TRU
         mc3 <- mc_vignette[["mc3"]]
         mc4 <- mc_vignette[["mc4"]]
         agg <- mc3[mc4, on = c("spid","aeid")]
-        agg <- agg[, c("aeid", "m4id", "m3id", "m2id", "m1id", "m0id", "spid", "logc", "resp")]
+        agg <- agg[, c("aeid", "m4id", "m3id", "m2id", "m1id", "m0id", "spid", 
+                       "conc", "resp")]
         return(agg)
 
       }
@@ -204,15 +213,18 @@ tcplLoadData <- function(lvl, fld = NULL, val = NULL, type = "mc", add.fld = TRU
     # query the API 
     dat <- tcplQueryAPI(fld = fld, val = val, return_flds = cols)
     
-    if (lvl == 3) {
-      dat$resp <- lapply(dat$resp, unlist)
-      dat$logc <- lapply(dat$logc, unlist)
-      dat <- unnest_longer(dat, c(conc, logc, resp)) %>% as.data.table()
-    }
-    
-    if (lvl == 6) {
-      dat$flag <- lapply(dat$flag, unlist)
-      dat <- unnest_longer(dat, flag) %>% filter(flag != "NULL") %>% as.data.table()
+    if (length(colnames(dat))) {
+      if (lvl == 3 | lvl == "agg") {
+        dat$resp <- lapply(dat$resp, unlist)
+        dat$logc <- lapply(dat$logc, unlist)
+        if (lvl == 3) dat <- unnest_longer(dat, c(conc, logc, resp)) %>% as.data.table() 
+        else dat <- unnest_longer(dat, c(logc, resp)) %>% as.data.table() 
+      }
+      
+      if (lvl == 6) {
+        dat$flag <- lapply(dat$flag, unlist)
+        dat <- unnest_longer(dat, flag) %>% filter(flag != "NULL") %>% as.data.table()
+      }
     }
 
     return(dat)
diff --git a/R/tcplPlot.R b/R/tcplPlot.R
index e29445ce..a7a44cdc 100644
--- a/R/tcplPlot.R
+++ b/R/tcplPlot.R
@@ -202,7 +202,7 @@ tcplPlotlyPlot <- function(dat, lvl = 5){
   # extract range from level 3 data for creating plotting all the functions
   # increase resolution to get smoother curves
   resolution <- 100
-  x_min_max <- range(l3_dat_both$conc)
+  x_min_max <- range(l3_dat_both$conc, na.rm=TRUE)
   #if the overall minimum conc is greater than 0 (test wells)
   if (x_min_max[1] > 0) {
     hline_range <- 10^(seq(from = log10(x_min_max[1]/100), to = log10(x_min_max[2]*100), length.out = resolution))
@@ -413,11 +413,13 @@ tcplPlotlyPlot <- function(dat, lvl = 5){
     }
     
     # compare data
-    if (!is.null(compare.dat$coff) && compare.dat$max_med < 0) {
-      compare.dat$coff <- compare.dat$coff * -1
-    }
-    if (!is.null(compare.dat$coff) && !is.null(compare.dat$hitc) && compare.dat$hitc < 0) {
-      compare.dat$coff <- compare.dat$coff * -1
+    if (nrow(compare.dat) > 0) {
+      if (!is.null(compare.dat$coff) && compare.dat$max_med < 0) {
+        compare.dat$coff <- compare.dat$coff * -1
+      }
+      if (!is.null(compare.dat$coff) && !is.null(compare.dat$hitc) && compare.dat$hitc < 0) {
+        compare.dat$coff <- compare.dat$coff * -1
+      }
     }
   }
   
diff --git a/R/tcplPlotUtils.R b/R/tcplPlotUtils.R
index bcaa921b..467b1b09 100644
--- a/R/tcplPlotUtils.R
+++ b/R/tcplPlotUtils.R
@@ -38,7 +38,7 @@ tcplPlotSetYRange <- function(dat,yuniform,yrange,type){
 }
   
   
-  tcplPlotValidate <- function(type = "mc",flags = NULL,output = "none",multi = FALSE,verbose = FALSE){
+  tcplPlotValidate <- function(type = "mc",flags = NULL,output = "none",multi = NULL,verbose = FALSE){
     
     # set lvl based on type
     lvl <- 5
@@ -46,6 +46,7 @@ tcplPlotSetYRange <- function(dat,yuniform,yrange,type){
       lvl <- 2
       if (flags == TRUE) {
         warning("'flags' was set to TRUE - no flags exist for plotting single concentration")
+        flags = FALSE
       }
     }
     
diff --git a/data-raw/mc_test.R b/data-raw/mc_test.R
new file mode 100644
index 00000000..cd209fad
--- /dev/null
+++ b/data-raw/mc_test.R
@@ -0,0 +1,161 @@
+#==============================================================================#
+# NOTE: This script is written such that it is run from 'top' to 'bottom'
+#       or programmatically via the Terminal.
+#         ('R CMD BATCH --vanilla <script.R>'.)
+#       Please do not jump around when running this script.
+#==============================================================================#
+# NOTE: You MUST temporarily update tcplQuery() by adding a line at the top of the
+#       function: print(query). 
+#       This is because the queries will be captured from output and saved as
+#       part of the mocking data.
+#==============================================================================#
+## r packages
+devtools::load_all()
+
+library(here)
+library(dplyr)
+library(stringr)
+#---------------------------#
+## code to prepare `mc_test` dataset goes here
+# source the user ID, password, host, and database information for connection
+#  - NOTE: To replicate one will need to save their own 'db_cred.R', including
+#          the 'userid', 'userpwd', 'host', and DB collection via 'ivtdb'.
+source(file = here::here("data-raw/db_cred.R"),verbose = FALSE)
+# connect to the DB
+tcplConf(user = userid,
+         pass = userpwd,
+         host = host,
+         db = ivtdb,
+         drvr = "MySQL")
+
+# pick endpoints and ids
+# load the number of rows and max hitc per aeid
+mc5_counts <- tcplQuery("SELECT DISTINCT aeid, 
+                        COUNT( aeid ) as n, 
+                        max(hitc) as max_hitc
+                        FROM invitrodb.mc5 GROUP BY aeid")
+# filter to only include where at least one sample is active and n < 10
+mc5_counts <- mc5_counts %>% filter(max_hitc > 0.9 & n == 2)
+# pick one aeid
+aeid <- selected <- mc5_counts[sample(1:nrow(mc5_counts),size = 1,replace = FALSE),aeid]
+# obtain the acid for the example dataset
+acid <- tcplLoadAcid(fld = 'aeid',val = aeid)$acid
+# pick one sample/row from each level (lvl 3 contains ids back to lvl 0 and lvl 6 does back to lvl 4)
+l3 <- tcplLoadData(lvl = 3, fld = "acid", val = acid)
+l3_sample1 <- l3[sample(1:nrow(l3),size = 1,replace = FALSE)]
+l3_sample2 <- l3[sample(1:nrow(l3),size = 2,replace = FALSE)]
+l5 <- tcplLoadData(lvl = 5, fld = "aeid", val = aeid, add.fld = FALSE)
+l5_sample1 <- l5[sample(1:nrow(l5),size = 1,replace = FALSE)]
+l5_sample2 <- l5[sample(1:nrow(l5),size = 2,replace = FALSE)]
+l6 <- tcplLoadData(lvl = 6, fld = "aeid", val = aeid, add.fld = FALSE)
+l6_sample1 <- l6[sample(1:nrow(l6),size = 1,replace = FALSE)]
+l6_sample2 <- l6[sample(1:nrow(l6),size = 2,replace = FALSE)]
+l7 <- tcplLoadData(lvl = 7, fld = "aeid", val = aeid, add.fld = FALSE)
+l7_sample1 <- l7[sample(1:nrow(l7),size = 1,replace = FALSE)]
+l7_sample2 <- l7[sample(1:nrow(l7),size = 2,replace = FALSE)]
+# pick compare.val endpoints and ids
+# be sure to only allow to choose from endpoints with the same number of samples
+mc5_counts <- filter(mc5_counts, n == mc5_counts[aeid == selected]$n & aeid != selected)
+compare.aeid <- mc5_counts[sample(1:nrow(mc5_counts),size = 1,replace = FALSE),aeid]
+compare.l5 <- tcplLoadData(lvl = 5, fld = "aeid", val = compare.aeid)
+compare.l5_sample1 <- compare.l5[sample(1:nrow(compare.l5),size = 1,replace = FALSE)]
+compare.l5_sample2 <- compare.l5[sample(1:nrow(compare.l5),size = 2,replace = FALSE)]
+
+
+get_query_data <- function(lvl, fld, val, compare.val = NULL, add.fld = TRUE, func = "tcplLoadData") {
+  message(compare.val)
+  if (func == "tcplLoadData") {
+    # IMPORTANT || MUST ADD TEMPORARY LINE TO TCPLQUERY --------------------------
+    # add temporary line to top of tcplQuery to get the query string: print(query)
+    query_strings <- capture.output(result<-tcplLoadData(lvl = lvl, fld = fld, val = val, add.fld = add.fld))
+  } else if (func == "tcplPlot") {
+    query_strings <- capture.output(result<-tcplPlot(type = "mc", fld = fld, 
+                                                     val = val, compare.val = compare.val, 
+                                                     output = "pdf", multi = TRUE, flags = TRUE, 
+                                                     fileprefix = "temp_tcplPlot"))
+    file.remove(stringr::str_subset(list.files(), "^temp_tcplPlot")) # clean up
+  }
+  
+  query_strings <- unique(gsub("\\\\", "\\\"", gsub("\"", "", gsub("\\\\n", "\\\n", gsub("\\[1\\] ", "", query_strings)))))
+  
+  # use queries to save data
+  dat <- lapply(query_strings, function(query_string) {
+    return(tcplQuery(query_string))
+  })
+  names(dat) <- query_strings
+  
+  # also store fld and val in list object for use in test case
+  dat[fld] <- val
+  if (!is.null(compare.val)) dat[sprintf("compare.%s", fld)] <- compare.val
+  return(dat)
+  
+}
+
+
+# to add more tests with new/different data to test-tcplLoadData.R, add lines below and run script
+mc_test <- list(
+  tcplConfQuery = tcplQuery("SHOW VARIABLES LIKE 'max_allowed_packet'"),
+  mc0_by_m0id = get_query_data(lvl = 0, fld = "m0id", val = l3_sample1$m0id),
+  mc0_by_acid = get_query_data(lvl = 0, fld = "acid", val = acid),
+  mc1_by_m1id = get_query_data(lvl = 1, fld = "m1id", val = l3_sample1$m1id),
+  mc1_by_acid = get_query_data(lvl = 1, fld = "acid", val = acid),
+  mc2_by_m2id = get_query_data(lvl = 2, fld = "m2id", val = l3_sample1$m2id),
+  mc2_by_acid = get_query_data(lvl = 2, fld = "acid", val = acid),
+  mc3_by_m3id = get_query_data(lvl = 3, fld = "m3id", val = l3_sample1$m3id),
+  mc3_by_aeid = get_query_data(lvl = 3, fld = "aeid", val = aeid),
+  mc4_by_m4id = get_query_data(lvl = 4, fld = "m4id", val = l5_sample1$m4id),
+  mc4_by_aeid = get_query_data(lvl = 4, fld = "aeid", val = aeid, add.fld = FALSE),
+  mc5_by_m5id = get_query_data(lvl = 5, fld = "m5id", val = l5_sample1$m5id),
+  mc5_by_aeid = get_query_data(lvl = 5, fld = "aeid", val = aeid, add.fld = FALSE),
+  mc6_by_m6id = get_query_data(lvl = 6, fld = "m6id", val = l6_sample1$m6id),
+  mc6_by_aeid = get_query_data(lvl = 6, fld = "aeid", val = aeid),
+  mc7_by_m7id = get_query_data(lvl = 7, fld = "m7id", val = l7_sample1$m7id),
+  mc7_by_aeid = get_query_data(lvl = 7, fld = "aeid", val = aeid),
+  mcagg_by_aeid = get_query_data(lvl = "agg", fld = "aeid", val = aeid),
+  plot_single_m4id = get_query_data(fld = "m4id", 
+                                    val = l5_sample1$m4id, 
+                                    func = "tcplPlot"),
+  plot_multiple_m4id = get_query_data(fld = "m4id", 
+                                      val = list(l5_sample2$m4id), 
+                                      func = "tcplPlot"),
+  plot_single_aeid = get_query_data(fld = "aeid", 
+                                    val = aeid, 
+                                    func = "tcplPlot"),
+  plot_multiple_aeid = get_query_data(fld = "aeid", 
+                                      val = list(c(aeid, compare.aeid)), 
+                                      func = "tcplPlot"),
+  plot_single_spid = get_query_data(fld = c("spid", "aeid"), 
+                                    val = list(l5_sample1$spid, aeid), 
+                                    func = "tcplPlot"),
+  plot_multiple_spid = get_query_data(fld = c("spid", "aeid"), 
+                                      val = list(l5_sample2$spid, aeid), 
+                                      func = "tcplPlot"),
+  plot_single_m4id_compare = get_query_data(fld = "m4id", 
+                                            val = l5_sample1$m4id, 
+                                            compare.val = compare.l5_sample1$m4id, 
+                                            func = "tcplPlot"),
+  plot_multiple_m4id_compare = get_query_data(fld = "m4id", 
+                                              val = list(l5_sample2$m4id), 
+                                              compare.val = list(compare.l5_sample2$m4id), 
+                                              func = "tcplPlot"),
+  plot_single_aeid_compare = get_query_data(fld = "aeid", 
+                                            val = aeid, 
+                                            compare.val = compare.aeid, 
+                                            func = "tcplPlot"),
+  plot_multiple_aeid_compare = get_query_data(fld = "aeid", 
+                                              val = list(c(aeid, compare.aeid)), 
+                                              compare.val = list(c(compare.aeid, aeid)), 
+                                              func = "tcplPlot"),
+  plot_single_spid_compare = get_query_data(fld = c("spid", "aeid"), 
+                                            val = list(l5_sample1$spid, aeid), 
+                                            compare.val = list(compare.l5_sample1$spid, compare.aeid), 
+                                            func = "tcplPlot"),
+  plot_multiple_spid_compare = get_query_data(fld = c("spid", "aeid"), 
+                                              val = list(l5_sample2$spid, aeid), 
+                                              compare.val = list(compare.l5_sample2$spid, compare.aeid), 
+                                              func = "tcplPlot")
+)
+#---------------------------#
+## save the data
+usethis::use_data(mc_test, overwrite = TRUE)
+#---------------------------#
\ No newline at end of file
diff --git a/data-raw/sc_test.R b/data-raw/sc_test.R
new file mode 100644
index 00000000..4928f9ae
--- /dev/null
+++ b/data-raw/sc_test.R
@@ -0,0 +1,146 @@
+#==============================================================================#
+# NOTE: This script is written such that it is run from 'top' to 'bottom'
+#       or programmatically via the Terminal.
+#         ('R CMD BATCH --vanilla <script.R>'.)
+#       Please do not jump around when running this script.
+#==============================================================================#
+# NOTE: You MUST temporarily update tcplQuery() by adding a line at the top of the
+#       function: print(query). 
+#       This is because the queries will be captured from output and saved as
+#       part of the mocking data.
+#==============================================================================#
+## r packages
+devtools::load_all()
+
+library(here)
+library(dplyr)
+library(stringr)
+#---------------------------#
+## code to prepare `sc_test` dataset goes here
+# source the user ID, password, host, and database information for connection
+#  - NOTE: To replicate one will need to save their own 'db_cred.R', including
+#          the 'userid', 'userpwd', 'host', and DB collection via 'ivtdb'.
+source(file = here::here("data-raw/db_cred.R"),verbose = FALSE)
+# connect to the DB
+tcplConf(user = userid,
+         pass = userpwd,
+         host = host,
+         db = ivtdb,
+         drvr = "MySQL")
+
+# pick endpoints and ids
+# load the number of rows and max hitc per aeid
+sc2_counts <- tcplQuery("SELECT DISTINCT aeid, 
+                        COUNT( aeid ) as n, 
+                        max(hitc) as max_hitc
+                        FROM invitrodb.sc2 GROUP BY aeid")
+# filter to only include where at least one sample is active and n = 7
+sc2_counts <- sc2_counts %>% filter(max_hitc > 0.9 & n == 7)
+# pick one aeid
+aeid <- selected <- sc2_counts[sample(1:nrow(sc2_counts),size = 1,replace = FALSE),aeid]
+# obtain the acid for the example dataset
+acid <- tcplLoadAcid(fld = 'aeid',val = aeid)$acid
+# pick one sample/row from each level (lvl 1 contains ids back to lvl 0)
+l1 <- tcplLoadData(type = "sc", lvl = 1, fld = "acid", val = acid)
+l1_sample1 <- l1[sample(1:nrow(l1),size = 1,replace = FALSE)]
+l1_sample2 <- l1[sample(1:nrow(l1),size = 2,replace = FALSE)]
+l2 <- tcplLoadData(type = "sc", lvl = 2, fld = "aeid", val = aeid)
+l2_sample1 <- l2[sample(1:nrow(l2),size = 1,replace = FALSE)]
+l2_sample2 <- l2[sample(1:nrow(l2),size = 2,replace = FALSE)]
+# pick compare.val endpoints and ids
+# be sure to only allow to choose from endpoints with the same number of samples
+sc2_counts <- filter(sc2_counts, n == sc2_counts[aeid == selected]$n & aeid != selected)
+compare.aeid <- sc2_counts[sample(1:nrow(sc2_counts),size = 1,replace = FALSE),aeid]
+compare.l2 <- tcplLoadData(type = "sc", lvl = 2, fld = "aeid", val = compare.aeid)
+compare.l2_sample1 <- compare.l2[sample(1:nrow(compare.l2),size = 1,replace = FALSE)]
+compare.l2_sample2 <- compare.l2[sample(1:nrow(compare.l2),size = 2,replace = FALSE)]
+
+
+get_query_data <- function(lvl, fld, val, compare.val = NULL, add.fld = TRUE, func = "tcplLoadData") {
+  
+  # IMPORTANT || MUST ADD TEMPORARY LINE TO TCPLQUERY --------------------------
+  # add temporary line to top of tcplQuery to get the query string: print(query)
+  if (func == "tcplLoadData") {
+    query_strings <- capture.output(result<-tcplLoadData(type = "sc", lvl = lvl, fld = fld, val = val, add.fld = add.fld))
+  } else if (func == "tcplPlot") {
+    query_strings <- capture.output(result<-tcplPlot(type = "sc", fld = fld, 
+                                                     val = val, compare.val = compare.val, 
+                                                     output = "pdf", multi = TRUE, verbose = TRUE,
+                                                     fileprefix = "temp_tcplPlot"))
+    file.remove(stringr::str_subset(list.files(), "^temp_tcplPlot")) # clean up
+  }
+  
+  query_strings <- unique(gsub("\\\\", "\\\"", gsub("\"", "", gsub("\\\\n", "\\\n", gsub("\\[1\\] ", "", query_strings)))))
+  
+  # use queries to save data
+  dat <- lapply(query_strings, function(query_string) {
+    return(tcplQuery(query_string))
+  })
+  names(dat) <- query_strings
+  
+  # also store fld and val in list object for use in test case
+  dat[fld] <- val
+  if (!is.null(compare.val)) dat[sprintf("compare.%s", fld)] <- compare.val
+  return(dat)
+  
+}
+
+
+
+# to add more tests with new/different data to test-tcplLoadData.R, add lines below and run script
+sc_test <- list(
+  tcplConfQuery = tcplQuery("SHOW VARIABLES LIKE 'max_allowed_packet'"),
+  sc0_by_s0id = get_query_data(lvl = 0, fld = "s0id", val = l1_sample1$s0id),
+  sc0_by_acid = get_query_data(lvl = 0, fld = "acid", val = acid),
+  sc1_by_s1id = get_query_data(lvl = 1, fld = "s1id", val = l1_sample1$s1id),
+  sc1_by_acid = get_query_data(lvl = 1, fld = "acid", val = acid),
+  sc2_by_s2id = get_query_data(lvl = 2, fld = "s2id", val = l2_sample1$s2id),
+  sc2_by_aeid = get_query_data(lvl = 2, fld = "aeid", val = aeid),
+  scagg_by_aeid = get_query_data(lvl = "agg", fld = "aeid", val = aeid),
+  plot_single_s2id = get_query_data(fld = "s2id", 
+                                    val = l2_sample1$s2id, 
+                                    func = "tcplPlot"),
+  plot_multiple_s2id = get_query_data(fld = "s2id", 
+                                      val = list(l2_sample2$s2id), 
+                                      func = "tcplPlot"),
+  plot_single_aeid = get_query_data(fld = "aeid", 
+                                    val = aeid, 
+                                    func = "tcplPlot"),
+  plot_multiple_aeid = get_query_data(fld = "aeid", 
+                                      val = list(c(aeid, compare.aeid)), 
+                                      func = "tcplPlot"),
+  plot_single_spid = get_query_data(fld = c("spid", "aeid"), 
+                                    val = list(l2_sample1$spid, aeid), 
+                                    func = "tcplPlot"),
+  plot_multiple_spid = get_query_data(fld = c("spid", "aeid"), 
+                                      val = list(l2_sample2$spid, aeid), 
+                                      func = "tcplPlot"),
+  plot_single_s2id_compare = get_query_data(fld = "s2id", 
+                                            val = l2_sample1$s2id, 
+                                            compare.val = compare.l2_sample1$s2id, 
+                                            func = "tcplPlot"),
+  plot_multiple_s2id_compare = get_query_data(fld = "s2id", 
+                                              val = list(l2_sample2$s2id), 
+                                              compare.val = list(compare.l2_sample2$s2id), 
+                                              func = "tcplPlot"),
+  plot_single_aeid_compare = get_query_data(fld = "aeid", 
+                                            val = aeid, 
+                                            compare.val = compare.aeid, 
+                                            func = "tcplPlot"),
+  plot_multiple_aeid_compare = get_query_data(fld = "aeid", 
+                                              val = list(c(aeid, compare.aeid)), 
+                                              compare.val = list(c(compare.aeid, aeid)), 
+                                              func = "tcplPlot"),
+  plot_single_spid_compare = get_query_data(fld = c("spid", "aeid"), 
+                                            val = list(l2_sample1$spid, aeid), 
+                                            compare.val = list(compare.l2_sample1$spid, compare.aeid), 
+                                            func = "tcplPlot"),
+  plot_multiple_spid_compare = get_query_data(fld = c("spid", "aeid"), 
+                                              val = list(l2_sample2$spid, aeid), 
+                                              compare.val = list(compare.l2_sample2$spid, compare.aeid), 
+                                              func = "tcplPlot")
+)
+#---------------------------#
+## save the data
+usethis::use_data(sc_test, overwrite = TRUE)
+#---------------------------#
\ No newline at end of file
diff --git a/data-raw/sc_vignette.R b/data-raw/sc_vignette.R
index ade6e63d..d2f2fd73 100644
--- a/data-raw/sc_vignette.R
+++ b/data-raw/sc_vignette.R
@@ -5,8 +5,7 @@
 #       Please do not jump around when running this script.
 #==============================================================================#
 ## r packages
-library(tcplfit2)
-library(tcpl)
+devtools::load_all()
 
 library(here)
 library(data.table)
@@ -43,8 +42,8 @@ atg.acid.sc <- atg.acid %>% filter(.,acid%in%atg.sc.ids) %>% as.data.table()
 # print the data.table of acid's
 atg.acid.sc
 # obtain the aeid's for the atg single concentration data
-atg.aeid.sc <- tcplLoadAeid(fld = 'acid',val = atg.acid.sc) %>% 
-  filter(.,grepl(aenm,pattern = "up$"))
+atg.aeid.sc <- tcplLoadAeid(fld = 'acid',val = atg.acid.sc) #%>% 
+  #filter(.,grepl(aenm,pattern = "up$"))
 # obtain the level 2 sc data
 tictoc::tic()
 atg.sc2 <- tcplPrepOtpt(
@@ -110,9 +109,9 @@ tictoc::toc()
 tictoc::tic()
 atg.sc1.ss <- atg.sc1 %>% 
   # keep only those observations that are related to the level 2 spids
-  dplyr::filter(spid %in% atg.sc2.ss[,spid]) %>% 
+  dplyr::filter(spid %in% atg.sc2.ss[,spid]) #%>% 
   # keep only those observations that are related to the 'up' endpoints
-  dplyr::filter(.,grepl(aenm,pattern = "up$"))
+  #dplyr::filter(.,grepl(aenm,pattern = "up$"))
 tictoc::toc()
 
 # collate the data into a single object 'sc_vignette'
diff --git a/data-raw/test_api.R b/data-raw/test_api.R
new file mode 100644
index 00000000..db16336b
--- /dev/null
+++ b/data-raw/test_api.R
@@ -0,0 +1,49 @@
+#==============================================================================#
+# NOTE: This script is written such that it is run from 'top' to 'bottom'
+#       or programmatically via the Terminal.
+#         ('R CMD BATCH --vanilla <script.R>'.)
+#       Please do not jump around when running this script.
+#==============================================================================#
+# NOTE: You MUST temporarily update tcplQuery() by adding a line at the top of the
+#       function: print(query). 
+#       This is because the queries will be captured from output and saved as
+#       part of the mocking data.
+#==============================================================================#
+## r packages
+devtools::load_all()
+library(ctxR)
+library(here)
+library(dplyr)
+library(stringr)
+#---------------------------#
+## code to prepare `test_api` dataset goes here
+# source the user ID, password, host, and database information for connection
+#  - NOTE: To replicate one will need to save their own 'db_cred.R', including
+#          the 'apikey'.
+source(file = here::here("data-raw/db_cred.R"),verbose = FALSE)
+# connect to the DB
+tcplConf(pass = apikey,
+         drvr = "API")
+
+assays <- get_all_assays(Server = paste0(getOption("TCPL_HOST")))
+aeid <- assays[sample(1:nrow(assays), 1),]$aeid
+acid <- tcplLoadAcid(fld = "aeid", val = aeid)$acid
+aid <- tcplLoadAid(fld = "aeid", val = aeid)$aid
+asid <- tcplLoadAsid(fld = "aeid", val = aeid)$asid
+dat <- tcplLoadData(lvl = 5, fld = "aeid", val = aeid)
+sample <- dat[sample(1:nrow(dat), 1),]
+
+# to add more tests with new/different data to test-tcplLoadData.R, add lines below and run script
+test_api <- list(
+  aeid = aeid,
+  acid = acid,
+  aid = aid,
+  asid = asid,
+  dtxsid = sample$dtxsid,
+  spid = sample$spid,
+  m4id = sample$m4id
+)
+#---------------------------#
+## save the data
+usethis::use_data(test_api, overwrite = TRUE)
+#---------------------------#
\ No newline at end of file
diff --git a/data/mc_test.rda b/data/mc_test.rda
new file mode 100644
index 00000000..cdca61c1
Binary files /dev/null and b/data/mc_test.rda differ
diff --git a/data/sc_test.rda b/data/sc_test.rda
new file mode 100644
index 00000000..2998be80
Binary files /dev/null and b/data/sc_test.rda differ
diff --git a/data/sc_vignette.rda b/data/sc_vignette.rda
index e478e9c9..19310c0a 100644
Binary files a/data/sc_vignette.rda and b/data/sc_vignette.rda differ
diff --git a/data/test_api.rda b/data/test_api.rda
new file mode 100644
index 00000000..06fd1302
Binary files /dev/null and b/data/test_api.rda differ
diff --git a/man/mc_test.Rd b/man/mc_test.Rd
new file mode 100644
index 00000000..b98db1de
--- /dev/null
+++ b/man/mc_test.Rd
@@ -0,0 +1,154 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/data.R
+\docType{data}
+\name{mc_test}
+\alias{mc_test}
+\title{List of lists containing queries sent to tcplQuery associated with each test
+case. Each list also contains the associated ids with each case. Only meant
+to be used with automated testing with mocking for mc data.}
+\format{
+A list with 30 items:
+\describe{
+  \item{tcplConfQuery}{Data table with 1 row and 2 columns used for each test
+  case for establishing connection using tcplConf. This data table mocks the
+  response one would get from connecting with invitrodb.}
+  \item{mc0_by_m0id}{List containing the queries used for loading mc0 data by
+  m0id via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 'm0id' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{mc0_by_acid}{List containing the queries used for loading mc0 data by
+  acid via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 'acid' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{mc1_by_m1id}{List containing the queries used for loading mc1 data by
+  m1id via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 'm1id' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{mc1_by_acid}{List containing the queries used for loading mc1 data by
+  acid via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 'acid' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{mc2_by_m2id}{List containing the queries used for loading mc2 data by
+  m2id via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 'm2id' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{mc2_by_acid}{List containing the queries used for loading mc2 data by
+  acid via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 'acid' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{mc3_by_m3id}{List containing the queries used for loading mc3 data by
+  m3id via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 'm3id' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{mc3_by_aeid}{List containing the queries used for loading mc3 data by
+  aeid via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 'aeid' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{mc4_by_m4id}{List containing the queries used for loading mc4 data by
+  m4id via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 'm4id' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{mc4_by_aeid}{List containing the queries used for loading mc4 data by
+  aeid via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 'aeid' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{mc5_by_m5id}{List containing the queries used for loading mc5 data by
+  m5id via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 'm5id' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{mc5_by_aeid}{List containing the queries used for loading mc5 data by
+  aeid via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 'aeid' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{mc6_by_m6id}{List containing the queries used for loading mc6 data by
+  m6id via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 'm6id' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{mc6_by_aeid}{List containing the queries used for loading mc6 data by
+  aeid via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 'aeid' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{mc7_by_m7id}{List containing the queries used for loading mc7 data by
+  m7id via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 'm7id' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{mc7_by_aeid}{List containing the queries used for loading mc7 data by
+  aeid via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 'aeid' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{mcagg_by_aeid}{List containing the queries used for loading mc 'agg'
+  data by aeid via tcplLoadData. Each query has an associated data table 
+  response for mocking an actual connection. Contains one 'aeid' labeled item
+  storing the id used to load the data, for use in tests.}
+  \item{plot_single_m4id}{List containing the queries used for loading and
+  plotting mc data by m4id via tcplPlot. Each query has an associated data
+  table response for mocking an actual connection. Contains one 'm4id'
+  labeled item storing the id used to load the data, for use in tests.}
+  \item{plot_multiple_m4id}{List containing the queries used for loading and
+  plotting mc data by multiple m4ids via tcplPlot. Each query has an
+  associated data table response for mocking an actual connection. Contains
+  one 'm4id' labeled item storing the ids used to load the data, for use in
+  tests.}
+  \item{plot_single_aeid}{List containing the queries used for loading and
+  plotting mc data by aeid via tcplPlot. Each query has an associated data
+  table response for mocking an actual connection. Contains one 'aeid'
+  labeled item storing the id used to load the data, for use in tests.}
+  \item{plot_multiple_aeid}{List containing the queries used for loading and
+  plotting mc data by multiple aeids via tcplPlot. Each query has an
+  associated data table response for mocking an actual connection. Contains
+  one 'aeid' labeled item storing the ids used to load the data, for use in
+  tests.}
+  \item{plot_single_spid}{List containing the queries used for loading and
+  plotting mc data by spid/aeid via tcplPlot. Each query has an associated
+  data table response for mocking an actual connection. Contains 'spid' and
+  'aeid' labeled items storing the ids used to load the data, for use in
+  tests.}
+  \item{plot_multiple_spid}{List containing the queries used for loading and
+  plotting mc data by multiple spids/aeid via tcplPlot. Each query has an
+  associated data table response for mocking an actual connection. Contains
+  'spid' and 'aeid' labeled items storing the ids used to load the data, for
+  use in tests.}
+  \item{plot_single_m4id_compare}{List containing the queries used for 
+  loading and plotting compared mc data by m4id via tcplPlot. Each query has
+  an associated data table response for mocking an actual connection.
+  Contains 'm4id' and 'compare.m4id' labeled items storing the ids used to
+  load the data, for use in tests.}
+  \item{plot_multiple_m4id_compare}{List containing the queries used for loading and
+  plotting compared mc data by multiple m4ids via tcplPlot. Each query has an
+  associated data table response for mocking an actual connection. Contains 
+  'm4id' and 'compare.m4id' labeled items storing the ids used to load the 
+  data, for use in tests.}
+  \item{plot_single_aeid_compare}{List containing the queries used for
+  loading and plotting compared mc data by aeid via tcplPlot. Each query has
+  an associated data table response for mocking an actual connection.
+  Contains 'aeid' and 'compare.aeid' labeled items storing the ids used to
+  load the data, for use in tests.}
+  \item{plot_multiple_aeid_compare}{List containing the queries used for
+  loading and plotting compared mc data by multiple aeids via tcplPlot. Each
+  query has an associated data table response for mocking an actual
+  connection. Contains 'aeid' and 'compare.aeid' labeled items storing the
+  ids used to load the data, for use in tests.}
+  \item{plot_single_spid_compare}{List containing the queries used for
+  loading and plotting compared mc data by spid/aeid via tcplPlot. Each query
+  has an associated data table response for mocking an actual connection.
+  Contains 'spid', 'compare.spid', 'aeid', and 'compare.aeid' labeled items
+  storing the ids used to load the data, for use in tests.}
+  \item{plot_multiple_spid_compare}{List containing the queries used for
+  loading and plotting compared mc data by multiple spids/aeid via tcplPlot.
+  Each query has an associated data table response for mocking an actual
+  connection. Contains 'spid', 'compare.spid', 'aeid', and 'compare.aeid'
+  labeled items storing the ids used to load the data, for use in tests.}
+}
+}
+\source{
+ToxCast database
+}
+\usage{
+mc_test
+}
+\description{
+List of lists containing queries sent to tcplQuery associated with each test
+case. Each list also contains the associated ids with each case. Only meant
+to be used with automated testing with mocking for mc data.
+}
+\keyword{datasets}
diff --git a/man/sc_test.Rd b/man/sc_test.Rd
new file mode 100644
index 00000000..841e9a41
--- /dev/null
+++ b/man/sc_test.Rd
@@ -0,0 +1,114 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/data.R
+\docType{data}
+\name{sc_test}
+\alias{sc_test}
+\title{List of lists containing queries sent to tcplQuery associated with each test
+case. Each list also contains the associated ids with each case. Only meant
+to be used with automated testing with mocking for sc data.}
+\format{
+A list with 20 items:
+\describe{
+  \item{tcplConfQuery}{Data table with 1 row and 2 columns used for each test
+  case for establishing connection using tcplConf. This data table mocks the
+  response one would get from connecting with invitrodb.}
+  \item{sc0_by_s0id}{List containing the queries used for loading sc0 data by
+  s0id via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 's0id' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{sc0_by_acid}{List containing the queries used for loading sc0 data by
+  acid via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 'acid' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{sc1_by_s1id}{List containing the queries used for loading sc1 data by
+  s1id via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 's1id' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{sc1_by_acid}{List containing the queries used for loading sc1 data by
+  acid via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 'acid' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{sc2_by_s2id}{List containing the queries used for loading sc2 data by
+  s2id via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 's2id' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{sc2_by_aeid}{List containing the queries used for loading sc2 data by
+  aeid via tcplLoadData. Each query has an associated data table response for
+  mocking an actual connection. Contains one 'aeid' labeled item storing the
+  id used to load the data, for use in tests.}
+  \item{scagg_by_aeid}{List containing the queries used for loading sc 'agg'
+  data by aeid via tcplLoadData. Each query has an associated data table 
+  response for mocking an actual connection. Contains one 'aeid' labeled item
+  storing the id used to load the data, for use in tests.}
+  \item{plot_single_s2id}{List containing the queries used for loading and
+  plotting sc data by s2id via tcplPlot. Each query has an associated data
+  table response for mocking an actual connection. Contains one 's2id'
+  labeled item storing the id used to load the data, for use in tests.}
+  \item{plot_multiple_s2id}{List containing the queries used for loading and
+  plotting sc data by multiple s2ids via tcplPlot. Each query has an
+  associated data table response for mocking an actual connection. Contains
+  one 's2id' labeled item storing the ids used to load the data, for use in
+  tests.}
+  \item{plot_single_aeid}{List containing the queries used for loading and
+  plotting sc data by aeid via tcplPlot. Each query has an associated data
+  table response for mocking an actual connection. Contains one 'aeid'
+  labeled item storing the id used to load the data, for use in tests.}
+  \item{plot_multiple_aeid}{List containing the queries used for loading and
+  plotting sc data by multiple aeids via tcplPlot. Each query has an
+  associated data table response for mocking an actual connection. Contains
+  one 'aeid' labeled item storing the ids used to load the data, for use in
+  tests.}
+  \item{plot_single_spid}{List containing the queries used for loading and
+  plotting sc data by spid/aeid via tcplPlot. Each query has an associated
+  data table response for mocking an actual connection. Contains 'spid' and
+  'aeid' labeled items storing the ids used to load the data, for use in
+  tests.}
+  \item{plot_multiple_spid}{List containing the queries used for loading and
+  plotting sc data by multiple spids/aeid via tcplPlot. Each query has an
+  associated data table response for mocking an actual connection. Contains
+  'spid' and 'aeid' labeled items storing the ids used to load the data, for
+  use in tests.}
+  \item{plot_single_s2id_compare}{List containing the queries used for 
+  loading and plotting compared sc data by s2id via tcplPlot. Each query has
+  an associated data table response for mocking an actual connection.
+  Contains 's2id' and 'compare.s2id' labeled items storing the ids used to
+  load the data, for use in tests.}
+  \item{plot_multiple_s2id_compare}{List containing the queries used for loading and
+  plotting compared sc data by multiple s2ids via tcplPlot. Each query has an
+  associated data table response for mocking an actual connection. Contains 
+  's2id' and 'compare.s2id' labeled items storing the ids used to load the 
+  data, for use in tests.}
+  \item{plot_single_aeid_compare}{List containing the queries used for
+  loading and plotting compared sc data by aeid via tcplPlot. Each query has
+  an associated data table response for mocking an actual connection.
+  Contains 'aeid' and 'compare.aeid' labeled items storing the ids used to
+  load the data, for use in tests.}
+  \item{plot_multiple_aeid_compare}{List containing the queries used for
+  loading and plotting compared sc data by multiple aeids via tcplPlot. Each
+  query has an associated data table response for mocking an actual
+  connection. Contains 'aeid' and 'compare.aeid' labeled items storing the
+  ids used to load the data, for use in tests.}
+  \item{plot_single_spid_compare}{List containing the queries used for
+  loading and plotting compared sc data by spid/aeid via tcplPlot. Each query
+  has an associated data table response for mocking an actual connection.
+  Contains 'spid', 'compare.spid', 'aeid', and 'compare.aeid' labeled items
+  storing the ids used to load the data, for use in tests.}
+  \item{plot_multiple_spid_compare}{List containing the queries used for
+  loading and plotting compared sc data by multiple spids/aeid via tcplPlot.
+  Each query has an associated data table response for mocking an actual
+  connection. Contains 'spid', 'compare.spid', 'aeid', and 'compare.aeid'
+  labeled items storing the ids used to load the data, for use in tests.}
+}
+}
+\source{
+ToxCast database
+}
+\usage{
+sc_test
+}
+\description{
+List of lists containing queries sent to tcplQuery associated with each test
+case. Each list also contains the associated ids with each case. Only meant
+to be used with automated testing with mocking for sc data.
+}
+\keyword{datasets}
diff --git a/man/test_api.Rd b/man/test_api.Rd
new file mode 100644
index 00000000..9f352c5d
--- /dev/null
+++ b/man/test_api.Rd
@@ -0,0 +1,30 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/data.R
+\docType{data}
+\name{test_api}
+\alias{test_api}
+\title{List containing ids used for different automated tests of tcpl integration
+with the CTX APIs, randomly selected from what is available via API.}
+\format{
+A list with 7 items:
+\describe{
+  \item{aeid}{Randomly selected assay component endpoint id}
+  \item{acid}{Assay component id associated with the above aeid}
+  \item{aid}{Assay id associated with the above aeid}
+  \item{asid}{Assay source id associated with the above aeid}
+  \item{dtxsid}{dsstox substance id of one sample from the above aeid}
+  \item{spid}{Sample id of one (the same) sample from the above aeid}
+  \item{m4id}{Level 4 id of one (the same) sample from the above aeid}
+}
+}
+\source{
+CTX Bioactivity API
+}
+\usage{
+test_api
+}
+\description{
+List containing ids used for different automated tests of tcpl integration
+with the CTX APIs, randomly selected from what is available via API.
+}
+\keyword{datasets}
diff --git a/tests/testthat/_snaps/tcplPlot/negative-cutoff-bmr.svg b/tests/testthat/_snaps/tcplPlot/negative-cutoff-bmr.svg
deleted file mode 100644
index edd4e0ab..00000000
--- a/tests/testthat/_snaps/tcplPlot/negative-cutoff-bmr.svg
+++ /dev/null
@@ -1,195 +0,0 @@
-<?xml version='1.0' encoding='UTF-8' ?>
-<svg xmlns='http://www.w3.org/2000/svg' xmlns:xlink='http://www.w3.org/1999/xlink' class='svglite' data-engine-version='2.0' width='720.00pt' height='576.00pt' viewBox='0 0 720.00 576.00'>
-<defs>
-  <style type='text/css'><![CDATA[
-    .svglite line, .svglite polyline, .svglite polygon, .svglite path, .svglite rect, .svglite circle {
-      fill: none;
-      stroke: #000000;
-      stroke-linecap: round;
-      stroke-linejoin: round;
-      stroke-miterlimit: 10.00;
-    }
-  ]]></style>
-</defs>
-<rect width='100%' height='100%' style='stroke: none; fill: #FFFFFF;'/>
-<defs>
-  <clipPath id='cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA='>
-    <rect x='0.00' y='0.00' width='720.00' height='576.00' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-<rect x='0.00' y='0.00' width='720.00' height='576.00' style='stroke-width: 1.07; stroke: #FFFFFF; fill: #FFFFFF;' />
-</g>
-<defs>
-  <clipPath id='cpMzguMTd8NjI4LjA3fDQ3LjYzfDU0NS4xMQ=='>
-    <rect x='38.17' y='47.63' width='589.91' height='497.48' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpMzguMTd8NjI4LjA3fDQ3LjYzfDU0NS4xMQ==)'>
-<rect x='38.17' y='47.63' width='589.91' height='497.48' style='stroke-width: 1.07; stroke: none; fill: #EBEBEB;' />
-<polyline points='38.17,408.90 628.07,408.90 ' style='stroke-width: 0.53; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='38.17,258.09 628.07,258.09 ' style='stroke-width: 0.53; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='38.17,107.28 628.07,107.28 ' style='stroke-width: 0.53; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='154.36,545.11 154.36,47.63 ' style='stroke-width: 0.53; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='333.12,545.11 333.12,47.63 ' style='stroke-width: 0.53; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='511.88,545.11 511.88,47.63 ' style='stroke-width: 0.53; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='38.17,484.30 628.07,484.30 ' style='stroke-width: 1.07; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='38.17,333.49 628.07,333.49 ' style='stroke-width: 1.07; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='38.17,182.69 628.07,182.69 ' style='stroke-width: 1.07; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='64.98,545.11 64.98,47.63 ' style='stroke-width: 1.07; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='243.74,545.11 243.74,47.63 ' style='stroke-width: 1.07; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='422.50,545.11 422.50,47.63 ' style='stroke-width: 1.07; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='601.26,545.11 601.26,47.63 ' style='stroke-width: 1.07; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='64.98,182.69 70.35,182.69 75.71,182.69 81.07,182.69 86.43,182.69 91.80,182.69 97.16,182.69 102.52,182.69 107.88,182.69 113.25,182.69 118.61,182.69 123.97,182.69 129.34,182.69 134.70,182.69 140.06,182.69 145.42,182.69 150.79,182.69 156.15,182.69 161.51,182.69 166.88,182.69 172.24,182.69 177.60,182.69 182.96,182.69 188.33,182.69 193.69,182.69 199.05,182.69 204.41,182.69 209.78,182.69 215.14,182.69 220.50,182.69 225.87,182.69 231.23,182.69 236.59,182.69 241.95,182.69 247.32,182.69 252.68,182.69 258.04,182.69 263.41,182.69 268.77,182.69 274.13,182.69 279.49,182.69 284.86,182.69 290.22,182.69 295.58,182.69 300.95,182.69 306.31,182.69 311.67,182.69 317.03,182.69 322.40,182.69 327.76,182.69 333.12,182.69 338.48,182.69 343.85,182.69 349.21,182.69 354.57,182.69 359.94,182.69 365.30,182.69 370.66,182.69 376.02,182.69 381.39,182.69 386.75,182.69 392.11,182.69 397.48,182.69 402.84,182.69 408.20,182.69 413.56,182.69 418.93,182.69 424.29,182.69 429.65,182.69 435.01,182.70 440.38,182.71 445.74,182.72 451.10,182.75 456.47,182.79 461.83,182.87 467.19,183.00 472.55,183.23 477.92,183.63 483.28,184.32 488.64,185.50 494.01,187.53 499.37,191.00 504.73,196.83 510.09,206.47 515.46,221.88 520.82,245.30 526.18,278.24 531.54,319.88 536.91,365.88 542.27,409.72 547.63,445.89 553.00,472.28 558.36,489.74 563.72,500.46 569.08,506.61 574.45,509.86 579.81,511.33 585.17,511.75 590.54,511.52 595.90,510.92 601.26,510.09 ' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<polyline points='64.98,182.69 70.35,182.69 75.71,182.69 81.07,182.69 86.43,182.69 91.80,182.69 97.16,182.69 102.52,182.69 107.88,182.69 113.25,182.69 118.61,182.69 123.97,182.69 129.34,182.69 134.70,182.69 140.06,182.69 145.42,182.69 150.79,182.69 156.15,182.69 161.51,182.69 166.88,182.69 172.24,182.69 177.60,182.69 182.96,182.69 188.33,182.69 193.69,182.69 199.05,182.69 204.41,182.69 209.78,182.69 215.14,182.70 220.50,182.70 225.87,182.70 231.23,182.70 236.59,182.70 241.95,182.70 247.32,182.70 252.68,182.70 258.04,182.70 263.41,182.70 268.77,182.70 274.13,182.71 279.49,182.71 284.86,182.71 290.22,182.71 295.58,182.71 300.95,182.71 306.31,182.72 311.67,182.72 317.03,182.72 322.40,182.72 327.76,182.73 333.12,182.73 338.48,182.73 343.85,182.74 349.21,182.74 354.57,182.74 359.94,182.75 365.30,182.75 370.66,182.76 376.02,182.77 381.39,182.77 386.75,182.78 392.11,182.79 397.48,182.80 402.84,182.81 408.20,182.82 413.56,182.84 418.93,182.85 424.29,182.87 429.65,182.89 435.01,182.91 440.38,182.93 445.74,182.96 451.10,183.00 456.47,183.03 461.83,183.08 467.19,183.13 472.55,183.19 477.92,183.26 483.28,183.35 488.64,183.45 494.01,183.58 499.37,183.73 504.73,183.92 510.09,184.16 515.46,184.46 520.82,184.85 526.18,185.34 531.54,185.99 536.91,186.86 542.27,188.03 547.63,189.64 553.00,191.90 558.36,195.11 563.72,199.78 569.08,206.73 574.45,217.31 579.81,233.83 585.17,260.33 590.54,304.09 595.90,378.63 601.26,509.88 ' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<polyline points='64.98,182.69 70.35,182.69 75.71,182.69 81.07,182.69 86.43,182.69 91.80,182.69 97.16,182.69 102.52,182.69 107.88,182.69 113.25,182.69 118.61,182.69 123.97,182.69 129.34,182.69 134.70,182.69 140.06,182.69 145.42,182.69 150.79,182.69 156.15,182.69 161.51,182.69 166.88,182.69 172.24,182.69 177.60,182.69 182.96,182.69 188.33,182.69 193.69,182.69 199.05,182.69 204.41,182.69 209.78,182.69 215.14,182.69 220.50,182.69 225.87,182.69 231.23,182.69 236.59,182.69 241.95,182.69 247.32,182.69 252.68,182.69 258.04,182.69 263.41,182.69 268.77,182.69 274.13,182.69 279.49,182.69 284.86,182.69 290.22,182.69 295.58,182.69 300.95,182.69 306.31,182.69 311.67,182.69 317.03,182.69 322.40,182.69 327.76,182.69 333.12,182.69 338.48,182.69 343.85,182.69 349.21,182.69 354.57,182.69 359.94,182.69 365.30,182.69 370.66,182.69 376.02,182.69 381.39,182.69 386.75,182.69 392.11,182.69 397.48,182.70 402.84,182.70 408.20,182.70 413.56,182.71 418.93,182.71 424.29,182.72 429.65,182.73 435.01,182.75 440.38,182.76 445.74,182.79 451.10,182.82 456.47,182.86 461.83,182.91 467.19,182.98 472.55,183.07 477.92,183.19 483.28,183.34 488.64,183.54 494.01,183.81 499.37,184.15 504.73,184.61 510.09,185.20 515.46,185.98 520.82,187.00 526.18,188.33 531.54,190.09 536.91,192.40 542.27,195.44 547.63,199.45 553.00,204.76 558.36,211.80 563.72,221.18 569.08,233.75 574.45,250.72 579.81,273.86 585.17,305.81 590.54,350.68 595.90,415.05 601.26,510.09 ' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<polyline points='64.98,183.15 70.35,183.18 75.71,183.22 81.07,183.25 86.43,183.29 91.80,183.34 97.16,183.38 102.52,183.43 107.88,183.49 113.25,183.54 118.61,183.60 123.97,183.67 129.34,183.74 134.70,183.82 140.06,183.90 145.42,183.98 150.79,184.07 156.15,184.17 161.51,184.28 166.88,184.39 172.24,184.52 177.60,184.65 182.96,184.79 188.33,184.94 193.69,185.10 199.05,185.27 204.41,185.45 209.78,185.65 215.14,185.86 220.50,186.08 225.87,186.33 231.23,186.59 236.59,186.86 241.95,187.16 247.32,187.48 252.68,187.82 258.04,188.18 263.41,188.57 268.77,188.99 274.13,189.44 279.49,189.92 284.86,190.43 290.22,190.98 295.58,191.56 300.95,192.19 306.31,192.86 311.67,193.58 317.03,194.34 322.40,195.16 327.76,196.04 333.12,196.98 338.48,197.98 343.85,199.05 349.21,200.20 354.57,201.42 359.94,202.72 365.30,204.12 370.66,205.60 376.02,207.19 381.39,208.88 386.75,210.69 392.11,212.61 397.48,214.66 402.84,216.85 408.20,219.17 413.56,221.65 418.93,224.28 424.29,227.08 429.65,230.06 435.01,233.22 440.38,236.57 445.74,240.13 451.10,243.90 456.47,247.90 461.83,252.12 467.19,256.59 472.55,261.31 477.92,266.29 483.28,271.53 488.64,277.06 494.01,282.86 499.37,288.96 504.73,295.35 510.09,302.05 515.46,309.04 520.82,316.33 526.18,323.93 531.54,331.82 536.91,340.00 542.27,348.46 547.63,357.19 553.00,366.18 558.36,375.39 563.72,384.82 569.08,394.42 574.45,404.18 579.81,414.05 585.17,424.00 590.54,433.98 595.90,443.95 601.26,453.85 ' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<polyline points='64.98,182.69 70.35,182.69 75.71,182.69 81.07,182.69 86.43,182.69 91.80,182.69 97.16,182.69 102.52,182.69 107.88,182.69 113.25,182.69 118.61,182.69 123.97,182.69 129.34,182.69 134.70,182.69 140.06,182.69 145.42,182.69 150.79,182.69 156.15,182.69 161.51,182.69 166.88,182.69 172.24,182.69 177.60,182.69 182.96,182.69 188.33,182.69 193.69,182.69 199.05,182.69 204.41,182.69 209.78,182.69 215.14,182.69 220.50,182.69 225.87,182.69 231.23,182.69 236.59,182.69 241.95,182.69 247.32,182.69 252.68,182.69 258.04,182.69 263.41,182.69 268.77,182.69 274.13,182.69 279.49,182.69 284.86,182.69 290.22,182.69 295.58,182.69 300.95,182.69 306.31,182.69 311.67,182.69 317.03,182.69 322.40,182.69 327.76,182.69 333.12,182.69 338.48,182.69 343.85,182.69 349.21,182.69 354.57,182.69 359.94,182.69 365.30,182.69 370.66,182.69 376.02,182.69 381.39,182.69 386.75,182.69 392.11,182.69 397.48,182.69 402.84,182.69 408.20,182.69 413.56,182.69 418.93,182.69 424.29,182.69 429.65,182.69 435.01,182.70 440.38,182.71 445.74,182.72 451.10,182.74 456.47,182.79 461.83,182.86 467.19,182.99 472.55,183.21 477.92,183.59 483.28,184.26 488.64,185.41 494.01,187.40 499.37,190.83 504.73,196.71 510.09,206.68 515.46,223.24 520.82,249.91 526.18,290.48 531.54,346.52 536.91,412.06 542.27,469.82 547.63,501.51 553.00,509.51 558.36,510.08 563.72,510.09 569.08,510.09 574.45,510.09 579.81,510.09 585.17,510.09 590.54,510.09 595.90,510.09 601.26,510.09 ' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<polyline points='64.98,183.00 70.35,183.02 75.71,183.05 81.07,183.07 86.43,183.10 91.80,183.13 97.16,183.16 102.52,183.20 107.88,183.23 113.25,183.27 118.61,183.31 123.97,183.36 129.34,183.41 134.70,183.46 140.06,183.51 145.42,183.57 150.79,183.64 156.15,183.70 161.51,183.78 166.88,183.85 172.24,183.94 177.60,184.03 182.96,184.12 188.33,184.22 193.69,184.33 199.05,184.45 204.41,184.58 209.78,184.71 215.14,184.86 220.50,185.01 225.87,185.18 231.23,185.36 236.59,185.55 241.95,185.76 247.32,185.97 252.68,186.21 258.04,186.46 263.41,186.73 268.77,187.02 274.13,187.33 279.49,187.66 284.86,188.02 290.22,188.40 295.58,188.81 300.95,189.25 306.31,189.72 311.67,190.22 317.03,190.76 322.40,191.33 327.76,191.95 333.12,192.62 338.48,193.33 343.85,194.09 349.21,194.90 354.57,195.78 359.94,196.71 365.30,197.71 370.66,198.79 376.02,199.94 381.39,201.17 386.75,202.50 392.11,203.91 397.48,205.43 402.84,207.06 408.20,208.80 413.56,210.67 418.93,212.67 424.29,214.82 429.65,217.11 435.01,219.58 440.38,222.21 445.74,225.04 451.10,228.07 456.47,231.32 461.83,234.79 467.19,238.52 472.55,242.51 477.92,246.79 483.28,251.38 488.64,256.29 494.01,261.55 499.37,267.19 504.73,273.24 510.09,279.71 515.46,286.65 520.82,294.09 526.18,302.06 531.54,310.59 536.91,319.74 542.27,329.54 547.63,340.04 553.00,351.30 558.36,363.36 563.72,376.28 569.08,390.13 574.45,404.96 579.81,420.86 585.17,437.89 590.54,456.14 595.90,475.70 601.26,496.66 ' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<polyline points='64.98,182.72 70.35,182.72 75.71,182.72 81.07,182.72 86.43,182.73 91.80,182.73 97.16,182.73 102.52,182.74 107.88,182.74 113.25,182.74 118.61,182.75 123.97,182.75 129.34,182.76 134.70,182.76 140.06,182.77 145.42,182.78 150.79,182.78 156.15,182.79 161.51,182.80 166.88,182.80 172.24,182.81 177.60,182.82 182.96,182.83 188.33,182.84 193.69,182.85 199.05,182.87 204.41,182.88 209.78,182.90 215.14,182.91 220.50,182.93 225.87,182.95 231.23,182.97 236.59,182.99 241.95,183.01 247.32,183.04 252.68,183.07 258.04,183.10 263.41,183.13 268.77,183.16 274.13,183.20 279.49,183.24 284.86,183.29 290.22,183.34 295.58,183.39 300.95,183.45 306.31,183.52 311.67,183.59 317.03,183.67 322.40,183.75 327.76,183.84 333.12,183.95 338.48,184.06 343.85,184.18 349.21,184.32 354.57,184.47 359.94,184.64 365.30,184.82 370.66,185.03 376.02,185.26 381.39,185.51 386.75,185.79 392.11,186.10 397.48,186.45 402.84,186.84 408.20,187.27 413.56,187.75 418.93,188.30 424.29,188.91 429.65,189.59 435.01,190.36 440.38,191.22 445.74,192.19 451.10,193.28 456.47,194.51 461.83,195.90 467.19,197.48 472.55,199.25 477.92,201.26 483.28,203.54 488.64,206.11 494.01,209.04 499.37,212.36 504.73,216.12 510.09,220.40 515.46,225.27 520.82,230.81 526.18,237.11 531.54,244.29 536.91,252.46 542.27,261.78 547.63,272.41 553.00,284.53 558.36,298.37 563.72,314.16 569.08,332.20 574.45,352.81 579.81,376.36 585.17,403.29 590.54,434.07 595.90,469.29 601.26,509.57 ' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<polyline points='64.98,182.69 70.35,182.69 75.71,182.69 81.07,182.69 86.43,182.69 91.80,182.69 97.16,182.69 102.52,182.69 107.88,182.69 113.25,182.69 118.61,182.69 123.97,182.69 129.34,182.69 134.70,182.69 140.06,182.69 145.42,182.69 150.79,182.69 156.15,182.69 161.51,182.69 166.88,182.69 172.24,182.69 177.60,182.69 182.96,182.69 188.33,182.69 193.69,182.69 199.05,182.69 204.41,182.69 209.78,182.69 215.14,182.69 220.50,182.69 225.87,182.69 231.23,182.69 236.59,182.69 241.95,182.69 247.32,182.69 252.68,182.69 258.04,182.69 263.41,182.69 268.77,182.69 274.13,182.69 279.49,182.69 284.86,182.69 290.22,182.69 295.58,182.69 300.95,182.69 306.31,182.69 311.67,182.69 317.03,182.69 322.40,182.69 327.76,182.69 333.12,182.69 338.48,182.69 343.85,182.69 349.21,182.69 354.57,182.69 359.94,182.69 365.30,182.69 370.66,182.69 376.02,182.69 381.39,182.70 386.75,182.70 392.11,182.70 397.48,182.71 402.84,182.71 408.20,182.72 413.56,182.73 418.93,182.75 424.29,182.76 429.65,182.79 435.01,182.81 440.38,182.85 445.74,182.90 451.10,182.96 456.47,183.04 461.83,183.14 467.19,183.27 472.55,183.43 477.92,183.65 483.28,183.93 488.64,184.28 494.01,184.74 499.37,185.34 504.73,186.10 510.09,187.09 515.46,188.36 520.82,189.99 526.18,192.10 531.54,194.82 536.91,198.32 542.27,202.82 547.63,208.64 553.00,216.12 558.36,225.77 563.72,238.20 569.08,254.22 574.45,274.86 579.81,301.45 585.17,335.72 590.54,379.88 595.90,436.78 601.26,510.09 ' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<polyline points='64.98,182.69 70.35,182.69 75.71,182.69 81.07,182.69 86.43,182.69 91.80,182.69 97.16,182.69 102.52,182.69 107.88,182.69 113.25,182.69 118.61,182.69 123.97,182.69 129.34,182.69 134.70,182.69 140.06,182.69 145.42,182.69 150.79,182.69 156.15,182.69 161.51,182.69 166.88,182.69 172.24,182.69 177.60,182.69 182.96,182.69 188.33,182.69 193.69,182.69 199.05,182.69 204.41,182.69 209.78,182.69 215.14,182.69 220.50,182.69 225.87,182.69 231.23,182.69 236.59,182.69 241.95,182.69 247.32,182.69 252.68,182.69 258.04,182.69 263.41,182.69 268.77,182.69 274.13,182.69 279.49,182.69 284.86,182.69 290.22,182.69 295.58,182.69 300.95,182.69 306.31,182.69 311.67,182.69 317.03,182.69 322.40,182.69 327.76,182.69 333.12,182.69 338.48,182.69 343.85,182.69 349.21,182.69 354.57,182.69 359.94,182.69 365.30,182.69 370.66,182.69 376.02,182.69 381.39,182.69 386.75,182.69 392.11,182.69 397.48,182.69 402.84,182.69 408.20,182.69 413.56,182.69 418.93,182.69 424.29,182.69 429.65,182.69 435.01,182.70 440.38,182.71 445.74,182.72 451.10,182.75 456.47,182.79 461.83,182.86 467.19,183.00 472.55,183.22 477.92,183.62 483.28,184.30 488.64,185.48 494.01,187.51 499.37,190.97 504.73,196.82 510.09,206.49 515.46,221.94 520.82,245.37 526.18,278.14 531.54,319.23 536.91,364.18 542.27,406.60 547.63,441.40 553.00,466.81 558.36,483.83 563.72,494.58 569.08,501.12 574.45,505.01 579.81,507.29 585.17,508.62 590.54,509.39 595.90,509.83 601.26,510.09 ' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='586.60' y1='545.11' x2='586.60' y2='47.63' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='38.17' y1='472.61' x2='628.07' y2='472.61' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<circle cx='601.26' cy='497.68' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='422.50' cy='122.00' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='422.50' cy='174.55' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='351.37' cy='189.10' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='351.37' cy='201.94' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='243.74' cy='195.56' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='243.74' cy='197.63' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='172.61' cy='301.31' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='64.98' cy='157.39' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='172.61' cy='153.23' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='64.98' cy='241.50' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='601.26' cy='522.50' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='507.79' cy='250.04' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='507.79' cy='70.24' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<line x1='574.36' y1='545.11' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='574.36' y1='545.11' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='574.36' y1='545.11' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='574.36' y1='545.11' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='574.36' y1='545.11' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='574.36' y1='545.11' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='574.36' y1='545.11' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='574.36' y1='545.11' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='574.36' y1='545.11' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='574.36' y1='545.11' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='574.36' y1='545.11' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='574.36' y1='545.11' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='574.36' y1='545.11' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='574.36' y1='545.11' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='38.17' y1='274.46' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='38.17' y1='274.46' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='38.17' y1='274.46' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='38.17' y1='274.46' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='38.17' y1='274.46' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='38.17' y1='274.46' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='38.17' y1='274.46' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='38.17' y1='274.46' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='38.17' y1='274.46' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='38.17' y1='274.46' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='38.17' y1='274.46' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='38.17' y1='274.46' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='38.17' y1='274.46' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='38.17' y1='274.46' x2='574.36' y2='274.46' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-<text x='33.24' y='487.33' text-anchor='end' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='15.16px' lengthAdjust='spacingAndGlyphs'>-0.4</text>
-<text x='33.24' y='336.52' text-anchor='end' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='15.16px' lengthAdjust='spacingAndGlyphs'>-0.2</text>
-<text x='33.24' y='185.71' text-anchor='end' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='12.23px' lengthAdjust='spacingAndGlyphs'>0.0</text>
-<polyline points='35.43,484.30 38.17,484.30 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
-<polyline points='35.43,333.49 38.17,333.49 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
-<polyline points='35.43,182.69 38.17,182.69 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
-<polyline points='64.98,547.85 64.98,545.11 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
-<polyline points='243.74,547.85 243.74,545.11 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
-<polyline points='422.50,547.85 422.50,545.11 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
-<polyline points='601.26,547.85 601.26,545.11 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
-<text x='64.98' y='556.10' text-anchor='middle' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='12.23px' lengthAdjust='spacingAndGlyphs'>0.1</text>
-<text x='243.74' y='556.10' text-anchor='middle' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='12.23px' lengthAdjust='spacingAndGlyphs'>1.0</text>
-<text x='422.50' y='556.10' text-anchor='middle' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='17.13px' lengthAdjust='spacingAndGlyphs'>10.0</text>
-<text x='601.26' y='556.10' text-anchor='middle' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='22.02px' lengthAdjust='spacingAndGlyphs'>100.0</text>
-<text x='333.12' y='568.24' text-anchor='middle' style='font-size: 11.00px; font-family: sans;' textLength='94.16px' lengthAdjust='spacingAndGlyphs'>Concentration (uM)</text>
-<text transform='translate(13.05,296.37) rotate(-90)' text-anchor='middle' style='font-size: 11.00px; font-family: sans;' textLength='96.63px' lengthAdjust='spacingAndGlyphs'>Log2 Fold Induction</text>
-<rect x='639.03' y='253.12' width='75.49' height='86.51' style='stroke-width: 1.07; stroke: none; fill: #FFFFFF;' />
-<rect x='639.03' y='253.12' width='17.28' height='17.39' style='stroke-width: 1.07; stroke: none; fill: #F2F2F2;' />
-<line x1='640.76' y1='261.81' x2='654.59' y2='261.81' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='640.76' y1='261.81' x2='654.59' y2='261.81' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='640.76' y1='261.81' x2='654.59' y2='261.81' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='640.76' y1='261.81' x2='654.59' y2='261.81' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='640.76' y1='261.81' x2='654.59' y2='261.81' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='640.76' y1='261.81' x2='654.59' y2='261.81' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='640.76' y1='261.81' x2='654.59' y2='261.81' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='640.76' y1='261.81' x2='654.59' y2='261.81' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='640.76' y1='261.81' x2='654.59' y2='261.81' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='647.67' y1='270.50' x2='647.67' y2='253.12' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='640.76' y1='261.81' x2='654.59' y2='261.81' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='640.76' y1='261.81' x2='654.59' y2='261.81' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='640.76' y1='261.81' x2='654.59' y2='261.81' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<rect x='639.03' y='270.50' width='17.28' height='17.28' style='stroke-width: 1.07; stroke: none; fill: #F2F2F2;' />
-<line x1='640.76' y1='279.14' x2='654.59' y2='279.14' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='640.76' y1='279.14' x2='654.59' y2='279.14' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='640.76' y1='279.14' x2='654.59' y2='279.14' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='640.76' y1='279.14' x2='654.59' y2='279.14' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='640.76' y1='279.14' x2='654.59' y2='279.14' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='640.76' y1='279.14' x2='654.59' y2='279.14' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='640.76' y1='279.14' x2='654.59' y2='279.14' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='640.76' y1='279.14' x2='654.59' y2='279.14' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='640.76' y1='279.14' x2='654.59' y2='279.14' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='647.67' y1='287.78' x2='647.67' y2='270.50' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='640.76' y1='279.14' x2='654.59' y2='279.14' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='640.76' y1='279.14' x2='654.59' y2='279.14' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='640.76' y1='279.14' x2='654.59' y2='279.14' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<rect x='639.03' y='287.78' width='17.28' height='17.28' style='stroke-width: 1.07; stroke: none; fill: #F2F2F2;' />
-<line x1='640.76' y1='296.42' x2='654.59' y2='296.42' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='296.42' x2='654.59' y2='296.42' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='296.42' x2='654.59' y2='296.42' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='296.42' x2='654.59' y2='296.42' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='296.42' x2='654.59' y2='296.42' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='296.42' x2='654.59' y2='296.42' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='296.42' x2='654.59' y2='296.42' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='296.42' x2='654.59' y2='296.42' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='296.42' x2='654.59' y2='296.42' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='647.67' y1='305.06' x2='647.67' y2='287.78' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='296.42' x2='654.59' y2='296.42' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='296.42' x2='654.59' y2='296.42' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='296.42' x2='654.59' y2='296.42' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<rect x='639.03' y='305.06' width='17.28' height='17.28' style='stroke-width: 1.07; stroke: none; fill: #F2F2F2;' />
-<line x1='640.76' y1='313.70' x2='654.59' y2='313.70' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='313.70' x2='654.59' y2='313.70' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='313.70' x2='654.59' y2='313.70' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='313.70' x2='654.59' y2='313.70' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='313.70' x2='654.59' y2='313.70' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='313.70' x2='654.59' y2='313.70' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='313.70' x2='654.59' y2='313.70' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='313.70' x2='654.59' y2='313.70' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='313.70' x2='654.59' y2='313.70' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='647.67' y1='322.34' x2='647.67' y2='305.06' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='313.70' x2='654.59' y2='313.70' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='313.70' x2='654.59' y2='313.70' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='313.70' x2='654.59' y2='313.70' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<rect x='639.03' y='322.34' width='17.28' height='17.28' style='stroke-width: 1.07; stroke: none; fill: #F2F2F2;' />
-<line x1='640.76' y1='330.98' x2='654.59' y2='330.98' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='330.98' x2='654.59' y2='330.98' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='330.98' x2='654.59' y2='330.98' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='330.98' x2='654.59' y2='330.98' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='330.98' x2='654.59' y2='330.98' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='330.98' x2='654.59' y2='330.98' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='330.98' x2='654.59' y2='330.98' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='330.98' x2='654.59' y2='330.98' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='330.98' x2='654.59' y2='330.98' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='647.67' y1='339.62' x2='647.67' y2='322.34' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='330.98' x2='654.59' y2='330.98' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='330.98' x2='654.59' y2='330.98' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='640.76' y1='330.98' x2='654.59' y2='330.98' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<text x='656.31' y='260.09' style='font-size: 8.80px; font-family: sans;' textLength='58.21px' lengthAdjust='spacingAndGlyphs'>Winning Model</text>
-<text x='656.31' y='269.59' style='font-size: 8.80px; font-family: sans;' textLength='22.01px' lengthAdjust='spacingAndGlyphs'>(pow)</text>
-<text x='656.31' y='282.17' style='font-size: 8.80px; font-family: sans;' textLength='56.75px' lengthAdjust='spacingAndGlyphs'>Losing Models</text>
-<text x='656.31' y='299.45' style='font-size: 8.80px; font-family: sans;' textLength='23.48px' lengthAdjust='spacingAndGlyphs'>Cutoff</text>
-<text x='656.31' y='316.73' style='font-size: 8.80px; font-family: sans;' textLength='19.56px' lengthAdjust='spacingAndGlyphs'>BMD</text>
-<text x='656.31' y='334.01' style='font-size: 8.80px; font-family: sans;' textLength='22.02px' lengthAdjust='spacingAndGlyphs'>AC50</text>
-<text x='38.17' y='13.74' style='font-size: 12.00px; font-family: sans;' textLength='239.49px' lengthAdjust='spacingAndGlyphs'>DTXSID10379991 3-(Perfluorooctyl)propanol</text>
-<text x='38.17' y='26.70' style='font-size: 12.00px; font-family: sans;' textLength='291.54px' lengthAdjust='spacingAndGlyphs'>SPID:1210314466  AEID:80  AENM:ATG_GLI_CIS_up</text>
-<text x='38.17' y='39.66' style='font-size: 12.00px; font-family: sans;' textLength='140.09px' lengthAdjust='spacingAndGlyphs'>M4ID:482359  HITC:0.960</text>
-</g>
-</svg>
diff --git a/tests/testthat/_snaps/tcplPlot/test-output-482273.svg b/tests/testthat/_snaps/tcplPlot/test-output-482273.svg
deleted file mode 100644
index 4fd6daf6..00000000
--- a/tests/testthat/_snaps/tcplPlot/test-output-482273.svg
+++ /dev/null
@@ -1,790 +0,0 @@
-<?xml version='1.0' encoding='UTF-8' ?>
-<svg xmlns='http://www.w3.org/2000/svg' xmlns:xlink='http://www.w3.org/1999/xlink' class='svglite' data-engine-version='2.0' width='720.00pt' height='576.00pt' viewBox='0 0 720.00 576.00'>
-<defs>
-  <style type='text/css'><![CDATA[
-    .svglite line, .svglite polyline, .svglite polygon, .svglite path, .svglite rect, .svglite circle {
-      fill: none;
-      stroke: #000000;
-      stroke-linecap: round;
-      stroke-linejoin: round;
-      stroke-miterlimit: 10.00;
-    }
-  ]]></style>
-</defs>
-<rect width='100%' height='100%' style='stroke: none; fill: #FFFFFF;'/>
-<defs>
-  <clipPath id='cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA='>
-    <rect x='0.00' y='0.00' width='720.00' height='576.00' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpMC4wMHw0ODAuMDB8MC4wMHw1NzYuMDA='>
-    <rect x='0.000000000000050' y='0.00' width='480.00' height='576.00' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpMC4wMHw0ODAuMDB8MC4wMHw1NzYuMDA=)'>
-<rect x='0.000000000000064' y='0.00' width='480.00' height='576.00' style='stroke-width: 1.07; stroke: #FFFFFF; fill: #FFFFFF;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpMzUuMzd8Mzg2Ljc2fDQ3Ljc4fDU0NC44Mg=='>
-    <rect x='35.37' y='47.78' width='351.39' height='497.05' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpMzUuMzd8Mzg2Ljc2fDQ3Ljc4fDU0NC44Mg==)'>
-<rect x='35.37' y='47.78' width='351.39' height='497.05' style='stroke-width: 1.07; stroke: none; fill: #EBEBEB;' />
-<polyline points='35.37,515.51 386.76,515.51 ' style='stroke-width: 0.53; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='35.37,380.93 386.76,380.93 ' style='stroke-width: 0.53; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='35.37,246.36 386.76,246.36 ' style='stroke-width: 0.53; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='35.37,111.78 386.76,111.78 ' style='stroke-width: 0.53; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='104.59,544.82 104.59,47.78 ' style='stroke-width: 0.53; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='211.07,544.82 211.07,47.78 ' style='stroke-width: 0.53; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='317.55,544.82 317.55,47.78 ' style='stroke-width: 0.53; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='35.37,448.22 386.76,448.22 ' style='stroke-width: 1.07; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='35.37,313.65 386.76,313.65 ' style='stroke-width: 1.07; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='35.37,179.07 386.76,179.07 ' style='stroke-width: 1.07; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='51.35,544.82 51.35,47.78 ' style='stroke-width: 1.07; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='157.83,544.82 157.83,47.78 ' style='stroke-width: 1.07; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='264.31,544.82 264.31,47.78 ' style='stroke-width: 1.07; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='370.79,544.82 370.79,47.78 ' style='stroke-width: 1.07; stroke: #FFFFFF; stroke-linecap: butt;' />
-<polyline points='51.35,448.22 54.54,448.22 57.74,448.22 60.93,448.22 64.12,448.22 67.32,448.22 70.51,448.22 73.71,448.22 76.90,448.22 80.10,448.22 83.29,448.22 86.49,448.22 89.68,448.22 92.87,448.22 96.07,448.22 99.26,448.22 102.46,448.22 105.65,448.22 108.85,448.22 112.04,448.22 115.24,448.22 118.43,448.22 121.62,448.22 124.82,448.22 128.01,448.22 131.21,448.22 134.40,448.22 137.60,448.22 140.79,448.22 143.99,448.22 147.18,448.22 150.38,448.22 153.57,448.22 156.76,448.22 159.96,448.22 163.15,448.22 166.35,448.22 169.54,448.22 172.74,448.22 175.93,448.22 179.13,448.22 182.32,448.22 185.51,448.22 188.71,448.22 191.90,448.22 195.10,448.22 198.29,448.22 201.49,448.22 204.68,448.22 207.88,448.22 211.07,448.22 214.26,448.22 217.46,448.21 220.65,448.21 223.85,448.21 227.04,448.20 230.24,448.20 233.43,448.19 236.63,448.18 239.82,448.17 243.01,448.15 246.21,448.13 249.40,448.10 252.60,448.07 255.79,448.02 258.99,447.96 262.18,447.89 265.38,447.79 268.57,447.66 271.76,447.49 274.96,447.28 278.15,447.00 281.35,446.64 284.54,446.17 287.74,445.57 290.93,444.79 294.13,443.78 297.32,442.49 300.51,440.82 303.71,438.68 306.90,435.94 310.10,432.44 313.29,427.99 316.49,422.35 319.68,415.27 322.88,406.44 326.07,395.53 329.26,382.23 332.46,366.26 335.65,347.44 338.85,325.71 342.04,301.26 345.24,274.49 348.43,246.05 351.63,216.82 354.82,187.74 358.01,159.75 361.21,133.66 364.40,110.05 367.60,89.24 370.79,71.35 ' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<polyline points='51.35,448.17 54.54,448.17 57.74,448.16 60.93,448.16 64.12,448.15 67.32,448.15 70.51,448.14 73.71,448.14 76.90,448.13 80.10,448.13 83.29,448.12 86.49,448.11 89.68,448.10 92.87,448.10 96.07,448.09 99.26,448.08 102.46,448.07 105.65,448.05 108.85,448.04 112.04,448.03 115.24,448.02 118.43,448.00 121.62,447.99 124.82,447.97 128.01,447.95 131.21,447.93 134.40,447.91 137.60,447.89 140.79,447.86 143.99,447.84 147.18,447.81 150.38,447.78 153.57,447.75 156.76,447.71 159.96,447.67 163.15,447.63 166.35,447.59 169.54,447.54 172.74,447.50 175.93,447.44 179.13,447.38 182.32,447.32 185.51,447.26 188.71,447.19 191.90,447.11 195.10,447.03 198.29,446.94 201.49,446.84 204.68,446.74 207.88,446.63 211.07,446.51 214.26,446.38 217.46,446.24 220.65,446.09 223.85,445.92 227.04,445.75 230.24,445.56 233.43,445.35 236.63,445.13 239.82,444.88 243.01,444.62 246.21,444.33 249.40,444.02 252.60,443.68 255.79,443.31 258.99,442.91 262.18,442.47 265.38,441.98 268.57,441.45 271.76,440.87 274.96,440.23 278.15,439.53 281.35,438.75 284.54,437.89 287.74,436.94 290.93,435.88 294.13,434.70 297.32,433.38 300.51,431.90 303.71,430.24 306.90,428.36 310.10,426.24 313.29,423.82 316.49,421.06 319.68,417.89 322.88,414.24 326.07,410.01 329.26,405.09 332.46,399.31 335.65,392.49 338.85,384.39 342.04,374.69 345.24,362.99 348.43,348.76 351.63,331.29 354.82,309.62 358.01,282.47 361.21,248.08 364.40,203.98 367.60,146.70 370.79,71.26 ' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<polyline points='51.35,448.22 54.54,448.22 57.74,448.22 60.93,448.22 64.12,448.22 67.32,448.22 70.51,448.22 73.71,448.22 76.90,448.22 80.10,448.22 83.29,448.22 86.49,448.22 89.68,448.22 92.87,448.22 96.07,448.22 99.26,448.22 102.46,448.21 105.65,448.21 108.85,448.21 112.04,448.21 115.24,448.21 118.43,448.21 121.62,448.21 124.82,448.20 128.01,448.20 131.21,448.20 134.40,448.20 137.60,448.19 140.79,448.19 143.99,448.18 147.18,448.18 150.38,448.17 153.57,448.17 156.76,448.16 159.96,448.15 163.15,448.14 166.35,448.13 169.54,448.12 172.74,448.11 175.93,448.09 179.13,448.08 182.32,448.06 185.51,448.04 188.71,448.01 191.90,447.99 195.10,447.96 198.29,447.92 201.49,447.89 204.68,447.84 207.88,447.79 211.07,447.74 214.26,447.68 217.46,447.61 220.65,447.53 223.85,447.44 227.04,447.34 230.24,447.23 233.43,447.11 236.63,446.96 239.82,446.80 243.01,446.62 246.21,446.42 249.40,446.19 252.60,445.93 255.79,445.63 258.99,445.30 262.18,444.93 265.38,444.50 268.57,444.02 271.76,443.48 274.96,442.87 278.15,442.18 281.35,441.39 284.54,440.50 287.74,439.49 290.93,438.35 294.13,437.05 297.32,435.58 300.51,433.90 303.71,431.99 306.90,429.81 310.10,427.31 313.29,424.46 316.49,421.19 319.68,417.43 322.88,413.10 326.07,408.10 329.26,402.31 332.46,395.56 335.65,387.69 338.85,378.46 342.04,367.57 345.24,354.67 348.43,339.26 351.63,320.75 354.82,298.31 358.01,270.85 361.21,236.92 364.40,194.48 367.60,140.70 370.79,71.51 ' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<polyline points='51.35,447.67 54.54,447.63 57.74,447.59 60.93,447.54 64.12,447.49 67.32,447.44 70.51,447.38 73.71,447.32 76.90,447.26 80.10,447.19 83.29,447.12 86.49,447.04 89.68,446.95 92.87,446.86 96.07,446.76 99.26,446.66 102.46,446.55 105.65,446.43 108.85,446.30 112.04,446.16 115.24,446.02 118.43,445.86 121.62,445.69 124.82,445.51 128.01,445.32 131.21,445.11 134.40,444.89 137.60,444.65 140.79,444.40 143.99,444.13 147.18,443.83 150.38,443.52 153.57,443.19 156.76,442.83 159.96,442.45 163.15,442.04 166.35,441.60 169.54,441.13 172.74,440.62 175.93,440.09 179.13,439.51 182.32,438.89 185.51,438.23 188.71,437.53 191.90,436.77 195.10,435.96 198.29,435.10 201.49,434.18 204.68,433.19 207.88,432.13 211.07,431.00 214.26,429.80 217.46,428.51 220.65,427.13 223.85,425.66 227.04,424.09 230.24,422.42 233.43,420.63 236.63,418.72 239.82,416.69 243.01,414.52 246.21,412.21 249.40,409.74 252.60,407.12 255.79,404.33 258.99,401.36 262.18,398.20 265.38,394.84 268.57,391.27 271.76,387.48 274.96,383.47 278.15,379.21 281.35,374.69 284.54,369.92 287.74,364.87 290.93,359.53 294.13,353.90 297.32,347.96 300.51,341.71 303.71,335.13 306.90,328.22 310.10,320.98 313.29,313.39 316.49,305.45 319.68,297.16 322.88,288.53 326.07,279.56 329.26,270.25 332.46,260.61 335.65,250.66 338.85,240.41 342.04,229.89 345.24,219.12 348.43,208.12 351.63,196.94 354.82,185.61 358.01,174.18 361.21,162.70 364.40,151.21 367.60,139.78 370.79,128.46 ' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<polyline points='51.35,448.22 54.54,448.22 57.74,448.22 60.93,448.22 64.12,448.22 67.32,448.22 70.51,448.22 73.71,448.22 76.90,448.22 80.10,448.22 83.29,448.22 86.49,448.22 89.68,448.22 92.87,448.22 96.07,448.22 99.26,448.22 102.46,448.22 105.65,448.22 108.85,448.22 112.04,448.22 115.24,448.22 118.43,448.22 121.62,448.22 124.82,448.22 128.01,448.22 131.21,448.22 134.40,448.22 137.60,448.22 140.79,448.22 143.99,448.22 147.18,448.22 150.38,448.22 153.57,448.22 156.76,448.22 159.96,448.22 163.15,448.22 166.35,448.22 169.54,448.22 172.74,448.22 175.93,448.22 179.13,448.22 182.32,448.22 185.51,448.22 188.71,448.21 191.90,448.21 195.10,448.21 198.29,448.21 201.49,448.20 204.68,448.20 207.88,448.19 211.07,448.19 214.26,448.18 217.46,448.17 220.65,448.16 223.85,448.14 227.04,448.13 230.24,448.10 233.43,448.08 236.63,448.05 239.82,448.01 243.01,447.96 246.21,447.90 249.40,447.83 252.60,447.74 255.79,447.63 258.99,447.50 262.18,447.34 265.38,447.15 268.57,446.91 271.76,446.62 274.96,446.26 278.15,445.82 281.35,445.29 284.54,444.64 287.74,443.85 290.93,442.89 294.13,441.71 297.32,440.28 300.51,438.53 303.71,436.40 306.90,433.82 310.10,430.68 313.29,426.88 316.49,422.27 319.68,416.71 322.88,410.01 326.07,401.97 329.26,392.35 332.46,380.90 335.65,367.36 338.85,351.45 342.04,332.93 345.24,311.59 348.43,287.35 351.63,260.23 354.82,230.48 358.01,198.63 361.21,165.52 364.40,132.30 367.60,100.40 370.79,71.36 ' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<polyline points='51.35,447.86 54.54,447.83 57.74,447.81 60.93,447.78 64.12,447.74 67.32,447.71 70.51,447.67 73.71,447.63 76.90,447.59 80.10,447.55 83.29,447.50 86.49,447.45 89.68,447.39 92.87,447.33 96.07,447.27 99.26,447.20 102.46,447.13 105.65,447.05 108.85,446.97 112.04,446.88 115.24,446.78 118.43,446.68 121.62,446.56 124.82,446.45 128.01,446.32 131.21,446.18 134.40,446.04 137.60,445.88 140.79,445.71 143.99,445.53 147.18,445.34 150.38,445.14 153.57,444.91 156.76,444.68 159.96,444.42 163.15,444.15 166.35,443.86 169.54,443.55 172.74,443.22 175.93,442.86 179.13,442.47 182.32,442.06 185.51,441.62 188.71,441.15 191.90,440.64 195.10,440.10 198.29,439.52 201.49,438.90 204.68,438.23 207.88,437.52 211.07,436.75 214.26,435.93 217.46,435.05 220.65,434.11 223.85,433.10 227.04,432.02 230.24,430.86 233.43,429.62 236.63,428.29 239.82,426.87 243.01,425.34 246.21,423.70 249.40,421.95 252.60,420.07 255.79,418.05 258.99,415.90 262.18,413.58 265.38,411.11 268.57,408.45 271.76,405.61 274.96,402.56 278.15,399.30 281.35,395.80 284.54,392.05 287.74,388.03 290.93,383.72 294.13,379.11 297.32,374.17 300.51,368.87 303.71,363.20 306.90,357.12 310.10,350.60 313.29,343.62 316.49,336.14 319.68,328.12 322.88,319.53 326.07,310.33 329.26,300.47 332.46,289.90 335.65,278.57 338.85,266.44 342.04,253.44 345.24,239.51 348.43,224.58 351.63,208.59 354.82,191.45 358.01,173.09 361.21,153.41 364.40,132.32 367.60,109.73 370.79,85.52 ' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<polyline points='51.35,448.22 54.54,448.22 57.74,448.22 60.93,448.22 64.12,448.22 67.32,448.22 70.51,448.21 73.71,448.21 76.90,448.21 80.10,448.21 83.29,448.21 86.49,448.21 89.68,448.21 92.87,448.21 96.07,448.21 99.26,448.21 102.46,448.20 105.65,448.20 108.85,448.20 112.04,448.20 115.24,448.20 118.43,448.20 121.62,448.19 124.82,448.19 128.01,448.19 131.21,448.18 134.40,448.18 137.60,448.18 140.79,448.17 143.99,448.17 147.18,448.16 150.38,448.16 153.57,448.15 156.76,448.14 159.96,448.13 163.15,448.12 166.35,448.11 169.54,448.10 172.74,448.09 175.93,448.07 179.13,448.05 182.32,448.04 185.51,448.01 188.71,447.99 191.90,447.96 195.10,447.93 198.29,447.90 201.49,447.86 204.68,447.81 207.88,447.76 211.07,447.70 214.26,447.64 217.46,447.56 220.65,447.48 223.85,447.38 227.04,447.27 230.24,447.15 233.43,447.00 236.63,446.84 239.82,446.66 243.01,446.45 246.21,446.21 249.40,445.93 252.60,445.62 255.79,445.26 258.99,444.85 262.18,444.38 265.38,443.85 268.57,443.24 271.76,442.54 274.96,441.74 278.15,440.83 281.35,439.78 284.54,438.58 287.74,437.21 290.93,435.64 294.13,433.84 297.32,431.78 300.51,429.42 303.71,426.71 306.90,423.61 310.10,420.06 313.29,415.98 316.49,411.31 319.68,405.95 322.88,399.81 326.07,392.76 329.26,384.69 332.46,375.42 335.65,364.79 338.85,352.60 342.04,338.62 345.24,322.57 348.43,304.17 351.63,283.05 354.82,258.81 358.01,231.01 361.21,199.10 364.40,162.49 367.60,120.48 370.79,72.26 ' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<polyline points='51.35,448.22 54.54,448.22 57.74,448.22 60.93,448.22 64.12,448.22 67.32,448.22 70.51,448.22 73.71,448.22 76.90,448.22 80.10,448.22 83.29,448.22 86.49,448.22 89.68,448.22 92.87,448.22 96.07,448.22 99.26,448.22 102.46,448.22 105.65,448.22 108.85,448.22 112.04,448.22 115.24,448.22 118.43,448.22 121.62,448.22 124.82,448.22 128.01,448.22 131.21,448.22 134.40,448.22 137.60,448.22 140.79,448.22 143.99,448.22 147.18,448.22 150.38,448.21 153.57,448.21 156.76,448.21 159.96,448.21 163.15,448.21 166.35,448.21 169.54,448.20 172.74,448.20 175.93,448.20 179.13,448.19 182.32,448.19 185.51,448.18 188.71,448.17 191.90,448.16 195.10,448.15 198.29,448.14 201.49,448.13 204.68,448.11 207.88,448.09 211.07,448.07 214.26,448.04 217.46,448.01 220.65,447.98 223.85,447.94 227.04,447.89 230.24,447.83 233.43,447.77 236.63,447.69 239.82,447.60 243.01,447.49 246.21,447.37 249.40,447.23 252.60,447.06 255.79,446.86 258.99,446.63 262.18,446.36 265.38,446.05 268.57,445.68 271.76,445.25 274.96,444.75 278.15,444.16 281.35,443.47 284.54,442.67 287.74,441.73 290.93,440.64 294.13,439.35 297.32,437.85 300.51,436.10 303.71,434.05 306.90,431.65 310.10,428.85 313.29,425.58 316.49,421.75 319.68,417.27 322.88,412.04 326.07,405.92 329.26,398.77 332.46,390.41 335.65,380.63 338.85,369.20 342.04,355.84 345.24,340.22 348.43,321.96 351.63,300.61 354.82,275.65 358.01,246.47 361.21,212.35 364.40,172.47 367.60,125.84 370.79,71.33 ' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<polyline points='51.35,448.22 54.54,448.22 57.74,448.22 60.93,448.22 64.12,448.22 67.32,448.22 70.51,448.22 73.71,448.22 76.90,448.22 80.10,448.22 83.29,448.22 86.49,448.22 89.68,448.22 92.87,448.22 96.07,448.22 99.26,448.22 102.46,448.22 105.65,448.22 108.85,448.22 112.04,448.22 115.24,448.22 118.43,448.22 121.62,448.22 124.82,448.22 128.01,448.22 131.21,448.22 134.40,448.22 137.60,448.22 140.79,448.22 143.99,448.22 147.18,448.22 150.38,448.22 153.57,448.22 156.76,448.22 159.96,448.22 163.15,448.22 166.35,448.22 169.54,448.22 172.74,448.22 175.93,448.22 179.13,448.22 182.32,448.22 185.51,448.22 188.71,448.22 191.90,448.22 195.10,448.22 198.29,448.22 201.49,448.22 204.68,448.22 207.88,448.22 211.07,448.22 214.26,448.22 217.46,448.21 220.65,448.21 223.85,448.21 227.04,448.20 230.24,448.20 233.43,448.19 236.63,448.18 239.82,448.17 243.01,448.15 246.21,448.13 249.40,448.10 252.60,448.07 255.79,448.02 258.99,447.96 262.18,447.89 265.38,447.79 268.57,447.66 271.76,447.49 274.96,447.28 278.15,447.00 281.35,446.64 284.54,446.17 287.74,445.57 290.93,444.79 294.13,443.78 297.32,442.49 300.51,440.82 303.71,438.68 306.90,435.94 310.10,432.44 313.29,427.99 316.49,422.36 319.68,415.27 322.88,406.44 326.07,395.53 329.26,382.23 332.46,366.27 335.65,347.44 338.85,325.72 342.04,301.26 345.24,274.49 348.43,246.06 351.63,216.82 354.82,187.74 358.01,159.75 361.21,133.66 364.40,110.05 367.60,89.24 370.79,71.34 ' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='360.21' y1='544.82' x2='360.21' y2='47.78' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='35.37' y1='275.74' x2='386.76' y2='275.74' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<circle cx='115.46' cy='436.48' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='115.46' cy='394.78' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='370.79' cy='72.20' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='51.35' cy='522.23' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='370.79' cy='70.37' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='315.12' cy='439.56' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='315.12' cy='411.17' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='264.31' cy='458.10' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='264.31' cy='394.91' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='221.94' cy='345.66' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='221.94' cy='477.19' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='157.83' cy='455.89' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='157.83' cy='423.64' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<circle cx='51.35' cy='481.04' r='1.95' style='stroke-width: 0.71; fill: #000000;' />
-<line x1='335.16' y1='544.82' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='335.16' y1='544.82' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='335.16' y1='544.82' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='335.16' y1='544.82' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='335.16' y1='544.82' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='335.16' y1='544.82' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='335.16' y1='544.82' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='335.16' y1='544.82' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='335.16' y1='544.82' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='335.16' y1='544.82' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='335.16' y1='544.82' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='335.16' y1='544.82' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='335.16' y1='544.82' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='335.16' y1='544.82' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='35.37' y1='393.62' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='35.37' y1='393.62' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='35.37' y1='393.62' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='35.37' y1='393.62' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='35.37' y1='393.62' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='35.37' y1='393.62' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='35.37' y1='393.62' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='35.37' y1='393.62' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='35.37' y1='393.62' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='35.37' y1='393.62' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='35.37' y1='393.62' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='35.37' y1='393.62' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='35.37' y1='393.62' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='35.37' y1='393.62' x2='335.16' y2='393.62' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-<text x='30.44' y='451.25' text-anchor='end' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='12.23px' lengthAdjust='spacingAndGlyphs'>0.0</text>
-<text x='30.44' y='316.67' text-anchor='end' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='12.23px' lengthAdjust='spacingAndGlyphs'>0.3</text>
-<text x='30.44' y='182.10' text-anchor='end' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='12.23px' lengthAdjust='spacingAndGlyphs'>0.6</text>
-<polyline points='32.63,448.22 35.37,448.22 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
-<polyline points='32.63,313.65 35.37,313.65 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
-<polyline points='32.63,179.07 35.37,179.07 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
-<polyline points='51.35,547.56 51.35,544.82 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
-<polyline points='157.83,547.56 157.83,544.82 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
-<polyline points='264.31,547.56 264.31,544.82 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
-<polyline points='370.79,547.56 370.79,544.82 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
-<text x='51.35' y='555.81' text-anchor='middle' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='12.23px' lengthAdjust='spacingAndGlyphs'>0.1</text>
-<text x='157.83' y='555.81' text-anchor='middle' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='12.23px' lengthAdjust='spacingAndGlyphs'>1.0</text>
-<text x='264.31' y='555.81' text-anchor='middle' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='17.13px' lengthAdjust='spacingAndGlyphs'>10.0</text>
-<text x='370.79' y='555.81' text-anchor='middle' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='22.02px' lengthAdjust='spacingAndGlyphs'>100.0</text>
-<text x='211.07' y='568.10' text-anchor='middle' style='font-size: 11.00px; font-family: sans;' textLength='94.16px' lengthAdjust='spacingAndGlyphs'>Concentration (uM)</text>
-<text transform='translate(13.05,296.30) rotate(-90)' text-anchor='middle' style='font-size: 11.00px; font-family: sans;' textLength='96.63px' lengthAdjust='spacingAndGlyphs'>Log2 Fold Induction</text>
-<rect x='397.72' y='252.77' width='76.80' height='87.07' style='stroke-width: 1.07; stroke: none; fill: #FFFFFF;' />
-<rect x='397.72' y='252.77' width='17.28' height='17.95' style='stroke-width: 1.07; stroke: none; fill: #F2F2F2;' />
-<line x1='399.45' y1='261.74' x2='413.28' y2='261.74' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='399.45' y1='261.74' x2='413.28' y2='261.74' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='399.45' y1='261.74' x2='413.28' y2='261.74' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='399.45' y1='261.74' x2='413.28' y2='261.74' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='399.45' y1='261.74' x2='413.28' y2='261.74' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='399.45' y1='261.74' x2='413.28' y2='261.74' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='399.45' y1='261.74' x2='413.28' y2='261.74' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='399.45' y1='261.74' x2='413.28' y2='261.74' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='399.45' y1='261.74' x2='413.28' y2='261.74' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='406.36' y1='270.71' x2='406.36' y2='252.77' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='399.45' y1='261.74' x2='413.28' y2='261.74' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='399.45' y1='261.74' x2='413.28' y2='261.74' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<line x1='399.45' y1='261.74' x2='413.28' y2='261.74' style='stroke-width: 1.07; stroke: #440154; stroke-linecap: butt;' />
-<rect x='397.72' y='270.71' width='17.28' height='17.28' style='stroke-width: 1.07; stroke: none; fill: #F2F2F2;' />
-<line x1='399.45' y1='279.35' x2='413.28' y2='279.35' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='399.45' y1='279.35' x2='413.28' y2='279.35' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='399.45' y1='279.35' x2='413.28' y2='279.35' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='399.45' y1='279.35' x2='413.28' y2='279.35' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='399.45' y1='279.35' x2='413.28' y2='279.35' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='399.45' y1='279.35' x2='413.28' y2='279.35' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='399.45' y1='279.35' x2='413.28' y2='279.35' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='399.45' y1='279.35' x2='413.28' y2='279.35' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='399.45' y1='279.35' x2='413.28' y2='279.35' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='406.36' y1='287.99' x2='406.36' y2='270.71' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='399.45' y1='279.35' x2='413.28' y2='279.35' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='399.45' y1='279.35' x2='413.28' y2='279.35' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<line x1='399.45' y1='279.35' x2='413.28' y2='279.35' style='stroke-width: 1.07; stroke: #3E4B89; stroke-dasharray: 1.42,4.27; stroke-linecap: butt;' />
-<rect x='397.72' y='287.99' width='17.28' height='17.28' style='stroke-width: 1.07; stroke: none; fill: #F2F2F2;' />
-<line x1='399.45' y1='296.63' x2='413.28' y2='296.63' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='296.63' x2='413.28' y2='296.63' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='296.63' x2='413.28' y2='296.63' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='296.63' x2='413.28' y2='296.63' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='296.63' x2='413.28' y2='296.63' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='296.63' x2='413.28' y2='296.63' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='296.63' x2='413.28' y2='296.63' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='296.63' x2='413.28' y2='296.63' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='296.63' x2='413.28' y2='296.63' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='406.36' y1='305.27' x2='406.36' y2='287.99' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='296.63' x2='413.28' y2='296.63' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='296.63' x2='413.28' y2='296.63' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='296.63' x2='413.28' y2='296.63' style='stroke-width: 1.07; stroke: #25848E; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<rect x='397.72' y='305.27' width='17.28' height='17.28' style='stroke-width: 1.07; stroke: none; fill: #F2F2F2;' />
-<line x1='399.45' y1='313.91' x2='413.28' y2='313.91' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='313.91' x2='413.28' y2='313.91' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='313.91' x2='413.28' y2='313.91' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='313.91' x2='413.28' y2='313.91' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='313.91' x2='413.28' y2='313.91' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='313.91' x2='413.28' y2='313.91' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='313.91' x2='413.28' y2='313.91' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='313.91' x2='413.28' y2='313.91' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='313.91' x2='413.28' y2='313.91' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='406.36' y1='322.55' x2='406.36' y2='305.27' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='313.91' x2='413.28' y2='313.91' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='313.91' x2='413.28' y2='313.91' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='313.91' x2='413.28' y2='313.91' style='stroke-width: 1.07; stroke: #38B977; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<rect x='397.72' y='322.55' width='17.28' height='17.28' style='stroke-width: 1.07; stroke: none; fill: #F2F2F2;' />
-<line x1='399.45' y1='331.19' x2='413.28' y2='331.19' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='331.19' x2='413.28' y2='331.19' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='331.19' x2='413.28' y2='331.19' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='331.19' x2='413.28' y2='331.19' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='331.19' x2='413.28' y2='331.19' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='331.19' x2='413.28' y2='331.19' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='331.19' x2='413.28' y2='331.19' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='331.19' x2='413.28' y2='331.19' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='331.19' x2='413.28' y2='331.19' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='406.36' y1='339.83' x2='406.36' y2='322.55' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='331.19' x2='413.28' y2='331.19' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='331.19' x2='413.28' y2='331.19' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<line x1='399.45' y1='331.19' x2='413.28' y2='331.19' style='stroke-width: 1.07; stroke: #BBDF27; stroke-dasharray: 5.69,5.69; stroke-linecap: butt;' />
-<text x='415.00' y='260.02' style='font-size: 8.80px; font-family: sans;' textLength='58.21px' lengthAdjust='spacingAndGlyphs'>Winning Model</text>
-<text x='415.00' y='269.52' style='font-size: 8.80px; font-family: sans;' textLength='24.95px' lengthAdjust='spacingAndGlyphs'>(exp2)</text>
-<text x='415.00' y='282.38' style='font-size: 8.80px; font-family: sans;' textLength='56.75px' lengthAdjust='spacingAndGlyphs'>Losing Models</text>
-<text x='415.00' y='299.66' style='font-size: 8.80px; font-family: sans;' textLength='23.48px' lengthAdjust='spacingAndGlyphs'>Cutoff</text>
-<text x='415.00' y='316.94' style='font-size: 8.80px; font-family: sans;' textLength='19.56px' lengthAdjust='spacingAndGlyphs'>BMD</text>
-<text x='415.00' y='334.22' style='font-size: 8.80px; font-family: sans;' textLength='22.02px' lengthAdjust='spacingAndGlyphs'>AC50</text>
-<text x='35.37' y='13.74' style='font-size: 12.00px; font-family: sans;' textLength='362.23px' lengthAdjust='spacingAndGlyphs'>DTXSID80379721 1H,1H,6H,6H-Perfluorohexane-1,6-diol diacrylate</text>
-<text x='35.37' y='26.70' style='font-size: 12.00px; font-family: sans;' textLength='278.19px' lengthAdjust='spacingAndGlyphs'>SPID:01504209  AEID:80  AENM:ATG_GLI_CIS_up</text>
-<text x='35.37' y='39.66' style='font-size: 12.00px; font-family: sans;' textLength='78.72px' lengthAdjust='spacingAndGlyphs'>M4ID:482273  </text>
-</g>
-<defs>
-  <clipPath id='cpNTI0LjQ0fDU2OC40NnwxNjAuNjJ8MTgwLjIy'>
-    <rect x='524.44' y='160.62' width='44.03' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwxNjAuNjJ8MTgwLjIy)'>
-<rect x='524.44' y='160.62' width='44.03' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #CCCCCC;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTY4LjQ2fDYyNy41MnwxNjAuNjJ8MTgwLjIy'>
-    <rect x='568.46' y='160.62' width='59.05' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwxNjAuNjJ8MTgwLjIy)'>
-<rect x='568.46' y='160.62' width='59.05' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #CCCCCC;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNjI3LjUyfDY3NS41NnwxNjAuNjJ8MTgwLjIy'>
-    <rect x='627.52' y='160.62' width='48.04' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwxNjAuNjJ8MTgwLjIy)'>
-<rect x='627.52' y='160.62' width='48.04' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #CCCCCC;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTI0LjQ0fDU2OC40NnwxODAuMjJ8MTk5Ljgx'>
-    <rect x='524.44' y='180.22' width='44.03' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwxODAuMjJ8MTk5Ljgx)'>
-<rect x='524.44' y='180.22' width='44.03' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #F2F2F2;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTY4LjQ2fDYyNy41MnwxODAuMjJ8MTk5Ljgx'>
-    <rect x='568.46' y='180.22' width='59.05' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwxODAuMjJ8MTk5Ljgx)'>
-<rect x='568.46' y='180.22' width='59.05' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #F2F2F2;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNjI3LjUyfDY3NS41NnwxODAuMjJ8MTk5Ljgx'>
-    <rect x='627.52' y='180.22' width='48.04' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwxODAuMjJ8MTk5Ljgx)'>
-<rect x='627.52' y='180.22' width='48.04' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #F2F2F2;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTI0LjQ0fDU2OC40NnwxOTkuODF8MjE5LjQx'>
-    <rect x='524.44' y='199.81' width='44.03' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwxOTkuODF8MjE5LjQx)'>
-<rect x='524.44' y='199.81' width='44.03' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #CCCCCC;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTY4LjQ2fDYyNy41MnwxOTkuODF8MjE5LjQx'>
-    <rect x='568.46' y='199.81' width='59.05' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwxOTkuODF8MjE5LjQx)'>
-<rect x='568.46' y='199.81' width='59.05' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #CCCCCC;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNjI3LjUyfDY3NS41NnwxOTkuODF8MjE5LjQx'>
-    <rect x='627.52' y='199.81' width='48.04' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwxOTkuODF8MjE5LjQx)'>
-<rect x='627.52' y='199.81' width='48.04' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #CCCCCC;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTI0LjQ0fDU2OC40NnwyMTkuNDF8MjM5LjAx'>
-    <rect x='524.44' y='219.41' width='44.03' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwyMTkuNDF8MjM5LjAx)'>
-<rect x='524.44' y='219.41' width='44.03' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #F2F2F2;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTI0LjQ0fDU2OC40NnwyMzkuMDF8MjU4LjYw'>
-    <rect x='524.44' y='239.01' width='44.03' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwyMzkuMDF8MjU4LjYw)'>
-<rect x='524.44' y='239.01' width='44.03' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #E5E5E5;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTI0LjQ0fDU2OC40NnwyNTguNjB8Mjc4LjIw'>
-    <rect x='524.44' y='258.60' width='44.03' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwyNTguNjB8Mjc4LjIw)'>
-<rect x='524.44' y='258.60' width='44.03' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #F2F2F2;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTI0LjQ0fDU2OC40NnwyNzguMjB8Mjk3Ljgw'>
-    <rect x='524.44' y='278.20' width='44.03' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwyNzguMjB8Mjk3Ljgw)'>
-<rect x='524.44' y='278.20' width='44.03' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #E5E5E5;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTI0LjQ0fDU2OC40NnwyOTcuODB8MzE3LjQw'>
-    <rect x='524.44' y='297.80' width='44.03' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwyOTcuODB8MzE3LjQw)'>
-<rect x='524.44' y='297.80' width='44.03' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #F2F2F2;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTI0LjQ0fDU2OC40NnwzMTcuNDB8MzM2Ljk5'>
-    <rect x='524.44' y='317.40' width='44.03' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwzMTcuNDB8MzM2Ljk5)'>
-<rect x='524.44' y='317.40' width='44.03' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #E5E5E5;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTI0LjQ0fDU2OC40NnwzMzYuOTl8MzU2LjU5'>
-    <rect x='524.44' y='336.99' width='44.03' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwzMzYuOTl8MzU2LjU5)'>
-<rect x='524.44' y='336.99' width='44.03' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #F2F2F2;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTI0LjQ0fDU2OC40NnwzNTYuNTl8Mzc2LjE5'>
-    <rect x='524.44' y='356.59' width='44.03' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwzNTYuNTl8Mzc2LjE5)'>
-<rect x='524.44' y='356.59' width='44.03' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #E5E5E5;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTI0LjQ0fDU2OC40NnwzNzYuMTl8Mzk1Ljc4'>
-    <rect x='524.44' y='376.19' width='44.03' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwzNzYuMTl8Mzk1Ljc4)'>
-<rect x='524.44' y='376.19' width='44.03' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #F2F2F2;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTI0LjQ0fDU2OC40NnwzOTUuNzh8NDE1LjM4'>
-    <rect x='524.44' y='395.78' width='44.03' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwzOTUuNzh8NDE1LjM4)'>
-<rect x='524.44' y='395.78' width='44.03' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #E5E5E5;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTY4LjQ2fDYyNy41MnwyMTkuNDF8MjM5LjAx'>
-    <rect x='568.46' y='219.41' width='59.05' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwyMTkuNDF8MjM5LjAx)'>
-<rect x='568.46' y='219.41' width='59.05' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #F2F2F2;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTY4LjQ2fDYyNy41MnwyMzkuMDF8MjU4LjYw'>
-    <rect x='568.46' y='239.01' width='59.05' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwyMzkuMDF8MjU4LjYw)'>
-<rect x='568.46' y='239.01' width='59.05' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #E5E5E5;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTY4LjQ2fDYyNy41MnwyNTguNjB8Mjc4LjIw'>
-    <rect x='568.46' y='258.60' width='59.05' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwyNTguNjB8Mjc4LjIw)'>
-<rect x='568.46' y='258.60' width='59.05' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #F2F2F2;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTY4LjQ2fDYyNy41MnwyNzguMjB8Mjk3Ljgw'>
-    <rect x='568.46' y='278.20' width='59.05' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwyNzguMjB8Mjk3Ljgw)'>
-<rect x='568.46' y='278.20' width='59.05' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #E5E5E5;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTY4LjQ2fDYyNy41MnwyOTcuODB8MzE3LjQw'>
-    <rect x='568.46' y='297.80' width='59.05' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwyOTcuODB8MzE3LjQw)'>
-<rect x='568.46' y='297.80' width='59.05' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #F2F2F2;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTY4LjQ2fDYyNy41MnwzMTcuNDB8MzM2Ljk5'>
-    <rect x='568.46' y='317.40' width='59.05' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwzMTcuNDB8MzM2Ljk5)'>
-<rect x='568.46' y='317.40' width='59.05' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #E5E5E5;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTY4LjQ2fDYyNy41MnwzMzYuOTl8MzU2LjU5'>
-    <rect x='568.46' y='336.99' width='59.05' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwzMzYuOTl8MzU2LjU5)'>
-<rect x='568.46' y='336.99' width='59.05' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #F2F2F2;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTY4LjQ2fDYyNy41MnwzNTYuNTl8Mzc2LjE5'>
-    <rect x='568.46' y='356.59' width='59.05' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwzNTYuNTl8Mzc2LjE5)'>
-<rect x='568.46' y='356.59' width='59.05' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #E5E5E5;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTY4LjQ2fDYyNy41MnwzNzYuMTl8Mzk1Ljc4'>
-    <rect x='568.46' y='376.19' width='59.05' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwzNzYuMTl8Mzk1Ljc4)'>
-<rect x='568.46' y='376.19' width='59.05' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #F2F2F2;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNTY4LjQ2fDYyNy41MnwzOTUuNzh8NDE1LjM4'>
-    <rect x='568.46' y='395.78' width='59.05' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwzOTUuNzh8NDE1LjM4)'>
-<rect x='568.46' y='395.78' width='59.05' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #E5E5E5;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNjI3LjUyfDY3NS41NnwyMTkuNDF8MjM5LjAx'>
-    <rect x='627.52' y='219.41' width='48.04' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwyMTkuNDF8MjM5LjAx)'>
-<rect x='627.52' y='219.41' width='48.04' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #F2F2F2;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNjI3LjUyfDY3NS41NnwyMzkuMDF8MjU4LjYw'>
-    <rect x='627.52' y='239.01' width='48.04' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwyMzkuMDF8MjU4LjYw)'>
-<rect x='627.52' y='239.01' width='48.04' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #E5E5E5;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNjI3LjUyfDY3NS41NnwyNTguNjB8Mjc4LjIw'>
-    <rect x='627.52' y='258.60' width='48.04' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwyNTguNjB8Mjc4LjIw)'>
-<rect x='627.52' y='258.60' width='48.04' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #F2F2F2;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNjI3LjUyfDY3NS41NnwyNzguMjB8Mjk3Ljgw'>
-    <rect x='627.52' y='278.20' width='48.04' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwyNzguMjB8Mjk3Ljgw)'>
-<rect x='627.52' y='278.20' width='48.04' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #E5E5E5;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNjI3LjUyfDY3NS41NnwyOTcuODB8MzE3LjQw'>
-    <rect x='627.52' y='297.80' width='48.04' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwyOTcuODB8MzE3LjQw)'>
-<rect x='627.52' y='297.80' width='48.04' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #F2F2F2;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNjI3LjUyfDY3NS41NnwzMTcuNDB8MzM2Ljk5'>
-    <rect x='627.52' y='317.40' width='48.04' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwzMTcuNDB8MzM2Ljk5)'>
-<rect x='627.52' y='317.40' width='48.04' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #E5E5E5;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNjI3LjUyfDY3NS41NnwzMzYuOTl8MzU2LjU5'>
-    <rect x='627.52' y='336.99' width='48.04' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwzMzYuOTl8MzU2LjU5)'>
-<rect x='627.52' y='336.99' width='48.04' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #F2F2F2;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNjI3LjUyfDY3NS41NnwzNTYuNTl8Mzc2LjE5'>
-    <rect x='627.52' y='356.59' width='48.04' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwzNTYuNTl8Mzc2LjE5)'>
-<rect x='627.52' y='356.59' width='48.04' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #E5E5E5;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNjI3LjUyfDY3NS41NnwzNzYuMTl8Mzk1Ljc4'>
-    <rect x='627.52' y='376.19' width='48.04' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwzNzYuMTl8Mzk1Ljc4)'>
-<rect x='627.52' y='376.19' width='48.04' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #F2F2F2;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<defs>
-  <clipPath id='cpNjI3LjUyfDY3NS41NnwzOTUuNzh8NDE1LjM4'>
-    <rect x='627.52' y='395.78' width='48.04' height='19.60' />
-  </clipPath>
-</defs>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwzOTUuNzh8NDE1LjM4)'>
-<rect x='627.52' y='395.78' width='48.04' height='19.60' style='stroke-width: 1.12; stroke: #FFFFFF; fill: #E5E5E5;' />
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwxNjAuNjJ8MTgwLjIy)'>
-<text x='546.45' y='174.55' text-anchor='middle' style='font-size: 12.00px; font-weight: bold; font-family: sans;' textLength='32.67px' lengthAdjust='spacingAndGlyphs'>Hitcall</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwxODAuMjJ8MTk5Ljgx)'>
-<text x='546.45' y='194.14' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='30.03px' lengthAdjust='spacingAndGlyphs'>1.000</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwxOTkuODF8MjE5LjQx)'>
-<text x='546.45' y='213.74' text-anchor='middle' style='font-size: 12.00px; font-weight: bold; font-family: sans;' textLength='32.69px' lengthAdjust='spacingAndGlyphs'>model</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwyMTkuNDF8MjM5LjAx)'>
-<text x='546.45' y='233.34' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='28.69px' lengthAdjust='spacingAndGlyphs'>poly2</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwxNjAuNjJ8MTgwLjIy)'>
-<text x='597.99' y='174.55' text-anchor='middle' style='font-size: 12.00px; font-weight: bold; font-family: sans;' textLength='26.68px' lengthAdjust='spacingAndGlyphs'>BMD</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwxODAuMjJ8MTk5Ljgx)'>
-<text x='597.99' y='194.14' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='36.71px' lengthAdjust='spacingAndGlyphs'>46.275</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwxOTkuODF8MjE5LjQx)'>
-<text x='597.99' y='213.74' text-anchor='middle' style='font-size: 12.00px; font-weight: bold; font-family: sans;' textLength='15.34px' lengthAdjust='spacingAndGlyphs'>aic</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwyMzkuMDF8MjU4LjYw)'>
-<text x='546.45' y='252.94' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='22.02px' lengthAdjust='spacingAndGlyphs'>pow</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwxNjAuNjJ8MTgwLjIy)'>
-<text x='651.54' y='174.55' text-anchor='middle' style='font-size: 12.00px; font-weight: bold; font-family: sans;' textLength='30.02px' lengthAdjust='spacingAndGlyphs'>AC50</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwxODAuMjJ8MTk5Ljgx)'>
-<text x='651.54' y='194.14' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='36.71px' lengthAdjust='spacingAndGlyphs'>79.547</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwxOTkuODF8MjE5LjQx)'>
-<text x='651.54' y='213.74' text-anchor='middle' style='font-size: 12.00px; font-weight: bold; font-family: sans;' textLength='20.67px' lengthAdjust='spacingAndGlyphs'>rme</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwyNTguNjB8Mjc4LjIw)'>
-<text x='546.45' y='272.53' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='26.03px' lengthAdjust='spacingAndGlyphs'>exp2</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwyNzguMjB8Mjk3Ljgw)'>
-<text x='546.45' y='292.13' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='14.67px' lengthAdjust='spacingAndGlyphs'>hill</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwyOTcuODB8MzE3LjQw)'>
-<text x='546.45' y='311.73' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='26.03px' lengthAdjust='spacingAndGlyphs'>exp3</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwzMTcuNDB8MzM2Ljk5)'>
-<text x='546.45' y='331.32' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='26.03px' lengthAdjust='spacingAndGlyphs'>exp5</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwzMzYuOTl8MzU2LjU5)'>
-<text x='546.45' y='350.92' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='22.02px' lengthAdjust='spacingAndGlyphs'>gnls</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwzNTYuNTl8Mzc2LjE5)'>
-<text x='546.45' y='370.52' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='28.69px' lengthAdjust='spacingAndGlyphs'>poly1</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwzNzYuMTl8Mzk1Ljc4)'>
-<text x='546.45' y='390.11' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='26.03px' lengthAdjust='spacingAndGlyphs'>exp4</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTI0LjQ0fDU2OC40NnwzOTUuNzh8NDE1LjM4)'>
-<text x='546.45' y='409.71' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='22.02px' lengthAdjust='spacingAndGlyphs'>cnst</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwyMTkuNDF8MjM5LjAx)'>
-<text x='597.99' y='233.34' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='47.71px' lengthAdjust='spacingAndGlyphs'>-2.1e+01</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwyMzkuMDF8MjU4LjYw)'>
-<text x='597.99' y='252.94' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='47.71px' lengthAdjust='spacingAndGlyphs'>-2.1e+01</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwyNTguNjB8Mjc4LjIw)'>
-<text x='597.99' y='272.53' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='47.71px' lengthAdjust='spacingAndGlyphs'>-2.1e+01</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwyNzguMjB8Mjk3Ljgw)'>
-<text x='597.99' y='292.13' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='47.71px' lengthAdjust='spacingAndGlyphs'>-1.9e+01</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwyOTcuODB8MzE3LjQw)'>
-<text x='597.99' y='311.73' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='47.71px' lengthAdjust='spacingAndGlyphs'>-1.9e+01</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwzMTcuNDB8MzM2Ljk5)'>
-<text x='597.99' y='331.32' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='47.71px' lengthAdjust='spacingAndGlyphs'>-1.9e+01</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwzMzYuOTl8MzU2LjU5)'>
-<text x='597.99' y='350.92' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='47.71px' lengthAdjust='spacingAndGlyphs'>-1.5e+01</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwzNTYuNTl8Mzc2LjE5)'>
-<text x='597.99' y='370.52' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='47.71px' lengthAdjust='spacingAndGlyphs'>-1.5e+01</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwzNzYuMTl8Mzk1Ljc4)'>
-<text x='597.99' y='390.11' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='47.71px' lengthAdjust='spacingAndGlyphs'>-7.3e+00</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNTY4LjQ2fDYyNy41MnwzOTUuNzh8NDE1LjM4)'>
-<text x='597.99' y='409.71' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='30.03px' lengthAdjust='spacingAndGlyphs'>4.350</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwyMTkuNDF8MjM5LjAx)'>
-<text x='651.54' y='233.34' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='30.03px' lengthAdjust='spacingAndGlyphs'>0.094</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwyMzkuMDF8MjU4LjYw)'>
-<text x='651.54' y='252.94' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='30.03px' lengthAdjust='spacingAndGlyphs'>0.094</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwyNTguNjB8Mjc4LjIw)'>
-<text x='651.54' y='272.53' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='30.03px' lengthAdjust='spacingAndGlyphs'>0.093</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwyNzguMjB8Mjk3Ljgw)'>
-<text x='651.54' y='292.13' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='30.03px' lengthAdjust='spacingAndGlyphs'>0.094</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwyOTcuODB8MzE3LjQw)'>
-<text x='651.54' y='311.73' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='30.03px' lengthAdjust='spacingAndGlyphs'>0.093</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwzMTcuNDB8MzM2Ljk5)'>
-<text x='651.54' y='331.32' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='30.03px' lengthAdjust='spacingAndGlyphs'>0.094</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwzMzYuOTl8MzU2LjU5)'>
-<text x='651.54' y='350.92' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='30.03px' lengthAdjust='spacingAndGlyphs'>0.094</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwzNTYuNTl8Mzc2LjE5)'>
-<text x='651.54' y='370.52' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='30.03px' lengthAdjust='spacingAndGlyphs'>0.116</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwzNzYuMTl8Mzk1Ljc4)'>
-<text x='651.54' y='390.11' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='30.03px' lengthAdjust='spacingAndGlyphs'>0.142</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-<g clip-path='url(#cpNjI3LjUyfDY3NS41NnwzOTUuNzh8NDE1LjM4)'>
-<text x='651.54' y='409.71' text-anchor='middle' style='font-size: 12.00px; font-family: sans;' textLength='30.03px' lengthAdjust='spacingAndGlyphs'>0.332</text>
-</g>
-<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
-</g>
-</svg>
diff --git a/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/assay.json b/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/assay.json
new file mode 100644
index 00000000..3d4de4e4
--- /dev/null
+++ b/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/assay.json
@@ -0,0 +1,236 @@
+[
+    {
+        "aeid": 1390,
+        "assayComponentEndpointName": "LTEA_HepaRG_SLC22A6",
+        "exportReady": 1,
+        "internalReady": 1,
+        "assayComponentEndpointDesc": "Data from the assay component LTEA_HepaRG_SLC22A6 was analyzed into 1 endpoint. This assay endpoint, LTEA_HepaRG_SLC22A6, was analyzed with bidirectional fitting relative to DMSO as the negative control and baseline of activity.  Using a type of inducible reporter, measures of mRNA induction for gain or loss-of-signal activity can be used to understand regulation of transcription factor activity. To generalize the intended target to other relatable targets, this assay endpoint is annotated to the transporter intended target family, where the subfamily is organic anion transporter.",
+        "assayFunctionType": "reporter gene",
+        "normalizedDataType": "log2_fold_induction",
+        "burstAssay": 0,
+        "keyPositiveControl": null,
+        "signalDirection": "bidirectional",
+        "intendedTargetType": "rna",
+        "intendedTargetTypeSub": "mRNA",
+        "intendedTargetFamily": "transporter",
+        "intendedTargetFamilySub": "organic anion transporter",
+        "cellViabilityAssay": 0,
+        "dataUsability": 1,
+        "acid": 957,
+        "assayComponentName": "LTEA_HepaRG_SLC22A6",
+        "assayComponentDesc": "LTEA_HepaRG_SLC22A6 is one of 102 assay component(s) measured in the LTEA HepaRG cell culture assay. It is a marker of NR mediated transport.",
+        "assayComponentTargetDesc": "Metabolically-competent HepaRG cell cultures were exposed to a chemical for 48 hours before cytotoxicty (LDH) and alterations in transcription were assessed.",
+        "parameterReadoutType": "single",
+        "assayDesignType": "inducible reporter",
+        "assayDesignTypeSub": "mRNA induction",
+        "biologicalProcessTarget": "regulation of transcription factor activity",
+        "detectionTechnologyType": "Fluorescence",
+        "detectionTechnologyTypeSub": "Fluorescence intensity",
+        "detectionTechnology": "Fluidigm qRT-PCR",
+        "keyAssayReagentType": null,
+        "keyAssayReagent": null,
+        "technologicalTargetType": "rna",
+        "technologicalTargetTypeSub": "mRNA",
+        "aid": 371,
+        "assayName": "LTEA_HepaRG",
+        "assayDesc": "LTEA_HepaRG is a cell based, multiplexed-readout assay that uses HepaRG, a human liver cell line, with measurements taken at 48 hours after chemical dosing on a 96-well plate.",
+        "timepointHr": 48.0,
+        "organismId": 9606,
+        "organism": "human",
+        "tissue": "liver",
+        "cellFormat": "cell line",
+        "cellFreeComponentSource": "",
+        "cellShortName": "HepaRG",
+        "cellGrowthMode": "adherent",
+        "assayFootprint": "microplate: 96-well plate",
+        "assayFormatType": "cell-based",
+        "assayFormatTypeSub": "cell-based format",
+        "contentReadoutType": "multiplexed",
+        "dilutionSolvent": "DMSO",
+        "dilutionSolventPercentMax": 0.5,
+        "asid": 9,
+        "assaySourceName": "LTEA",
+        "assaySourceLongName": "LifeTech/Expression Analysis",
+        "assaySourceDesc": "Life Technologies, acquired by Thermo Fisher, is a Contract Research Organization (CRO) that provides transcriptomics and expression screening.",
+        "gene": {
+            "geneId": 353,
+            "geneName": "solute carrier family 22 (organic anion transporter), member 6",
+            "description": null,
+            "geneSymbol": "SLC22A6",
+            "organismId": 1,
+            "trackStatus": "live",
+            "entrezGeneId": 9356,
+            "officialSymbol": "SLC22A6",
+            "officialFullName": "solute carrier family 22 (organic anion transporter), member 6",
+            "uniprotAccessionNumber": "Q4U2R8"
+        },
+        "assayList": null,
+        "citations": {
+            "doi": "doi: 10.1038/s41540-020-00166-2",
+            "url": "https://pubmed.ncbi.nlm.nih.gov/33504769/",
+            "pmid": 33504769,
+            "title": "High-throughput toxicogenomic screening of chemicals in the environment using metabolically competent hepatic cell cultures",
+            "author": "Franzosa JA, Bonzo JA, Jack J, Baker NC, Kothiya P, Witek RP, Hurban P, Siferd S, Hester S, Shah I, Ferguson SS, Houck KA, Wambaugh JF",
+            "citation": "Franzosa JA, Bonzo JA, Jack J, Baker NC, Kothiya P, Witek RP, Hurban P, Siferd S, Hester S, Shah I, Ferguson SS, Houck KA, Wambaugh JF. High-throughput toxicogenomic screening of chemicals in the environment using metabolically competent hepatic cell cultures. NPJ Syst Biol Appl. 2021 Jan 27;7(1):7. doi: 10.1038/s41540-020-00166-2. PMID: 33504769; PMCID: PMC7840683.",
+            "otherId": "0",
+            "citationId": 247,
+            "otherSource": ""
+        }
+    },
+    {
+        "aeid": 1392,
+        "assayComponentEndpointName": "LTEA_HepaRG_KLK3",
+        "exportReady": 1,
+        "internalReady": 1,
+        "assayComponentEndpointDesc": "Data from the assay component LTEA_HepaRG_KLK3 was analyzed into 1 endpoint. This assay endpoint, LTEA_HepaRG_KLK3, was analyzed with bidirectional fitting relative to DMSO as the negative control and baseline of activity.  Using a type of inducible reporter, measures of mRNA induction for gain or loss-of-signal activity can be used to understand regulation of transcription factor activity. To generalize the intended target to other relatable targets, this assay endpoint is annotated to the protease intended target family, where the subfamily is Cellular remodeling.",
+        "assayFunctionType": "reporter gene",
+        "normalizedDataType": "log2_fold_induction",
+        "burstAssay": 0,
+        "keyPositiveControl": null,
+        "signalDirection": "bidirectional",
+        "intendedTargetType": "rna",
+        "intendedTargetTypeSub": "mRNA",
+        "intendedTargetFamily": "protease",
+        "intendedTargetFamilySub": "Cellular remodeling",
+        "cellViabilityAssay": 0,
+        "dataUsability": 1,
+        "acid": 958,
+        "assayComponentName": "LTEA_HepaRG_KLK3",
+        "assayComponentDesc": "LTEA_HepaRG_KLK3 is one of 102 assay component(s) measured in the LTEA HepaRG cell culture assay. It is a marker of Cellular remodeling.",
+        "assayComponentTargetDesc": "Metabolically-competent HepaRG cell cultures were exposed to a chemical for 48 hours before cytotoxicty (LDH) and alterations in transcription were assessed.",
+        "parameterReadoutType": "single",
+        "assayDesignType": "inducible reporter",
+        "assayDesignTypeSub": "mRNA induction",
+        "biologicalProcessTarget": "regulation of transcription factor activity",
+        "detectionTechnologyType": "Fluorescence",
+        "detectionTechnologyTypeSub": "Fluorescence intensity",
+        "detectionTechnology": "Fluidigm qRT-PCR",
+        "keyAssayReagentType": null,
+        "keyAssayReagent": null,
+        "technologicalTargetType": "rna",
+        "technologicalTargetTypeSub": "mRNA",
+        "aid": 371,
+        "assayName": "LTEA_HepaRG",
+        "assayDesc": "LTEA_HepaRG is a cell based, multiplexed-readout assay that uses HepaRG, a human liver cell line, with measurements taken at 48 hours after chemical dosing on a 96-well plate.",
+        "timepointHr": 48.0,
+        "organismId": 9606,
+        "organism": "human",
+        "tissue": "liver",
+        "cellFormat": "cell line",
+        "cellFreeComponentSource": "",
+        "cellShortName": "HepaRG",
+        "cellGrowthMode": "adherent",
+        "assayFootprint": "microplate: 96-well plate",
+        "assayFormatType": "cell-based",
+        "assayFormatTypeSub": "cell-based format",
+        "contentReadoutType": "multiplexed",
+        "dilutionSolvent": "DMSO",
+        "dilutionSolventPercentMax": 0.5,
+        "asid": 9,
+        "assaySourceName": "LTEA",
+        "assaySourceLongName": "LifeTech/Expression Analysis",
+        "assaySourceDesc": "Life Technologies, acquired by Thermo Fisher, is a Contract Research Organization (CRO) that provides transcriptomics and expression screening.",
+        "gene": {
+            "geneId": 25,
+            "geneName": "kallikrein-related peptidase 3",
+            "description": null,
+            "geneSymbol": "KLK3",
+            "organismId": 1,
+            "trackStatus": "live",
+            "entrezGeneId": 354,
+            "officialSymbol": "KLK3",
+            "officialFullName": "kallikrein-related peptidase 3",
+            "uniprotAccessionNumber": "P07288"
+        },
+        "assayList": null,
+        "citations": {
+            "doi": "doi: 10.1038/s41540-020-00166-2",
+            "url": "https://pubmed.ncbi.nlm.nih.gov/33504769/",
+            "pmid": 33504769,
+            "title": "High-throughput toxicogenomic screening of chemicals in the environment using metabolically competent hepatic cell cultures",
+            "author": "Franzosa JA, Bonzo JA, Jack J, Baker NC, Kothiya P, Witek RP, Hurban P, Siferd S, Hester S, Shah I, Ferguson SS, Houck KA, Wambaugh JF",
+            "citation": "Franzosa JA, Bonzo JA, Jack J, Baker NC, Kothiya P, Witek RP, Hurban P, Siferd S, Hester S, Shah I, Ferguson SS, Houck KA, Wambaugh JF. High-throughput toxicogenomic screening of chemicals in the environment using metabolically competent hepatic cell cultures. NPJ Syst Biol Appl. 2021 Jan 27;7(1):7. doi: 10.1038/s41540-020-00166-2. PMID: 33504769; PMCID: PMC7840683.",
+            "otherId": "0",
+            "citationId": 247,
+            "otherSource": ""
+        }
+    },
+    {
+        "aeid": 1394,
+        "assayComponentEndpointName": "LTEA_HepaRG_SLC10A1",
+        "exportReady": 1,
+        "internalReady": 1,
+        "assayComponentEndpointDesc": "Data from the assay component LTEA_HepaRG_SLC10A1 was analyzed into 1 endpoint. This assay endpoint, LTEA_HepaRG_SLC10A1, was analyzed with bidirectional fitting relative to DMSO as the negative control and baseline of activity.  Using a type of inducible reporter, measures of mRNA induction for gain or loss-of-signal activity can be used to understand regulation of transcription factor activity. To generalize the intended target to other relatable targets, this assay endpoint is annotated to the transporter intended target family, where the subfamily is sodium/bile acid cotransporter.",
+        "assayFunctionType": "reporter gene",
+        "normalizedDataType": "log2_fold_induction",
+        "burstAssay": 0,
+        "keyPositiveControl": null,
+        "signalDirection": "bidirectional",
+        "intendedTargetType": "rna",
+        "intendedTargetTypeSub": "mRNA",
+        "intendedTargetFamily": "transporter",
+        "intendedTargetFamilySub": "sodium/bile acid cotransporter",
+        "cellViabilityAssay": 0,
+        "dataUsability": 1,
+        "acid": 959,
+        "assayComponentName": "LTEA_HepaRG_SLC10A1",
+        "assayComponentDesc": "LTEA_HepaRG_SLC10A1 is one of 102 assay component(s) measured in the LTEA HepaRG cell culture assay. It is a marker of NR mediated transport.",
+        "assayComponentTargetDesc": "Metabolically-competent HepaRG cell cultures were exposed to a chemical for 48 hours before cytotoxicty (LDH) and alterations in transcription were assessed.",
+        "parameterReadoutType": "single",
+        "assayDesignType": "inducible reporter",
+        "assayDesignTypeSub": "mRNA induction",
+        "biologicalProcessTarget": "regulation of transcription factor activity",
+        "detectionTechnologyType": "Fluorescence",
+        "detectionTechnologyTypeSub": "Fluorescence intensity",
+        "detectionTechnology": "Fluidigm qRT-PCR",
+        "keyAssayReagentType": null,
+        "keyAssayReagent": null,
+        "technologicalTargetType": "rna",
+        "technologicalTargetTypeSub": "mRNA",
+        "aid": 371,
+        "assayName": "LTEA_HepaRG",
+        "assayDesc": "LTEA_HepaRG is a cell based, multiplexed-readout assay that uses HepaRG, a human liver cell line, with measurements taken at 48 hours after chemical dosing on a 96-well plate.",
+        "timepointHr": 48.0,
+        "organismId": 9606,
+        "organism": "human",
+        "tissue": "liver",
+        "cellFormat": "cell line",
+        "cellFreeComponentSource": "",
+        "cellShortName": "HepaRG",
+        "cellGrowthMode": "adherent",
+        "assayFootprint": "microplate: 96-well plate",
+        "assayFormatType": "cell-based",
+        "assayFormatTypeSub": "cell-based format",
+        "contentReadoutType": "multiplexed",
+        "dilutionSolvent": "DMSO",
+        "dilutionSolventPercentMax": 0.5,
+        "asid": 9,
+        "assaySourceName": "LTEA",
+        "assaySourceLongName": "LifeTech/Expression Analysis",
+        "assaySourceDesc": "Life Technologies, acquired by Thermo Fisher, is a Contract Research Organization (CRO) that provides transcriptomics and expression screening.",
+        "gene": {
+            "geneId": 299,
+            "geneName": "solute carrier family 10 (sodium/bile acid cotransporter), member 1",
+            "description": null,
+            "geneSymbol": "SLC10A1",
+            "organismId": 1,
+            "trackStatus": "live",
+            "entrezGeneId": 6554,
+            "officialSymbol": "SLC10A1",
+            "officialFullName": "solute carrier family 10 (sodium/bile acid cotransporter), member 1",
+            "uniprotAccessionNumber": "Q14973"
+        },
+        "assayList": null,
+        "citations": {
+            "doi": "doi: 10.1038/s41540-020-00166-2",
+            "url": "https://pubmed.ncbi.nlm.nih.gov/33504769/",
+            "pmid": 33504769,
+            "title": "High-throughput toxicogenomic screening of chemicals in the environment using metabolically competent hepatic cell cultures",
+            "author": "Franzosa JA, Bonzo JA, Jack J, Baker NC, Kothiya P, Witek RP, Hurban P, Siferd S, Hester S, Shah I, Ferguson SS, Houck KA, Wambaugh JF",
+            "citation": "Franzosa JA, Bonzo JA, Jack J, Baker NC, Kothiya P, Witek RP, Hurban P, Siferd S, Hester S, Shah I, Ferguson SS, Houck KA, Wambaugh JF. High-throughput toxicogenomic screening of chemicals in the environment using metabolically competent hepatic cell cultures. NPJ Syst Biol Appl. 2021 Jan 27;7(1):7. doi: 10.1038/s41540-020-00166-2. PMID: 33504769; PMCID: PMC7840683.",
+            "otherId": "0",
+            "citationId": 247,
+            "otherSource": ""
+        }
+    }
+]
\ No newline at end of file
diff --git a/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-aeid/0.json b/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-aeid/0.json
new file mode 100644
index 00000000..41b42e67
--- /dev/null
+++ b/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-aeid/0.json
@@ -0,0 +1,3 @@
+[
+
+]
diff --git a/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-aeid/1390.json b/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-aeid/1390.json
new file mode 100644
index 00000000..98ff9665
--- /dev/null
+++ b/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-aeid/1390.json
@@ -0,0 +1,372 @@
+[
+    {
+        "aeid": 1390,
+        "m4id": 906167,
+        "spid": "TX009761",
+        "chid": 24845,
+        "casn": "64-86-8",
+        "chnm": "Colchicine",
+        "dtxsid": "DTXSID5024845",
+        "bmad": 0.9405044150032765,
+        "respMax": 2.60967253749995,
+        "respMin": 2.1440377088333484,
+        "maxMean": 2.3768551231666493,
+        "maxMeanConc": -1.5228787452803376,
+        "maxMed": 2.3768551231666493,
+        "maxMedConc": -1.5228787452803376,
+        "logcMax": -1.5228787452803376,
+        "logcMin": -1.5228787452803376,
+        "nconc": 1,
+        "npts": 2,
+        "nrep": 2.0,
+        "nmedGtbl": 0,
+        "tmpi": 72,
+        "m5id": 6384473,
+        "modl": "none",
+        "hitc": 0.0,
+        "fitc": 2,
+        "coff": 2.8215132450098297,
+        "actp": null,
+        "modelType": 2,
+        "chidRep": 1,
+        "stkc": 20.0,
+        "stkcUnit": "mM",
+        "testedConcUnit": "uM",
+        "mc3Param": {
+            "logc": [
+                -1.5228787452803376,
+                -1.5228787452803376
+            ],
+            "resp": [
+                2.1440377088333484,
+                2.60967253749995
+            ]
+        },
+        "mc4Param": {
+            "pow_a": null,
+            "pow_p": null,
+            "exp2_a": null,
+            "exp2_b": null,
+            "exp3_a": null,
+            "exp3_b": null,
+            "exp3_p": null,
+            "exp5_p": null,
+            "gnls_p": null,
+            "gnls_q": null,
+            "hill_p": null,
+            "pow_er": null,
+            "cnst_er": null,
+            "exp2_er": null,
+            "exp3_er": null,
+            "exp4_er": null,
+            "exp4_ga": null,
+            "exp4_tp": null,
+            "exp5_er": null,
+            "exp5_ga": null,
+            "exp5_tp": null,
+            "gnls_er": null,
+            "gnls_ga": null,
+            "gnls_la": null,
+            "gnls_tp": null,
+            "hill_er": null,
+            "hill_ga": null,
+            "hill_tp": null,
+            "poly1_a": null,
+            "poly2_a": null,
+            "poly2_b": null,
+            "pow_aic": null,
+            "pow_cov": null,
+            "pow_rme": null,
+            "all_bmed": 0,
+            "cnst_aic": null,
+            "cnst_rme": null,
+            "exp2_aic": null,
+            "exp2_cov": null,
+            "exp2_rme": null,
+            "exp3_aic": null,
+            "exp3_cov": null,
+            "exp3_rme": null,
+            "exp4_aic": null,
+            "exp4_cov": null,
+            "exp4_rme": null,
+            "exp5_aic": null,
+            "exp5_cov": null,
+            "exp5_rme": null,
+            "gnls_aic": null,
+            "gnls_cov": null,
+            "gnls_rme": null,
+            "hill_aic": null,
+            "hill_cov": null,
+            "hill_rme": null,
+            "poly1_er": null,
+            "poly2_er": null,
+            "pow_a_sd": null,
+            "pow_p_sd": null,
+            "all_onesd": 1.0063376519421736,
+            "exp2_a_sd": null,
+            "exp2_b_sd": null,
+            "exp3_a_sd": null,
+            "exp3_b_sd": null,
+            "exp3_p_sd": null,
+            "exp5_p_sd": null,
+            "gnls_p_sd": null,
+            "gnls_q_sd": null,
+            "hill_p_sd": null,
+            "poly1_aic": null,
+            "poly1_cov": null,
+            "poly1_rme": null,
+            "poly2_aic": null,
+            "poly2_cov": null,
+            "poly2_rme": null,
+            "pow_er_sd": null,
+            "exp2_er_sd": null,
+            "exp3_er_sd": null,
+            "exp4_er_sd": null,
+            "exp4_ga_sd": null,
+            "exp4_tp_sd": null,
+            "exp5_er_sd": null,
+            "exp5_ga_sd": null,
+            "exp5_tp_sd": null,
+            "gnls_er_sd": null,
+            "gnls_ga_sd": null,
+            "gnls_la_sd": null,
+            "gnls_tp_sd": null,
+            "hill_er_sd": null,
+            "hill_ga_sd": null,
+            "hill_tp_sd": null,
+            "poly1_a_sd": null,
+            "poly2_a_sd": null,
+            "poly2_b_sd": null,
+            "poly1_er_sd": null,
+            "poly2_er_sd": null,
+            "pow_success": null,
+            "cnst_success": null,
+            "exp2_success": null,
+            "exp3_success": null,
+            "exp4_success": null,
+            "exp5_success": null,
+            "gnls_success": null,
+            "hill_success": null,
+            "poly1_success": null,
+            "poly2_success": null
+        },
+        "mc5Param": {
+            "bmr": 1.3575494924699922,
+            "hitcall": 0
+        },
+        "mc6Param": null
+    },
+    {
+        "aeid": 1390,
+        "m4id": 906192,
+        "spid": "TX012530",
+        "chid": 34192,
+        "casn": "10161-33-8",
+        "chnm": "17beta-Trenbolone",
+        "dtxsid": "DTXSID0034192",
+        "bmad": 0.9405044150032765,
+        "respMax": 2.717409684333399,
+        "respMin": -0.8545140676665994,
+        "maxMean": 1.3163384146666992,
+        "maxMeanConc": -1.5228787452803376,
+        "maxMed": 1.3163384146666992,
+        "maxMedConc": -1.5228787452803376,
+        "logcMax": 1.4771212547196624,
+        "logcMin": -1.5228787452803376,
+        "nconc": 6,
+        "npts": 10,
+        "nrep": 2.0,
+        "nmedGtbl": 0,
+        "tmpi": 97,
+        "m5id": 6384498,
+        "modl": "poly1",
+        "hitc": 1.5382110124750505E-5,
+        "fitc": 13,
+        "coff": 2.8215132450098297,
+        "actp": null,
+        "modelType": 2,
+        "chidRep": 1,
+        "stkc": 19.58913043530091,
+        "stkcUnit": "mM",
+        "testedConcUnit": "uM",
+        "mc3Param": {
+            "logc": [
+                -1.5228787452803376,
+                1.4771212547196624,
+                0.47712125471966244,
+                -1.5228787452803376,
+                0,
+                0,
+                -0.5228787452803376,
+                -1,
+                -0.5228787452803376,
+                -1
+            ],
+            "resp": [
+                -0.08473285500000038,
+                -0.3307718959999999,
+                0.2718659670000001,
+                2.717409684333399,
+                -0.7598897116665988,
+                0.616657414666701,
+                0.9084294140000004,
+                -0.5178109723332991,
+                -0.8545140676665994,
+                -0.15577021666659974
+            ]
+        },
+        "mc4Param": {
+            "pow_a": -0.0000032015551244766303,
+            "pow_p": 3.3938876456093636,
+            "exp2_a": -0.0008425672205370199,
+            "exp2_b": 5.025952810047121,
+            "exp3_a": -0.3165412302939914,
+            "exp3_b": 32.7886760846325,
+            "exp3_p": 3.823113636098184,
+            "exp5_p": 4.521308309626776,
+            "gnls_p": 0.7060536922649157,
+            "gnls_q": 7.995803111831659,
+            "hill_p": 7.999995740946841,
+            "pow_er": -0.3948197735362726,
+            "cnst_er": -0.3688009411915791,
+            "exp2_er": -0.39189255925874833,
+            "exp3_er": -0.394828315652932,
+            "exp4_er": -0.39001576568747853,
+            "exp4_ga": 94.86188101488622,
+            "exp4_tp": -1.536218042365886,
+            "exp5_er": -0.3943079735577426,
+            "exp5_ga": 38.01553780063972,
+            "exp5_tp": -1.5637566207089924,
+            "gnls_er": -0.3888279954274361,
+            "gnls_ga": 0.008360957321139052,
+            "gnls_la": 0.26439669331621307,
+            "gnls_tp": -0.11011944003100936,
+            "hill_er": -0.3969989913318005,
+            "hill_ga": 0.05553142030323221,
+            "hill_tp": -0.14277058589126485,
+            "poly1_a": -0.010176546872189638,
+            "poly2_a": -0.00014558397574643742,
+            "poly2_b": 0.6414632462188614,
+            "pow_aic": 32.701296578338486,
+            "pow_cov": 1,
+            "pow_rme": 1.0134598100344008,
+            "pow_top": -0.33002326866351944,
+            "all_bmed": 0,
+            "cnst_aic": 28.986099667961145,
+            "cnst_rme": 1.0188398204286804,
+            "exp2_aic": 32.70205365440622,
+            "exp2_cov": 1,
+            "exp2_rme": 1.013472783830085,
+            "exp2_top": -0.3287033214604972,
+            "exp3_aic": 34.70116703286695,
+            "exp3_cov": 1,
+            "exp3_rme": 1.0134574027805858,
+            "exp3_top": -0.32852403639508787,
+            "exp4_aic": 32.74728386838651,
+            "exp4_cov": 1,
+            "exp4_rme": 1.0143301743393136,
+            "exp4_top": -1.536218042365886,
+            "exp5_aic": 34.70111771210726,
+            "exp5_cov": 1,
+            "exp5_rme": 1.0134565513089702,
+            "exp5_top": -1.5637566207089924,
+            "gnls_aic": 38.93400660033059,
+            "gnls_cov": 1,
+            "gnls_rme": 1.034443341409848,
+            "gnls_top": -0.09639462099752036,
+            "hill_aic": 34.71752150835012,
+            "hill_cov": 1,
+            "hill_rme": 1.0156361325302317,
+            "hill_top": -0.14277058589126485,
+            "poly1_er": -0.3904282715639928,
+            "poly2_er": -0.3885113969429605,
+            "pow_a_sd": 0.000007635522959665768,
+            "pow_ac50": 24.458147755686916,
+            "pow_p_sd": 0.639975040113934,
+            "all_onesd": 1.0063376519421736,
+            "exp2_a_sd": 0.02555615257745943,
+            "exp2_ac50": 26.529108697337612,
+            "exp2_b_sd": 25.57941425563839,
+            "exp3_a_sd": null,
+            "exp3_ac50": 26.099812908926182,
+            "exp3_b_sd": null,
+            "exp3_p_sd": null,
+            "exp4_ac50": 94.86188101488622,
+            "exp5_ac50": 38.01553780063972,
+            "exp5_p_sd": 175.1469903178518,
+            "gnls_ac50": 0.005863101227685299,
+            "gnls_p_sd": null,
+            "gnls_q_sd": null,
+            "hill_ac50": 0.05553142030323221,
+            "hill_p_sd": 33.18967248654182,
+            "poly1_aic": 30.74302350258141,
+            "poly1_cov": 1,
+            "poly1_rme": 1.0142482587192818,
+            "poly1_top": -0.3052964061656891,
+            "poly2_aic": 32.706800555191634,
+            "poly2_cov": 1,
+            "poly2_rme": 1.0135546465438303,
+            "poly2_top": -0.3252376206529743,
+            "pow_er_sd": 0.3056178894168387,
+            "exp2_er_sd": 0.30593434754216753,
+            "exp3_er_sd": null,
+            "exp4_er_sd": 0.30493315529014337,
+            "exp4_ga_sd": 1415.862995217581,
+            "exp4_tp_sd": 20.95632072022936,
+            "exp5_er_sd": 0.30568017455861324,
+            "exp5_ga_sd": 1717.327449801869,
+            "exp5_tp_sd": 256.65062953004656,
+            "gnls_er_sd": null,
+            "gnls_ga_sd": null,
+            "gnls_la_sd": null,
+            "gnls_tp_sd": null,
+            "hill_er_sd": 0.3082074518503941,
+            "hill_ga_sd": 0.1384923679951287,
+            "hill_tp_sd": 0.27120396237793026,
+            "poly1_a_sd": 0.02009033680518044,
+            "poly1_ac50": 14.999999999999998,
+            "poly2_a_sd": 0.0044102960138753585,
+            "poly2_ac50": 21.12046278082584,
+            "poly2_b_sd": 9.884046203612312,
+            "poly1_er_sd": 0.30494359178836106,
+            "poly2_er_sd": 0.306194068294261,
+            "pow_success": 1,
+            "cnst_success": 1,
+            "exp2_success": 1,
+            "exp3_success": 1,
+            "exp4_success": 1,
+            "exp5_success": 1,
+            "gnls_success": 1,
+            "hill_success": 1,
+            "poly1_success": 1,
+            "poly2_success": 1,
+            "gnls_ac50_loss": 0.2676524754092505
+        },
+        "mc5Param": {
+            "a": -0.010176546872189638,
+            "er": -0.3904282715639928,
+            "ac5": 1.4999999999999998,
+            "bmd": 133.399817199279,
+            "bmr": 1.3575494924699922,
+            "mll": -13.371511751290704,
+            "top": -0.3052964061656891,
+            "ac10": 2.9999999999999996,
+            "ac20": 5.999999999999999,
+            "ac50": 14.999999999999998,
+            "bmdl": 28.55532213605833,
+            "rmse": 1.0142482587192818,
+            "ac1sd": 98.88792972518829,
+            "caikwt": 0.7065033912112693,
+            "hitcall": 0.000015382110124750505,
+            "top_over_cutoff": 0.10820307390214838
+        },
+        "mc6Param": {
+            "flag": [
+                "Bmd > ac50, indication of high baseline variability"
+            ],
+            "mc6MthdId": [
+                9
+            ]
+        }
+    }
+]
\ No newline at end of file
diff --git a/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-dtxsid/DTXSID7024827.json b/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-dtxsid/DTXSID7024827.json
new file mode 100644
index 00000000..021c2671
--- /dev/null
+++ b/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-dtxsid/DTXSID7024827.json
@@ -0,0 +1,217 @@
+[
+    {
+        "aeid": 1390,
+        "m4id": 906160,
+        "spid": "TX007998",
+        "chid": 24827,
+        "casn": "69-09-0",
+        "chnm": "Chlorpromazine hydrochloride",
+        "dtxsid": "DTXSID7024827",
+        "bmad": 0.9405044150032765,
+        "respMax": 1.8515926973332988,
+        "respMin": -1.4281684306667,
+        "maxMean": 1.8515926973332988,
+        "maxMeanConc": 0.47712125471966244,
+        "maxMed": 1.8515926973332988,
+        "maxMedConc": 0.47712125471966244,
+        "logcMax": 1.4771212547196624,
+        "logcMin": -1.5228787452803376,
+        "nconc": 7,
+        "npts": 11,
+        "nrep": 2.0,
+        "nmedGtbl": 0,
+        "tmpi": 65,
+        "m5id": 6384466,
+        "modl": "poly1",
+        "hitc": 0.0024578389852192156,
+        "fitc": 13,
+        "coff": 2.8215132450098297,
+        "actp": null,
+        "modelType": 2,
+        "chidRep": 1,
+        "stkc": 20.0,
+        "stkcUnit": "mM",
+        "testedConcUnit": "uM",
+        "mc3Param": {
+            "logc": [
+                -1.5228787452803376,
+                1.4771212547196624,
+                1,
+                1,
+                0,
+                -0.5228787452803376,
+                -1,
+                0,
+                -0.5228787452803376,
+                -1,
+                0.47712125471966244
+            ],
+            "resp": [
+                -0.9813260029999995,
+                1.5374573823333009,
+                -1.4281684306667,
+                -0.32735703500000035,
+                -1.3241634073333994,
+                -1.0260995583333994,
+                -1.0514509676666997,
+                -0.5339457896666993,
+                0.12475134633329965,
+                0.19027474800000022,
+                1.8515926973332988
+            ]
+        },
+        "mc4Param": {
+            "pow_a": -0.12566043650192105,
+            "pow_p": 0.3000000760970656,
+            "exp2_a": 0.00005409723692181811,
+            "exp2_b": 2.926433605638978,
+            "exp3_a": 0.0860553861034103,
+            "exp3_b": 25.39417577173585,
+            "exp3_p": 6.462227914321612,
+            "exp5_p": 7.999995501143407,
+            "gnls_p": 7.999999766002532,
+            "gnls_q": 5.893182343508286,
+            "hill_p": 7.999977254660707,
+            "pow_er": -0.02668788798634633,
+            "cnst_er": -0.00005587395876571964,
+            "exp2_er": -0.14143509239759122,
+            "exp3_er": -0.13812042333901542,
+            "exp4_er": -0.16122837373604454,
+            "exp4_ga": 0.0030000004459148624,
+            "exp4_tp": -0.4810580307329651,
+            "exp5_er": -0.014805216328310444,
+            "exp5_ga": 2.1980811936727713,
+            "exp5_tp": 0.531614971877592,
+            "gnls_er": -0.1375957170803842,
+            "gnls_ga": 27.127146335911107,
+            "gnls_la": 2743.9146424667124,
+            "gnls_tp": 2.2219107252768273,
+            "hill_er": -0.13751350433218543,
+            "hill_ga": 27.12725380446655,
+            "hill_tp": 2.221910837751462,
+            "poly1_a": 0.034174465728783694,
+            "poly2_a": 0.00000581387559022372,
+            "poly2_b": 0.0613437971523207,
+            "pow_aic": 40.730575914149746,
+            "pow_cov": 1,
+            "pow_rme": 1.108005849297976,
+            "pow_top": -0.34860615663608846,
+            "all_bmed": 0,
+            "cnst_aic": 36.88069322285861,
+            "cnst_rme": 1.0933976567217754,
+            "exp2_aic": 38.30484249916912,
+            "exp2_cov": 1,
+            "exp2_rme": 0.990514101299949,
+            "exp2_top": 1.5320750752034935,
+            "exp3_aic": 40.29939443038798,
+            "exp3_cov": 1,
+            "exp3_rme": 0.9903013443725064,
+            "exp3_top": 1.5355429734335535,
+            "exp4_aic": 38.95205323487634,
+            "exp4_cov": 1,
+            "exp4_rme": 1.0804367450037984,
+            "exp4_top": -0.4810580307329651,
+            "exp5_aic": 42.41773720168884,
+            "exp5_cov": 1,
+            "exp5_rme": 1.0680140469043815,
+            "exp5_top": 0.531614971877592,
+            "gnls_aic": 44.30150704437108,
+            "gnls_cov": 1,
+            "gnls_rme": 0.9903897984324356,
+            "gnls_top": 2.221910034969751,
+            "hill_aic": 40.301507223703744,
+            "hill_cov": 1,
+            "hill_rme": 0.9903898000887952,
+            "hill_top": 2.221910837751462,
+            "poly1_er": -0.04768893180125318,
+            "poly2_er": -0.1076996570720005,
+            "pow_a_sd": null,
+            "pow_ac50": 2.9763787168112,
+            "pow_p_sd": null,
+            "all_onesd": 1.0063376519421736,
+            "exp2_a_sd": 0.0005773152369056387,
+            "exp2_ac50": 27.9716541234155,
+            "exp2_b_sd": 3.052516069810458,
+            "exp3_a_sd": null,
+            "exp3_ac50": 28.87725370503856,
+            "exp3_b_sd": null,
+            "exp3_p_sd": null,
+            "exp4_ac50": 0.0030000004459148624,
+            "exp5_ac50": 2.1980811936727713,
+            "exp5_p_sd": 27.739007083026586,
+            "gnls_ac50": 27.127144229078343,
+            "gnls_p_sd": 29.579967451529043,
+            "gnls_q_sd": 1225546.386380094,
+            "hill_ac50": 27.12725380446655,
+            "hill_p_sd": 29.553198047151273,
+            "poly1_aic": 37.96640788888903,
+            "poly1_cov": 1,
+            "poly1_rme": 1.0561318921086802,
+            "poly1_top": 1.0252339718635106,
+            "poly2_aic": 38.922635208397416,
+            "poly2_cov": 1,
+            "poly2_rme": 1.0160491957368996,
+            "poly2_top": 1.3933302600334307,
+            "pow_er_sd": null,
+            "exp2_er_sd": 0.2650852722288604,
+            "exp3_er_sd": null,
+            "exp4_er_sd": 0.2857915198655576,
+            "exp4_ga_sd": 0.02653437280711767,
+            "exp4_tp_sd": 0.3119497794295538,
+            "exp5_er_sd": 0.25462944166653867,
+            "exp5_ga_sd": 3.03566950705641,
+            "exp5_tp_sd": 0.7757908917924725,
+            "gnls_er_sd": 0.2654683915084613,
+            "gnls_ga_sd": 84.57292159743136,
+            "gnls_la_sd": 3264804642.55479,
+            "gnls_tp_sd": 18.273240826272417,
+            "hill_er_sd": 0.265475852091525,
+            "hill_ga_sd": 84.26162495005872,
+            "hill_tp_sd": 18.20715964440844,
+            "poly1_a_sd": 0.03019381035149349,
+            "poly1_ac50": 14.999999999999996,
+            "poly2_a_sd": 0.000005527708582237654,
+            "poly2_ac50": 21.204230920194803,
+            "poly2_b_sd": 0.022513901449174135,
+            "poly1_er_sd": 0.2597243178031879,
+            "poly2_er_sd": 0.26562527897815486,
+            "pow_success": 1,
+            "cnst_success": 1,
+            "exp2_success": 1,
+            "exp3_success": 1,
+            "exp4_success": 1,
+            "exp5_success": 1,
+            "gnls_success": 1,
+            "hill_success": 1,
+            "poly1_success": 1,
+            "poly2_success": 1,
+            "gnls_ac50_loss": 2743.9149317779675
+        },
+        "mc5Param": {
+            "a": 0.034174465728783694,
+            "er": -0.04768893180125318,
+            "ac5": 1.4999999999999998,
+            "bmd": 39.724088248922826,
+            "bmr": 1.3575494924699922,
+            "mll": -16.983203944444515,
+            "top": 1.0252339718635106,
+            "ac10": 2.9999999999999996,
+            "ac20": 5.999999999999999,
+            "ac50": 14.999999999999996,
+            "bmdl": 16.683323649719604,
+            "rmse": 1.0561318921086802,
+            "ac1sd": 29.44706319416073,
+            "caikwt": 0.6324768555183732,
+            "hitcall": 0.0024578389852192156,
+            "top_over_cutoff": 0.3633631611252418
+        },
+        "mc6Param": {
+            "flag": [
+                "Bmd > ac50, indication of high baseline variability"
+            ],
+            "mc6MthdId": [
+                9
+            ]
+        }
+    }
+]
diff --git a/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-dtxsid/fakedtxsid.json b/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-dtxsid/fakedtxsid.json
new file mode 100644
index 00000000..41b42e67
--- /dev/null
+++ b/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-dtxsid/fakedtxsid.json
@@ -0,0 +1,3 @@
+[
+
+]
diff --git a/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-m4id/0.json b/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-m4id/0.json
new file mode 100644
index 00000000..41b42e67
--- /dev/null
+++ b/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-m4id/0.json
@@ -0,0 +1,3 @@
+[
+
+]
diff --git a/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-m4id/906160.json b/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-m4id/906160.json
new file mode 100644
index 00000000..a845c4a4
--- /dev/null
+++ b/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-m4id/906160.json
@@ -0,0 +1,215 @@
+{
+    "aeid": 1390,
+    "m4id": 906160,
+    "spid": "TX007998",
+    "chid": 24827,
+    "casn": "69-09-0",
+    "chnm": "Chlorpromazine hydrochloride",
+    "dtxsid": "DTXSID7024827",
+    "bmad": 0.9405044150032765,
+    "respMax": 1.8515926973332988,
+    "respMin": -1.4281684306667,
+    "maxMean": 1.8515926973332988,
+    "maxMeanConc": 0.47712125471966244,
+    "maxMed": 1.8515926973332988,
+    "maxMedConc": 0.47712125471966244,
+    "logcMax": 1.4771212547196624,
+    "logcMin": -1.5228787452803376,
+    "nconc": 7,
+    "npts": 11,
+    "nrep": 2.0,
+    "nmedGtbl": 0,
+    "tmpi": 65,
+    "m5id": 6384466,
+    "modl": "poly1",
+    "hitc": 0.0024578389852192156,
+    "fitc": 13,
+    "coff": 2.8215132450098297,
+    "actp": null,
+    "modelType": 2,
+    "chidRep": 1,
+    "stkc": 20.0,
+    "stkcUnit": "mM",
+    "testedConcUnit": "uM",
+    "mc3Param": {
+        "logc": [
+            -1.5228787452803376,
+            1.4771212547196624,
+            1,
+            1,
+            0,
+            -0.5228787452803376,
+            -1,
+            0,
+            -0.5228787452803376,
+            -1,
+            0.47712125471966244
+        ],
+        "resp": [
+            -0.9813260029999995,
+            1.5374573823333009,
+            -1.4281684306667,
+            -0.32735703500000035,
+            -1.3241634073333994,
+            -1.0260995583333994,
+            -1.0514509676666997,
+            -0.5339457896666993,
+            0.12475134633329965,
+            0.19027474800000022,
+            1.8515926973332988
+        ]
+    },
+    "mc4Param": {
+        "pow_a": -0.12566043650192105,
+        "pow_p": 0.3000000760970656,
+        "exp2_a": 0.00005409723692181811,
+        "exp2_b": 2.926433605638978,
+        "exp3_a": 0.0860553861034103,
+        "exp3_b": 25.39417577173585,
+        "exp3_p": 6.462227914321612,
+        "exp5_p": 7.999995501143407,
+        "gnls_p": 7.999999766002532,
+        "gnls_q": 5.893182343508286,
+        "hill_p": 7.999977254660707,
+        "pow_er": -0.02668788798634633,
+        "cnst_er": -0.00005587395876571964,
+        "exp2_er": -0.14143509239759122,
+        "exp3_er": -0.13812042333901542,
+        "exp4_er": -0.16122837373604454,
+        "exp4_ga": 0.0030000004459148624,
+        "exp4_tp": -0.4810580307329651,
+        "exp5_er": -0.014805216328310444,
+        "exp5_ga": 2.1980811936727713,
+        "exp5_tp": 0.531614971877592,
+        "gnls_er": -0.1375957170803842,
+        "gnls_ga": 27.127146335911107,
+        "gnls_la": 2743.9146424667124,
+        "gnls_tp": 2.2219107252768273,
+        "hill_er": -0.13751350433218543,
+        "hill_ga": 27.12725380446655,
+        "hill_tp": 2.221910837751462,
+        "poly1_a": 0.034174465728783694,
+        "poly2_a": 0.00000581387559022372,
+        "poly2_b": 0.0613437971523207,
+        "pow_aic": 40.730575914149746,
+        "pow_cov": 1,
+        "pow_rme": 1.108005849297976,
+        "pow_top": -0.34860615663608846,
+        "all_bmed": 0,
+        "cnst_aic": 36.88069322285861,
+        "cnst_rme": 1.0933976567217754,
+        "exp2_aic": 38.30484249916912,
+        "exp2_cov": 1,
+        "exp2_rme": 0.990514101299949,
+        "exp2_top": 1.5320750752034935,
+        "exp3_aic": 40.29939443038798,
+        "exp3_cov": 1,
+        "exp3_rme": 0.9903013443725064,
+        "exp3_top": 1.5355429734335535,
+        "exp4_aic": 38.95205323487634,
+        "exp4_cov": 1,
+        "exp4_rme": 1.0804367450037984,
+        "exp4_top": -0.4810580307329651,
+        "exp5_aic": 42.41773720168884,
+        "exp5_cov": 1,
+        "exp5_rme": 1.0680140469043815,
+        "exp5_top": 0.531614971877592,
+        "gnls_aic": 44.30150704437108,
+        "gnls_cov": 1,
+        "gnls_rme": 0.9903897984324356,
+        "gnls_top": 2.221910034969751,
+        "hill_aic": 40.301507223703744,
+        "hill_cov": 1,
+        "hill_rme": 0.9903898000887952,
+        "hill_top": 2.221910837751462,
+        "poly1_er": -0.04768893180125318,
+        "poly2_er": -0.1076996570720005,
+        "pow_a_sd": null,
+        "pow_ac50": 2.9763787168112,
+        "pow_p_sd": null,
+        "all_onesd": 1.0063376519421736,
+        "exp2_a_sd": 0.0005773152369056387,
+        "exp2_ac50": 27.9716541234155,
+        "exp2_b_sd": 3.052516069810458,
+        "exp3_a_sd": null,
+        "exp3_ac50": 28.87725370503856,
+        "exp3_b_sd": null,
+        "exp3_p_sd": null,
+        "exp4_ac50": 0.0030000004459148624,
+        "exp5_ac50": 2.1980811936727713,
+        "exp5_p_sd": 27.739007083026586,
+        "gnls_ac50": 27.127144229078343,
+        "gnls_p_sd": 29.579967451529043,
+        "gnls_q_sd": 1225546.386380094,
+        "hill_ac50": 27.12725380446655,
+        "hill_p_sd": 29.553198047151273,
+        "poly1_aic": 37.96640788888903,
+        "poly1_cov": 1,
+        "poly1_rme": 1.0561318921086802,
+        "poly1_top": 1.0252339718635106,
+        "poly2_aic": 38.922635208397416,
+        "poly2_cov": 1,
+        "poly2_rme": 1.0160491957368996,
+        "poly2_top": 1.3933302600334307,
+        "pow_er_sd": null,
+        "exp2_er_sd": 0.2650852722288604,
+        "exp3_er_sd": null,
+        "exp4_er_sd": 0.2857915198655576,
+        "exp4_ga_sd": 0.02653437280711767,
+        "exp4_tp_sd": 0.3119497794295538,
+        "exp5_er_sd": 0.25462944166653867,
+        "exp5_ga_sd": 3.03566950705641,
+        "exp5_tp_sd": 0.7757908917924725,
+        "gnls_er_sd": 0.2654683915084613,
+        "gnls_ga_sd": 84.57292159743136,
+        "gnls_la_sd": 3264804642.55479,
+        "gnls_tp_sd": 18.273240826272417,
+        "hill_er_sd": 0.265475852091525,
+        "hill_ga_sd": 84.26162495005872,
+        "hill_tp_sd": 18.20715964440844,
+        "poly1_a_sd": 0.03019381035149349,
+        "poly1_ac50": 14.999999999999996,
+        "poly2_a_sd": 0.000005527708582237654,
+        "poly2_ac50": 21.204230920194803,
+        "poly2_b_sd": 0.022513901449174135,
+        "poly1_er_sd": 0.2597243178031879,
+        "poly2_er_sd": 0.26562527897815486,
+        "pow_success": 1,
+        "cnst_success": 1,
+        "exp2_success": 1,
+        "exp3_success": 1,
+        "exp4_success": 1,
+        "exp5_success": 1,
+        "gnls_success": 1,
+        "hill_success": 1,
+        "poly1_success": 1,
+        "poly2_success": 1,
+        "gnls_ac50_loss": 2743.9149317779675
+    },
+    "mc5Param": {
+        "a": 0.034174465728783694,
+        "er": -0.04768893180125318,
+        "ac5": 1.4999999999999998,
+        "bmd": 39.724088248922826,
+        "bmr": 1.3575494924699922,
+        "mll": -16.983203944444515,
+        "top": 1.0252339718635106,
+        "ac10": 2.9999999999999996,
+        "ac20": 5.999999999999999,
+        "ac50": 14.999999999999996,
+        "bmdl": 16.683323649719604,
+        "rmse": 1.0561318921086802,
+        "ac1sd": 29.44706319416073,
+        "caikwt": 0.6324768555183732,
+        "hitcall": 0.0024578389852192156,
+        "top_over_cutoff": 0.3633631611252418
+    },
+    "mc6Param": {
+        "flag": [
+            "Bmd > ac50, indication of high baseline variability"
+        ],
+        "mc6MthdId": [
+            9
+        ]
+    }
+}
diff --git a/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-spid/TX007998.json b/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-spid/TX007998.json
new file mode 100644
index 00000000..021c2671
--- /dev/null
+++ b/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-spid/TX007998.json
@@ -0,0 +1,217 @@
+[
+    {
+        "aeid": 1390,
+        "m4id": 906160,
+        "spid": "TX007998",
+        "chid": 24827,
+        "casn": "69-09-0",
+        "chnm": "Chlorpromazine hydrochloride",
+        "dtxsid": "DTXSID7024827",
+        "bmad": 0.9405044150032765,
+        "respMax": 1.8515926973332988,
+        "respMin": -1.4281684306667,
+        "maxMean": 1.8515926973332988,
+        "maxMeanConc": 0.47712125471966244,
+        "maxMed": 1.8515926973332988,
+        "maxMedConc": 0.47712125471966244,
+        "logcMax": 1.4771212547196624,
+        "logcMin": -1.5228787452803376,
+        "nconc": 7,
+        "npts": 11,
+        "nrep": 2.0,
+        "nmedGtbl": 0,
+        "tmpi": 65,
+        "m5id": 6384466,
+        "modl": "poly1",
+        "hitc": 0.0024578389852192156,
+        "fitc": 13,
+        "coff": 2.8215132450098297,
+        "actp": null,
+        "modelType": 2,
+        "chidRep": 1,
+        "stkc": 20.0,
+        "stkcUnit": "mM",
+        "testedConcUnit": "uM",
+        "mc3Param": {
+            "logc": [
+                -1.5228787452803376,
+                1.4771212547196624,
+                1,
+                1,
+                0,
+                -0.5228787452803376,
+                -1,
+                0,
+                -0.5228787452803376,
+                -1,
+                0.47712125471966244
+            ],
+            "resp": [
+                -0.9813260029999995,
+                1.5374573823333009,
+                -1.4281684306667,
+                -0.32735703500000035,
+                -1.3241634073333994,
+                -1.0260995583333994,
+                -1.0514509676666997,
+                -0.5339457896666993,
+                0.12475134633329965,
+                0.19027474800000022,
+                1.8515926973332988
+            ]
+        },
+        "mc4Param": {
+            "pow_a": -0.12566043650192105,
+            "pow_p": 0.3000000760970656,
+            "exp2_a": 0.00005409723692181811,
+            "exp2_b": 2.926433605638978,
+            "exp3_a": 0.0860553861034103,
+            "exp3_b": 25.39417577173585,
+            "exp3_p": 6.462227914321612,
+            "exp5_p": 7.999995501143407,
+            "gnls_p": 7.999999766002532,
+            "gnls_q": 5.893182343508286,
+            "hill_p": 7.999977254660707,
+            "pow_er": -0.02668788798634633,
+            "cnst_er": -0.00005587395876571964,
+            "exp2_er": -0.14143509239759122,
+            "exp3_er": -0.13812042333901542,
+            "exp4_er": -0.16122837373604454,
+            "exp4_ga": 0.0030000004459148624,
+            "exp4_tp": -0.4810580307329651,
+            "exp5_er": -0.014805216328310444,
+            "exp5_ga": 2.1980811936727713,
+            "exp5_tp": 0.531614971877592,
+            "gnls_er": -0.1375957170803842,
+            "gnls_ga": 27.127146335911107,
+            "gnls_la": 2743.9146424667124,
+            "gnls_tp": 2.2219107252768273,
+            "hill_er": -0.13751350433218543,
+            "hill_ga": 27.12725380446655,
+            "hill_tp": 2.221910837751462,
+            "poly1_a": 0.034174465728783694,
+            "poly2_a": 0.00000581387559022372,
+            "poly2_b": 0.0613437971523207,
+            "pow_aic": 40.730575914149746,
+            "pow_cov": 1,
+            "pow_rme": 1.108005849297976,
+            "pow_top": -0.34860615663608846,
+            "all_bmed": 0,
+            "cnst_aic": 36.88069322285861,
+            "cnst_rme": 1.0933976567217754,
+            "exp2_aic": 38.30484249916912,
+            "exp2_cov": 1,
+            "exp2_rme": 0.990514101299949,
+            "exp2_top": 1.5320750752034935,
+            "exp3_aic": 40.29939443038798,
+            "exp3_cov": 1,
+            "exp3_rme": 0.9903013443725064,
+            "exp3_top": 1.5355429734335535,
+            "exp4_aic": 38.95205323487634,
+            "exp4_cov": 1,
+            "exp4_rme": 1.0804367450037984,
+            "exp4_top": -0.4810580307329651,
+            "exp5_aic": 42.41773720168884,
+            "exp5_cov": 1,
+            "exp5_rme": 1.0680140469043815,
+            "exp5_top": 0.531614971877592,
+            "gnls_aic": 44.30150704437108,
+            "gnls_cov": 1,
+            "gnls_rme": 0.9903897984324356,
+            "gnls_top": 2.221910034969751,
+            "hill_aic": 40.301507223703744,
+            "hill_cov": 1,
+            "hill_rme": 0.9903898000887952,
+            "hill_top": 2.221910837751462,
+            "poly1_er": -0.04768893180125318,
+            "poly2_er": -0.1076996570720005,
+            "pow_a_sd": null,
+            "pow_ac50": 2.9763787168112,
+            "pow_p_sd": null,
+            "all_onesd": 1.0063376519421736,
+            "exp2_a_sd": 0.0005773152369056387,
+            "exp2_ac50": 27.9716541234155,
+            "exp2_b_sd": 3.052516069810458,
+            "exp3_a_sd": null,
+            "exp3_ac50": 28.87725370503856,
+            "exp3_b_sd": null,
+            "exp3_p_sd": null,
+            "exp4_ac50": 0.0030000004459148624,
+            "exp5_ac50": 2.1980811936727713,
+            "exp5_p_sd": 27.739007083026586,
+            "gnls_ac50": 27.127144229078343,
+            "gnls_p_sd": 29.579967451529043,
+            "gnls_q_sd": 1225546.386380094,
+            "hill_ac50": 27.12725380446655,
+            "hill_p_sd": 29.553198047151273,
+            "poly1_aic": 37.96640788888903,
+            "poly1_cov": 1,
+            "poly1_rme": 1.0561318921086802,
+            "poly1_top": 1.0252339718635106,
+            "poly2_aic": 38.922635208397416,
+            "poly2_cov": 1,
+            "poly2_rme": 1.0160491957368996,
+            "poly2_top": 1.3933302600334307,
+            "pow_er_sd": null,
+            "exp2_er_sd": 0.2650852722288604,
+            "exp3_er_sd": null,
+            "exp4_er_sd": 0.2857915198655576,
+            "exp4_ga_sd": 0.02653437280711767,
+            "exp4_tp_sd": 0.3119497794295538,
+            "exp5_er_sd": 0.25462944166653867,
+            "exp5_ga_sd": 3.03566950705641,
+            "exp5_tp_sd": 0.7757908917924725,
+            "gnls_er_sd": 0.2654683915084613,
+            "gnls_ga_sd": 84.57292159743136,
+            "gnls_la_sd": 3264804642.55479,
+            "gnls_tp_sd": 18.273240826272417,
+            "hill_er_sd": 0.265475852091525,
+            "hill_ga_sd": 84.26162495005872,
+            "hill_tp_sd": 18.20715964440844,
+            "poly1_a_sd": 0.03019381035149349,
+            "poly1_ac50": 14.999999999999996,
+            "poly2_a_sd": 0.000005527708582237654,
+            "poly2_ac50": 21.204230920194803,
+            "poly2_b_sd": 0.022513901449174135,
+            "poly1_er_sd": 0.2597243178031879,
+            "poly2_er_sd": 0.26562527897815486,
+            "pow_success": 1,
+            "cnst_success": 1,
+            "exp2_success": 1,
+            "exp3_success": 1,
+            "exp4_success": 1,
+            "exp5_success": 1,
+            "gnls_success": 1,
+            "hill_success": 1,
+            "poly1_success": 1,
+            "poly2_success": 1,
+            "gnls_ac50_loss": 2743.9149317779675
+        },
+        "mc5Param": {
+            "a": 0.034174465728783694,
+            "er": -0.04768893180125318,
+            "ac5": 1.4999999999999998,
+            "bmd": 39.724088248922826,
+            "bmr": 1.3575494924699922,
+            "mll": -16.983203944444515,
+            "top": 1.0252339718635106,
+            "ac10": 2.9999999999999996,
+            "ac20": 5.999999999999999,
+            "ac50": 14.999999999999996,
+            "bmdl": 16.683323649719604,
+            "rmse": 1.0561318921086802,
+            "ac1sd": 29.44706319416073,
+            "caikwt": 0.6324768555183732,
+            "hitcall": 0.0024578389852192156,
+            "top_over_cutoff": 0.3633631611252418
+        },
+        "mc6Param": {
+            "flag": [
+                "Bmd > ac50, indication of high baseline variability"
+            ],
+            "mc6MthdId": [
+                9
+            ]
+        }
+    }
+]
diff --git a/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-spid/fakespid.json b/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-spid/fakespid.json
new file mode 100644
index 00000000..41b42e67
--- /dev/null
+++ b/tests/testthat/ctx/api-ccte.epa.gov/bioactivity/data/search/by-spid/fakespid.json
@@ -0,0 +1,3 @@
+[
+
+]
diff --git a/tests/testthat/test-tcplConf.R b/tests/testthat/test-tcplConf.R
index 966c1b4f..18e8eefa 100644
--- a/tests/testthat/test-tcplConf.R
+++ b/tests/testthat/test-tcplConf.R
@@ -1,13 +1,29 @@
 test_that("example=driver updates option TCPL_DRVR", {
-  tcplConf(drvr = "example")
-  expect_equal("example",
-                    getOption("TCPL_DRVR"))
+  drvr <- "example"
+  tcplConf(drvr)
+  expect_equal(getOption("TCPL_DRVR"),
+               drvr)
 })
 
 test_that("unsupported driver error message", {
   drvr  <-  "test"
   expect_error(
     tcplConf(drvr),
-    paste0(drvr," is not a supported database driver. Must be 'MySQL', 'tcplLite', or 'example'.")
+    paste0(drvr," is not a supported database driver. Must be 'MySQL', 'tcplLite', 'API' or 'example'.")
 )
+})
+
+test_that("API driver no key error message", {
+  drvr  <-  "API"
+  expect_error(
+    tcplConf(drvr),
+    "'API' driver requires an API-key, supply it to the 'pass' parameter. To request a key, send an email to ccte_api@epa.gov."
+  )
+})
+
+test_that("API driver properly sets URL", {
+  tcplConf(drvr = "API", pass = "api_key")
+  expect_equal(getOption("TCPL_HOST"), 
+               "https://api-ccte.epa.gov/bioactivity"
+  )
 })
\ No newline at end of file
diff --git a/tests/testthat/test-tcplLoadAcid.R b/tests/testthat/test-tcplLoadAcid.R
new file mode 100644
index 00000000..254a6a8f
--- /dev/null
+++ b/tests/testthat/test-tcplLoadAcid.R
@@ -0,0 +1,37 @@
+#-------------------------------------------------------------------------------
+# Covers testing tcplLoadAcid with "API" driver
+# Using httptest mocking to automatically save json responses from http requests
+# NOTE -- updates to the CTX API may mean stored json files are out of date. In 
+# this case, delete the 'ctx' folder and follow the instructions in the test-
+# tcplLoadData test file. 
+#-------------------------------------------------------------------------------
+httptest::with_mock_dir("ctx", {
+  apikey <- "apikey"
+  tcplConf(pass = apikey,
+           drvr = "API")
+  data(test_api)
+  assays <- tcplQueryAPI(resource = "assay")
+  test_that("tcplLoadAcid works by aeid", {
+    expect_no_error(dat <- tcplLoadAcid(fld = "aeid", val = test_api$aeid))
+    expect_true(is.data.table(dat))
+    expect_equal(nrow(dat), 1)
+    expect_true(all(c("aeid", "acid", "acnm") %in% colnames(dat)))
+    expect_equal(dat$acid, test_api$acid)
+  })
+  test_that("tcplLoadAcid works by non-id", {
+    expect_no_error(dat <- tcplLoadAcid(fld = c("intended_target_type", "detection_technology_type"), val = list(assays$intended_target_type[1], assays$detection_technology_type[1])))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 0)
+    expect_true(all(c("intended_target_type", "detection_technology_type", "acid", "acnm") %in% colnames(dat)))
+    expect_equal(unique(dat$intended_target_type), assays$intended_target_type[1])
+    expect_equal(unique(dat$detection_technology_type), assays$detection_technology_type[1])
+  })
+  #error cases
+  test_that("data not found results in null data.table", {
+    expect_no_error(dat <- tcplLoadAcid(fld = "aeid", val = 0))
+    expect_equal(nrow(dat), 0)
+  })
+  test_that("invalid field results in error", {
+    expect_error(dat <- tcplLoadAcid(fld = "awid", val = 0), "Query field\\(s\\) 'awid' not available. Try using from the following:*")
+  })
+})
\ No newline at end of file
diff --git a/tests/testthat/test-tcplLoadAeid.R b/tests/testthat/test-tcplLoadAeid.R
new file mode 100644
index 00000000..1a4e0573
--- /dev/null
+++ b/tests/testthat/test-tcplLoadAeid.R
@@ -0,0 +1,37 @@
+#-------------------------------------------------------------------------------
+# Covers testing tcplLoadAeid with "API" driver
+# Using httptest mocking to automatically save json responses from http requests
+# NOTE -- updates to the CTX API may mean stored json files are out of date. In 
+# this case, delete the 'ctx' folder and follow the instructions in the test-
+# tcplLoadData test file. 
+#-------------------------------------------------------------------------------
+httptest::with_mock_dir("ctx", {
+  apikey <- "apikey"
+  tcplConf(pass = apikey,
+           drvr = "API")
+  data(test_api)
+  assays <- tcplQueryAPI(resource = "assay")
+  test_that("tcplLoadAeid works by acid", {
+    expect_no_error(dat <- tcplLoadAeid(fld = "acid", val = test_api$acid))
+    expect_true(is.data.table(dat))
+    expect_equal(nrow(dat), 1)
+    expect_true(all(c("acid", "aeid", "aenm") %in% colnames(dat)))
+    expect_equal(dat$aeid, test_api$aeid)
+  })
+  test_that("tcplLoadAeid works by non-id", {
+    expect_no_error(dat <- tcplLoadAeid(fld = c("intended_target_type", "detection_technology_type"), val = list(assays$intended_target_type[1], assays$detection_technology_type[1])))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 0)
+    expect_true(all(c("intended_target_type", "detection_technology_type", "aeid", "aenm") %in% colnames(dat)))
+    expect_equal(unique(dat$intended_target_type), assays$intended_target_type[1])
+    expect_equal(unique(dat$detection_technology_type), assays$detection_technology_type[1])
+  })
+  #error cases
+  test_that("data not found results in null data.table", {
+    expect_no_error(dat <- tcplLoadAeid(fld = "acid", val = 0))
+    expect_equal(nrow(dat), 0)
+  })
+  test_that("invalid field results in error", {
+    expect_error(dat <- tcplLoadAeid(fld = "awid", val = 0), "Query field\\(s\\) 'awid' not available. Try using from the following:*")
+  })
+})
\ No newline at end of file
diff --git a/tests/testthat/test-tcplLoadAid.R b/tests/testthat/test-tcplLoadAid.R
new file mode 100644
index 00000000..49006709
--- /dev/null
+++ b/tests/testthat/test-tcplLoadAid.R
@@ -0,0 +1,37 @@
+#-------------------------------------------------------------------------------
+# Covers testing tcplLoadAid with "API" driver
+# Using httptest mocking to automatically save json responses from http requests
+# NOTE -- updates to the CTX API may mean stored json files are out of date. In 
+# this case, delete the 'ctx' folder and follow the instructions in the test-
+# tcplLoadData test file. 
+#-------------------------------------------------------------------------------
+httptest::with_mock_dir("ctx", {
+  apikey <- "apikey"
+  tcplConf(pass = apikey,
+           drvr = "API")
+  data(test_api)
+  assays <- tcplQueryAPI(resource = "assay")
+  test_that("tcplLoadAid works by aeid", {
+    expect_no_error(dat <- tcplLoadAid(fld = "aeid", val = test_api$aeid))
+    expect_true(is.data.table(dat))
+    expect_equal(nrow(dat), 1)
+    expect_true(all(c("aeid", "aid", "anm") %in% colnames(dat)))
+    expect_equal(dat$aid, test_api$aid)
+  })
+  test_that("tcplLoadAid works by non-id", {
+    expect_no_error(dat <- tcplLoadAid(fld = c("intended_target_type", "detection_technology_type"), val = list(assays$intended_target_type[1], assays$detection_technology_type[1])))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 0)
+    expect_true(all(c("intended_target_type", "detection_technology_type", "aid", "anm") %in% colnames(dat)))
+    expect_equal(unique(dat$intended_target_type), assays$intended_target_type[1])
+    expect_equal(unique(dat$detection_technology_type), assays$detection_technology_type[1])
+  })
+  #error cases
+  test_that("data not found results in null data.table", {
+    expect_no_error(dat <- tcplLoadAid(fld = "aeid", val = 0))
+    expect_equal(nrow(dat), 0)
+  })
+  test_that("invalid field results in error", {
+    expect_error(dat <- tcplLoadAid(fld = "awid", val = 0), "Query field\\(s\\) 'awid' not available. Try using from the following:*")
+  })
+})
\ No newline at end of file
diff --git a/tests/testthat/test-tcplLoadAsid.R b/tests/testthat/test-tcplLoadAsid.R
new file mode 100644
index 00000000..4312dc16
--- /dev/null
+++ b/tests/testthat/test-tcplLoadAsid.R
@@ -0,0 +1,37 @@
+#-------------------------------------------------------------------------------
+# Covers testing tcplLoadAsid with "API" driver
+# Using httptest mocking to automatically save json responses from http requests
+# NOTE -- updates to the CTX API may mean stored json files are out of date. In 
+# this case, delete the 'ctx' folder and follow the instructions in the test-
+# tcplLoadData test file. 
+#-------------------------------------------------------------------------------
+httptest::with_mock_dir("ctx", {
+  apikey <- "apikey"
+  tcplConf(pass = apikey,
+           drvr = "API")
+  data(test_api)
+  assays <- tcplQueryAPI(resource = "assay")
+  test_that("tcplLoadAsid works by aeid", {
+    expect_no_error(dat <- tcplLoadAsid(fld = "aeid", val = test_api$aeid))
+    expect_true(is.data.table(dat))
+    expect_equal(nrow(dat), 1)
+    expect_true(all(c("aeid", "asid", "asnm") %in% colnames(dat)))
+    expect_equal(dat$asid, test_api$asid)
+  })
+  test_that("tcplLoadAsid works by non-id", {
+    expect_no_error(dat <- tcplLoadAsid(fld = c("intended_target_type", "detection_technology_type"), val = list(assays$intended_target_type[1], assays$detection_technology_type[1])))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 0)
+    expect_true(all(c("intended_target_type", "detection_technology_type", "asid", "asnm") %in% colnames(dat)))
+    expect_equal(unique(dat$intended_target_type), assays$intended_target_type[1])
+    expect_equal(unique(dat$detection_technology_type), assays$detection_technology_type[1])
+  })
+  #error cases
+  test_that("data not found results in null data.table", {
+    expect_no_error(dat <- tcplLoadAsid(fld = "aeid", val = 0))
+    expect_equal(nrow(dat), 0)
+  })
+  test_that("invalid field results in error", {
+    expect_error(dat <- tcplLoadAsid(fld = "awid", val = 0), "Query field\\(s\\) 'awid' not available. Try using from the following:*")
+  })
+})
\ No newline at end of file
diff --git a/tests/testthat/test-tcplLoadChem.R b/tests/testthat/test-tcplLoadChem.R
new file mode 100644
index 00000000..fa2c9e10
--- /dev/null
+++ b/tests/testthat/test-tcplLoadChem.R
@@ -0,0 +1,37 @@
+#-------------------------------------------------------------------------------
+# Covers testing tcplLoadChem with "API" driver
+# Using httptest mocking to automatically save json responses from http requests
+# NOTE -- updates to the CTX API may mean stored json files are out of date. In 
+# this case, delete the 'ctx' folder and follow the instructions in the test-
+# tcplLoadData test file. 
+#-------------------------------------------------------------------------------
+httptest::with_mock_dir("ctx", {
+  apikey <- "apikey"
+  tcplConf(pass = apikey,
+           drvr = "API")
+  data(test_api)
+  assays <- tcplQueryAPI(resource = "assay")
+  test_that("tcplLoadChem works by spid", {
+    expect_no_error(dat <- tcplLoadChem(field = "spid", val = test_api$spid))
+    expect_true(is.data.table(dat))
+    expect_equal(nrow(dat), 1)
+    expect_true(all(c("spid", "chid", "casn", "chnm", "dsstox_substance_id", "code") %in% colnames(dat)))
+    expect_equal(dat$spid, test_api$spid)
+  })
+  test_that("exact is silently changed to TRUE if driver is API", {
+    expect_no_error(dat <- tcplLoadChem(field = "spid", val = test_api$spid, exact = FALSE))
+    expect_true(is.data.table(dat))
+    expect_equal(nrow(dat), 1)
+    expect_true(all(c("spid", "chid", "casn", "chnm", "dsstox_substance_id", "code") %in% colnames(dat)))
+    expect_equal(dat$spid, test_api$spid)
+  })
+  #error cases
+  test_that("field can only be spid if driver is API", {
+    expect_error(tcplLoadChem(field = "chnm", val = "fakechnm"), "When drvr option is set to 'API', only 'spid' is a valid 'field' value.")
+  })
+  test_that("data not found results in null data.table", {
+    expect_warning(dat <- tcplLoadChem(field = "spid", val = "fakespid"), "Data not found for the following 'fld' and 'val' combos: 
+SPID: fakespid")
+    expect_equal(nrow(dat), 0)
+  })
+})
\ No newline at end of file
diff --git a/tests/testthat/test-tcplLoadConcUnit.R b/tests/testthat/test-tcplLoadConcUnit.R
new file mode 100644
index 00000000..404edb82
--- /dev/null
+++ b/tests/testthat/test-tcplLoadConcUnit.R
@@ -0,0 +1,26 @@
+#-------------------------------------------------------------------------------
+# Covers testing tcplLoadConcUnit with "API" driver
+# Using httptest mocking to automatically save json responses from http requests
+# NOTE -- updates to the CTX API may mean stored json files are out of date. In 
+# this case, delete the 'ctx' folder and follow the instructions in the test-
+# tcplLoadData test file. 
+#-------------------------------------------------------------------------------
+httptest::with_mock_dir("ctx", {
+  apikey <- "apikey"
+  tcplConf(pass = apikey,
+           drvr = "API")
+  data(test_api)
+  test_that("tcplLoadConcUnit works by spid", {
+    expect_no_error(dat <- tcplLoadConcUnit(spid = test_api$spid))
+    expect_true(is.data.table(dat))
+    expect_equal(nrow(dat), 1)
+    expect_true(all(c("spid", "conc_unit") %in% colnames(dat)))
+    expect_equal(dat$spid, test_api$spid)
+  })
+  #error cases
+  test_that("data not found results in null data.table", {
+    expect_warning(dat <- tcplLoadConcUnit(spid = "fakespid"), "Data not found for the following 'fld' and 'val' combos: 
+SPID: fakespid")
+    expect_equal(nrow(dat), 0)
+  })
+})
\ No newline at end of file
diff --git a/tests/testthat/test-tcplLoadData.R b/tests/testthat/test-tcplLoadData.R
index c1d673a5..6565e3d0 100644
--- a/tests/testthat/test-tcplLoadData.R
+++ b/tests/testthat/test-tcplLoadData.R
@@ -156,6 +156,701 @@ test_that("mc example error message appears", {
   )
 })
 
-# test_that("description", {
-#   expect_*(code)
-# })
\ No newline at end of file
+
+#-------------------------------------------------------------------------------
+# Covers testing tcplLoadData with "MySQL" driver
+# new method using mocking for tcplQuery function
+#-------------------------------------------------------------------------------
+
+# SC0
+test_that("tcplLoadData loads sc0 data for one s0id", {
+  data("sc_test")
+  mocked <- sc_test$sc0_by_s0id
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(type = "sc", lvl = 0, fld = "s0id", val = mocked$s0id)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("s0id", "acid", "spid", "wllt", "wllq", "conc", "rval") %in% colnames(dat)))
+  expect_true(mocked$s0id %in% dat$s0id)
+})
+
+test_that("tcplLoadData loads sc0 data for one acid", {
+  data("sc_test")
+  mocked <- sc_test$sc0_by_acid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(type = "sc", lvl = 0, fld = "acid", val = mocked$acid)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("s0id", "acid", "spid", "wllt", "wllq", "conc", "rval") %in% colnames(dat)))
+  expect_true(mocked$acid %in% dat$acid)
+})
+
+# SC1
+test_that("tcplLoadData loads sc1 data for one s1id", {
+  data("sc_test")
+  mocked <- sc_test$sc1_by_s1id
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(type = "sc", lvl = 1, fld = "s1id", val = mocked$s1id)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("s0id", "s1id", "acid", "aeid", "spid", "wllt", "wllq", "conc", "resp") %in% colnames(dat)))
+  expect_true(mocked$s1id %in% dat$s1id)
+})
+
+test_that("tcplLoadData loads sc1 data for one acid", {
+  data("sc_test")
+  mocked <- sc_test$sc1_by_acid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(type = "sc", lvl = 1, fld = "acid", val = mocked$acid)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("s0id", "s1id", "acid", "aeid", "spid", "wllt", "wllq", "conc", "resp") %in% colnames(dat)))
+  expect_true(mocked$acid %in% dat$acid)
+})
+
+# SC2
+test_that("tcplLoadData loads sc2 data for one s2id", {
+  data("sc_test")
+  mocked <- sc_test$sc2_by_s2id
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(type = "sc", lvl = 2, fld = "s2id", val = mocked$s2id)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("s2id", "aeid", "spid", "bmad", "max_med", "coff", "hitc") %in% colnames(dat)))
+  expect_true(mocked$s2id %in% dat$s2id)
+})
+
+test_that("tcplLoadData loads sc2 data for one aeid", {
+  data("sc_test")
+  mocked <- sc_test$sc2_by_aeid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(type = "sc", lvl = 2, fld = "aeid", val = mocked$aeid)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("s2id", "aeid", "spid", "bmad", "max_med", "coff", "hitc") %in% colnames(dat)))
+  expect_true(mocked$aeid %in% dat$aeid)
+})
+
+# SCagg
+test_that("tcplLoadData loads sc 'agg' data for one aeid", {
+  data("sc_test")
+  mocked <- sc_test$scagg_by_aeid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(type = "sc", lvl = "agg", fld = "aeid", val = mocked$aeid)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("s0id", "s1id", "s2id", "acid", "aeid", "conc", "resp") %in% colnames(dat)))
+  expect_true(mocked$aeid %in% dat$aeid)
+})
+
+# MC0
+test_that("tcplLoadData loads mc0 data for one m0id", {
+  data("mc_test")
+  mocked <- mc_test$mc0_by_m0id
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(lvl = 0, fld = "m0id", val = mocked$m0id)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("m0id", "acid", "spid", "wllt", "wllq", "conc", "rval") %in% colnames(dat)))
+  expect_true(mocked$m0id %in% dat$m0id)
+})
+
+test_that("tcplLoadData loads mc0 data for one acid", {
+  data("mc_test")
+  mocked <- mc_test$mc0_by_acid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(lvl = 0, fld = "acid", val = mocked$acid)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("m0id", "acid", "spid", "wllt", "wllq", "conc", "rval") %in% colnames(dat)))
+  expect_true(mocked$acid %in% dat$acid)
+})
+
+# MC1
+test_that("tcplLoadData loads mc1 data for one m1id", {
+  data("mc_test")
+  mocked <- mc_test$mc1_by_m1id
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(lvl = 1, fld = "m1id", val = mocked$m1id)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("m0id", "m1id", "acid", "spid", "wllt", "wllq", "conc", "rval") %in% colnames(dat)))
+  expect_true(mocked$m1id %in% dat$m1id)
+})
+
+test_that("tcplLoadData loads mc1 data for one acid", {
+  data("mc_test")
+  mocked <- mc_test$mc1_by_acid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(lvl = 1, fld = "acid", val = mocked$acid)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("m0id", "m1id", "acid", "spid", "wllt", "wllq", "conc", "rval") %in% colnames(dat)))
+  expect_true(mocked$acid %in% dat$acid)
+})
+
+# MC2
+test_that("tcplLoadData loads mc2 data for one m2id", {
+  data("mc_test")
+  mocked <- mc_test$mc2_by_m2id
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(lvl = 2, fld = "m2id", val = mocked$m2id)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("m0id", "m1id", "m2id", "acid", "spid", "wllt", "wllq", "conc", "rval", "cval") %in% colnames(dat)))
+  expect_true(mocked$m2id %in% dat$m2id)
+})
+
+test_that("tcplLoadData loads mc2 data for one acid", {
+  data("mc_test")
+  mocked <- mc_test$mc2_by_acid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(lvl = 2, fld = "acid", val = mocked$acid)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("m0id", "m1id", "m2id", "acid", "spid", "wllt", "wllq", "conc", "rval", "cval") %in% colnames(dat)))
+  expect_true(mocked$acid %in% dat$acid)
+})
+
+# MC3
+test_that("tcplLoadData loads mc3 data for one m3id", {
+  data("mc_test")
+  mocked <- mc_test$mc3_by_m3id
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(lvl = 3, fld = "m3id", val = mocked$m3id)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("m0id", "m1id", "m2id", "m3id", "acid", "aeid", "spid", "wllt", "wllq", "conc", "rval", "resp") %in% colnames(dat)))
+  expect_true(mocked$m3id %in% dat$m3id)
+})
+
+test_that("tcplLoadData loads mc3 data for one aeid", {
+  data("mc_test")
+  mocked <- mc_test$mc3_by_aeid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(lvl = 3, fld = "aeid", val = mocked$aeid)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("m0id", "m1id", "m2id", "m3id", "acid", "aeid", "spid", "wllt", "wllq", "conc", "rval", "resp") %in% colnames(dat)))
+  expect_true(mocked$aeid %in% dat$aeid)
+})
+
+# MC4
+test_that("tcplLoadData loads mc4 data for one m4id", {
+  data("mc_test")
+  mocked <- mc_test$mc4_by_m4id
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(lvl = 4, fld = "m4id", val = mocked$m4id)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("m4id", "aeid", "spid", "bmad", "nconc", "nrep", "cnst_aic") %in% colnames(dat)))
+  expect_true(mocked$m4id %in% dat$m4id)
+})
+
+test_that("tcplLoadData loads mc4 data for one aeid with add.fld = FALSE", {
+  data("mc_test")
+  mocked <- mc_test$mc4_by_aeid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(lvl = 4, fld = "aeid", val = mocked$aeid, add.fld = FALSE)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("m4id", "aeid", "spid", "bmad", "nconc", "nrep") %in% colnames(dat)))
+  expect_true(mocked$aeid %in% dat$aeid)
+})
+
+# MC5
+test_that("tcplLoadData loads mc5 data for one m5id", {
+  data("mc_test")
+  mocked <- mc_test$mc5_by_m5id
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(lvl = 5, fld = "m5id", val = mocked$m5id)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("m4id", "m5id", "aeid", "spid", "bmad", "nconc", "nrep", "modl", "hitc", "coff", "top") %in% colnames(dat)))
+  expect_true(mocked$m5id %in% dat$m5id)
+})
+
+test_that("tcplLoadData loads mc5 data for one aeid with add.fld = FALSE", {
+  data("mc_test")
+  mocked <- mc_test$mc5_by_aeid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(lvl = 5, fld = "aeid", val = mocked$aeid, add.fld = FALSE)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("m4id", "m5id", "aeid", "spid", "bmad", "nconc", "nrep", "modl", "hitc", "coff") %in% colnames(dat)))
+  expect_true(mocked$aeid %in% dat$aeid)
+})
+
+# MC6
+test_that("tcplLoadData loads mc6 data for one m6id", {
+  data("mc_test")
+  mocked <- mc_test$mc6_by_m6id
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(lvl = 6, fld = "m6id", val = mocked$m6id)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("m4id", "m5id", "m6id", "aeid", "spid", "bmad", "nconc", "nrep", "flag") %in% colnames(dat)))
+  expect_true(mocked$m6id %in% dat$m6id)
+})
+
+test_that("tcplLoadData loads mc6 data for one aeid", {
+  data("mc_test")
+  mocked <- mc_test$mc6_by_aeid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(lvl = 6, fld = "aeid", val = mocked$aeid)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("m4id", "m5id", "m6id", "aeid", "spid", "bmad", "nconc", "nrep", "flag") %in% colnames(dat)))
+  expect_true(mocked$aeid %in% dat$aeid)
+})
+
+# MC7
+test_that("tcplLoadData loads mc7 data for one m7id", {
+  data("mc_test")
+  mocked <- mc_test$mc7_by_m7id
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(lvl = 7, fld = "m7id", val = mocked$m7id)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("m4id", "m7id", "aeid", "spid", "bmad", "nconc", "nrep", "aed_val") %in% colnames(dat)))
+  expect_true(mocked$m7id %in% dat$m7id)
+})
+
+test_that("tcplLoadData loads mc7 data for one aeid", {
+  data("mc_test")
+  mocked <- mc_test$mc7_by_aeid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(lvl = 7, fld = "aeid", val = mocked$aeid)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("m4id", "m7id", "aeid", "spid", "bmad", "nconc", "nrep", "aed_val") %in% colnames(dat)))
+  expect_true(mocked$aeid %in% dat$aeid)
+})
+
+# MCagg
+test_that("tcplLoadData loads mc 'agg' data for one aeid", {
+  data("mc_test")
+  mocked <- mc_test$mcagg_by_aeid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplLoadData(lvl = "agg", fld = "aeid", val = mocked$aeid)
+  #expectations
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("m0id", "m1id", "m2id", "m3id", "m4id", "acid", "aeid", "spid", 
+                    "conc", "resp", "bmad", "nconc", "nrep") %in% colnames(dat)))
+  expect_true(mocked$aeid %in% dat$aeid)
+})
+
+# error cases
+test_that("invalid lvl and type error message", {
+  data("mc_test")
+  mocked <- mc_test$mcagg_by_aeid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_error(
+    tcplLoadData(lvl = 5, type = "sc"),
+    "Invalid 'lvl' and 'type' combination."
+  )
+})
+
+test_that("missing val error message", {
+  data("mc_test")
+  mocked <- mc_test$mcagg_by_aeid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_error(
+    tcplLoadData(lvl = 5, type = "mc", fld = "aeid"),
+    "'val' cannot be NULL check that a valid value was provided for the specified field"
+  )
+})
+
+
+#-------------------------------------------------------------------------------
+# Covers testing tcplLoadData with "API" driver
+# Using httptest mocking to automatically save json responses from http requests
+# NOTE -- updates to the CTX API may mean stored json files are out of date. In 
+# this case, delete the 'ctx' folder and rerun this ENTIRE test file (temporarily
+# replacing the 'apikey' string with a valid key) to repopulate the stored 
+# .jsons. These will likely be huge and will need to be edited by hand to reduce
+# their sizes. To do this, open the file(s) and remove all but one element of
+# the outer array -- we don't need more than one endpoint-sample. When editing
+# down the files, it is recommended to make sure the same aeid is present in each
+# selected endpoint-sample, or assay for the saved assay.json response, to make
+# sure every test has its necessary data still available.
+#-------------------------------------------------------------------------------
+httptest::with_mock_dir("ctx", {
+  apikey <- "apikey"
+  tcplConf(pass = apikey,
+           drvr = "API")
+  data(test_api)
+  test_that("level 3 API data loads by m4id", {
+    expect_no_error(dat <- tcplLoadData(lvl = 3, fld = "m4id", val = test_api$m4id, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 1)
+    expect_true(all(c("m4id", "spid", "conc", "aeid") %in% colnames(dat)))
+    expect_true(test_api$m4id %in% dat$m4id)
+  })
+  test_that("level 3 API data loads by aeid", {
+    expect_no_error(dat <- tcplLoadData(lvl = 3, fld = "aeid", val = test_api$aeid, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 1)
+    expect_true(all(c("aeid", "spid", "conc") %in% colnames(dat)))
+    expect_true(test_api$aeid %in% dat$aeid)
+  })
+  test_that("level 3 API data loads by dtxsid", {
+    expect_no_error(dat <- tcplLoadData(lvl = 3, fld = "dtxsid", val = test_api$dtxsid, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 1)
+    expect_true(all(c("dtxsid", "spid", "conc", "aeid") %in% colnames(dat)))
+    expect_true(test_api$dtxsid %in% dat$dtxsid)
+  })
+  test_that("level 3 API data loads by spid", {
+    expect_no_error(dat <- tcplLoadData(lvl = 3, fld = "spid", val = test_api$spid, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 1)
+    expect_true(all(c("aeid", "spid", "conc") %in% colnames(dat)))
+    expect_true(test_api$spid %in% dat$spid)
+  })
+  test_that("level 4 API data loads by m4id", {
+    expect_no_error(dat <- tcplLoadData(lvl = 4, fld = "m4id", val = test_api$m4id, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_equal(nrow(dat), 1)
+    expect_true(all(c("m4id", "aeid", "bmad", "spid", "max_med", "nconc", "nrep") %in% colnames(dat)))
+    expect_true(test_api$m4id %in% dat$m4id)
+  })
+  test_that("level 4 API data loads by aeid", {
+    expect_no_error(dat <- tcplLoadData(lvl = 4, fld = "aeid", val = test_api$aeid, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 0)
+    expect_true(all(c("m4id", "aeid", "spid", "bmad", "max_med", "nconc", "nrep") %in% colnames(dat)))
+    expect_true(test_api$aeid %in% dat$aeid)
+  })
+  test_that("level 4 API data loads by dtxsid", {
+    expect_no_error(dat <- tcplLoadData(lvl = 4, fld = "dtxsid", val = test_api$dtxsid, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 0)
+    expect_true(all(c("dtxsid", "spid", "m4id", "aeid", "bmad", "max_med", "nconc", "nrep") %in% colnames(dat)))
+    expect_true(test_api$dtxsid %in% dat$dtxsid)
+  })
+  test_that("level 4 API data loads by spid", {
+    expect_no_error(dat <- tcplLoadData(lvl = 4, fld = "spid", val = test_api$spid, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 0)
+    expect_true(all(c("spid", "m4id", "aeid", "bmad", "max_med", "nconc", "nrep") %in% colnames(dat)))
+    expect_true(test_api$spid %in% dat$spid)
+  })
+  test_that("level 5 API data loads by m4id", {
+    expect_no_error(dat <- tcplLoadData(lvl = 5, fld = "m4id", val = test_api$m4id, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_equal(nrow(dat), 1)
+    expect_true(all(c("m4id", "m5id", "aeid", "spid", "bmad", "max_med", "nconc", "nrep", "modl", "hitc", "coff", "model_type") %in% colnames(dat)))
+    expect_true(test_api$m4id %in% dat$m4id)
+  })
+  test_that("level 5 API data loads by aeid", {
+    expect_no_error(dat <- tcplLoadData(lvl = 5, fld = "aeid", val = test_api$aeid, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 0)
+    expect_true(all(c("m4id", "m5id", "aeid", "spid", "bmad", "max_med", "nconc", "nrep", "modl", "hitc", "coff", "model_type") %in% colnames(dat)))
+    expect_true(test_api$aeid %in% dat$aeid)
+  })
+  test_that("level 5 API data loads by dtxsid", {
+    expect_no_error(dat <- tcplLoadData(lvl = 5, fld = "dtxsid", val = test_api$dtxsid, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 0)
+    expect_true(all(c("dtxsid", "m4id", "m5id", "aeid", "spid", "bmad", "max_med", "nconc", "nrep", "modl", "hitc", "coff", "model_type") %in% colnames(dat)))
+    expect_true(test_api$dtxsid %in% dat$dtxsid)
+  })
+  test_that("level 5 API data loads by spid", {
+    expect_no_error(dat <- tcplLoadData(lvl = 5, fld = "spid", val = test_api$spid, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 0)
+    expect_true(all(c("m4id", "m5id", "aeid", "spid", "bmad", "max_med", "nconc", "nrep", "modl", "hitc", "coff", "model_type") %in% colnames(dat)))
+    expect_true(test_api$spid %in% dat$spid)
+  })
+  test_that("level 6 API data loads by m4id", {
+    expect_no_error(dat <- tcplLoadData(lvl = 6, fld = "m4id", val = test_api$m4id, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 0)
+    expect_true(all(c("m4id", "m5id", "aeid", "spid", "bmad", "max_med", "nconc", "nrep", "flag") %in% colnames(dat)))
+    expect_true(test_api$m4id %in% dat$m4id)
+  })
+  test_that("level 6 API data loads by aeid", {
+    expect_no_error(dat <- tcplLoadData(lvl = 6, fld = "aeid", val = test_api$aeid, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 0)
+    expect_true(all(c("m4id", "m5id", "aeid", "spid", "bmad", "max_med", "nconc", "nrep", "flag") %in% colnames(dat)))
+    expect_true(test_api$aeid %in% dat$aeid)
+  })
+  test_that("level 6 API data loads by dtxsid", {
+    expect_no_error(dat <- tcplLoadData(lvl = 6, fld = "dtxsid", val = test_api$dtxsid, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 0)
+    expect_true(all(c("dtxsid", "m4id", "m5id", "aeid", "spid", "bmad", "max_med", "nconc", "nrep", "flag") %in% colnames(dat)))
+    expect_true(test_api$dtxsid %in% dat$dtxsid)
+  })
+  test_that("level 6 API data loads by spid", {
+    expect_no_error(dat <- tcplLoadData(lvl = 6, fld = "spid", val = test_api$spid, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 0)
+    expect_true(all(c("m4id", "m5id", "aeid", "spid", "bmad", "max_med", "nconc", "nrep", "flag") %in% colnames(dat)))
+    expect_true(test_api$spid %in% dat$spid)
+  })
+  test_that("agg level API data loads by m4id", {
+    expect_no_error(dat <- tcplLoadData(lvl = "agg", fld = "m4id", val = test_api$m4id, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 1)
+    expect_true(all(c("m4id", "aeid", "spid", "bmad", "logc", "resp", "max_med", "nconc", "nrep") %in% colnames(dat)))
+    expect_true(test_api$m4id %in% dat$m4id)
+  })
+  test_that("agg level API data loads by aeid", {
+    expect_no_error(dat <- tcplLoadData(lvl = "agg", fld = "aeid", val = test_api$aeid, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 1)
+    expect_true(all(c("m4id", "aeid", "spid", "bmad", "logc", "resp", "max_med", "nconc", "nrep") %in% colnames(dat)))
+    expect_true(test_api$aeid %in% dat$aeid)
+  })
+  test_that("agg level API data loads by dtxsid", {
+    expect_no_error(dat <- tcplLoadData(lvl = "agg", fld = "dtxsid", val = test_api$dtxsid, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 1)
+    expect_true(all(c("dtxsid", "m4id", "aeid", "spid", "bmad", "logc", "resp", "max_med", "nconc", "nrep") %in% colnames(dat)))
+    expect_true(test_api$dtxsid %in% dat$dtxsid)
+  })
+  test_that("agg level API data loads by spid", {
+    expect_no_error(dat <- tcplLoadData(lvl = "agg", fld = "spid", val = test_api$spid, add.fld = FALSE))
+    expect_true(is.data.table(dat))
+    expect_true(nrow(dat) > 1)
+    expect_true(all(c("m4id", "aeid", "spid", "bmad", "logc", "resp", "max_med", "nconc", "nrep") %in% colnames(dat)))
+    expect_true(test_api$spid %in% dat$spid)
+  })
+  # error cases
+  test_that("more than one field results in error", {
+    expect_error(tcplLoadData(lvl = 5, fld = c("aeid", "spid"), val = list(test_api$aeid, test_api$spid), add.fld = FALSE),
+                 "'fld' must be length 1")
+  })
+  test_that("fields outside of dtxsid, aeid, m4id, spid result in error", {
+    expect_error(tcplLoadData(lvl = 3, fld = "acid", val = test_api$acid, add.fld = FALSE),
+                 "'fld' must be one of 'AEID', 'SPID', 'm4id', or 'DTXSID'")
+  })
+  test_that("levels other than 3-6 and 'agg' result in error", {
+    expect_error(tcplLoadData(lvl = 2, fld = "aeid", val = test_api$aeid, add.fld = FALSE),
+                 "Only lvl = c(3,4,5,6) and 'agg' are supported using API data as source.", fixed = TRUE)
+  })
+  test_that("type = 'sc' result in error", {
+    expect_error(tcplLoadData(type = "sc", lvl = 2, fld = "aeid", val = test_api$aeid, add.fld = FALSE),
+                 "Only type = 'mc' is supported using API data as source.")
+  })
+  test_that("data not found results in null data.table", {
+    expect_warning(dat <- tcplLoadData(lvl = 3, fld = "aeid", val = 0, add.fld = FALSE), 
+                   "Data not found for the following 'fld' and 'val' combos: 
+AEID: 0", fixed = TRUE)
+    expect_equal(nrow(dat), 0)
+    expect_warning(dat <- tcplLoadData(lvl = 4, fld = "spid", val = "fakespid", add.fld = FALSE), 
+                   "Data not found for the following 'fld' and 'val' combos: 
+SPID: fakespid", fixed = TRUE)
+    expect_equal(nrow(dat), 0)
+    expect_warning(dat <- tcplLoadData(lvl = 5, fld = "dtxsid", val = "fakedtxsid", add.fld = FALSE), 
+                   "Data not found for the following 'fld' and 'val' combos: 
+DTXSID: fakedtxsid", fixed = TRUE)
+    expect_equal(nrow(dat), 0)
+    expect_warning(dat <- tcplLoadData(lvl = 6, fld = "m4id", val = 0, add.fld = FALSE),
+                   "Data not found for the following 'fld' and 'val' combos: 
+m4id: 0", fixed = TRUE)
+    expect_equal(nrow(dat), 0)
+  })
+  test_that("some data not found results in warning", {
+    expect_warning(dat <- tcplLoadData(lvl = 3, fld = "aeid", val = c(0, test_api$aeid), add.fld = FALSE), 
+                   "Data not found for the following 'fld' and 'val' combos: 
+AEID: 0", fixed = TRUE)
+    expect_true(nrow(dat) > 0)
+    expect_warning(dat <- tcplLoadData(lvl = 4, fld = "spid", val = c("fakespid", test_api$spid), add.fld = FALSE), 
+                   "Data not found for the following 'fld' and 'val' combos: 
+SPID: fakespid", fixed = TRUE)
+    expect_true(nrow(dat) > 0)
+    expect_warning(dat <- tcplLoadData(lvl = 5, fld = "dtxsid", val = c("fakedtxsid", test_api$dtxsid), add.fld = FALSE), 
+                   "Data not found for the following 'fld' and 'val' combos: 
+DTXSID: fakedtxsid", fixed = TRUE)
+    expect_true(nrow(dat) > 0)
+    expect_warning(dat <- tcplLoadData(lvl = 6, fld = "m4id", val = c(0, test_api$m4id), add.fld = FALSE),
+                   "Data not found for the following 'fld' and 'val' combos: 
+m4id: 0", fixed = TRUE)
+    expect_true(nrow(dat) > 0)
+  })
+}) 
diff --git a/tests/testthat/test-tcplLoadUnit.R b/tests/testthat/test-tcplLoadUnit.R
new file mode 100644
index 00000000..1ea7f402
--- /dev/null
+++ b/tests/testthat/test-tcplLoadUnit.R
@@ -0,0 +1,25 @@
+#-------------------------------------------------------------------------------
+# Covers testing tcplLoadUnit with "API" driver
+# Using httptest mocking to automatically save json responses from http requests
+# NOTE -- updates to the CTX API may mean stored json files are out of date. In 
+# this case, delete the 'ctx' folder and follow the instructions in the test-
+# tcplLoadData test file. 
+#-------------------------------------------------------------------------------
+httptest::with_mock_dir("ctx", {
+  apikey <- "apikey"
+  tcplConf(pass = apikey,
+           drvr = "API")
+  data(test_api)
+  test_that("tcplLoadUnit works by aeid", {
+    expect_no_error(dat <- tcplLoadUnit(aeid = test_api$aeid))
+    expect_true(is.data.table(dat))
+    expect_equal(nrow(dat), 1)
+    expect_true(all(c("aeid", "resp_unit") %in% colnames(dat)))
+    expect_equal(dat$aeid, test_api$aeid)
+  })
+  #error cases
+  test_that("data not found results in null data.table", {
+    expect_no_error(dat <- tcplLoadUnit(aeid = 0))
+    expect_equal(nrow(dat), 0)
+  })
+})
\ No newline at end of file
diff --git a/tests/testthat/test-tcplPlot.R b/tests/testthat/test-tcplPlot.R
index 55e65081..8b28419a 100644
--- a/tests/testthat/test-tcplPlot.R
+++ b/tests/testthat/test-tcplPlot.R
@@ -1,3 +1,7 @@
+#-------------------------------------------------------------------------------
+# old tests using drvr = "example"
+#-------------------------------------------------------------------------------
+
 tcplConf(drvr="example")
 if (!interactive()) pdf(NULL)
 
@@ -7,153 +11,9 @@ test_that("round_n function works", {
     c("1.2e+03",NA,"0.333"))
   })
 
-test_that("check_tcpl_db_schema() loaded", {
-  expect_false(
-    (check_tcpl_db_schema())
-  )
-})
-
-test_that("error message works: 'No data for fld/val provided'", {
-  input <- NULL  
-  expect_error(
-    if (nrow(input) == 0) stop("No data for fld/val provided")
-  ) 
-})
-
-test_that("tcplPlot loads data", {
-  input <- tcplLoadData(lvl = 4, type = "mc")
-  expect_no_error(
-    if (nrow(input) == 0) stop("No data for fld/val provided")
-  )
-})
-
-test_that("logic check works: assign multi=TRUE for output='pdf'", {
-  output <- "pdf"
-  multi  <-  NULL
-  if (output == "pdf" && is.null(multi)) {
-    multi <- TRUE
-  }
-  expect_true(multi)
-})
-
-test_that("logic check works: assign multi=FALSE for output != 'pdf', 
-                              verbose=FALSE for output='console'", {
-  output = 'console'
-  if (output !="pdf") {
-    multi <- FALSE
-    if(output =="console"){
-      verbose <- FALSE
-    }
-  }
-  expect_false(multi)
-  expect_false(verbose)
-  })
-
-test_that("logic check works: assign nrow = ncol = 1 for output='pdf' and
-                              multi=FALSE to plot one plot per page", {
-  output = 'pdf'
-  multi = FALSE
-  input <- tcplLoadData(lvl = 4, type = "mc")
-  if(nrow(input) > 1 && output == "pdf" && multi == FALSE) {
-    nrow = ncol = 1
-  } 
-  expect_equal(
-    c(nrow,ncol),
-    c(1,1)
-  )
-})
-
-test_that("error message: output = 'console' and multi = FALSE 
-                          to avoid multiple plots in console", {
-  input <- tcplLoadData(lvl = 4, type = "mc")
-  expect_error(
-    if(nrow(input) > 1 && output == "console" && multi == FALSE) stop("More than 1 concentration series returned for given field/val combination.  Set output to pdf or reduce the number of curves to 1. Current number of curves: ", nrow(input))
-  )
-})
-
-
-test_that("nrow value set based on verbose", {
-  nrow = NULL
-  verbose = TRUE
-  if(is.null(nrow)){
-    nrow <- ifelse(verbose,2,2)
-  }
-  expect_equal(nrow,2)
-})
-
-test_that("ncol value set based on verbose", {
-  ncol = NULL
-  verbose = FALSE
-  if(is.null(ncol)){
-    ncol <- ifelse(verbose,2,3)
-  }
-  expect_equal(ncol,3)
-})
-
-test_that("m4id filters mc4 input", {
-  input <- tcplLoadData(lvl = 4, type = "mc")
-  m4id <- input$m4id
-  expect_length(m4id,5)
-})
-
-test_that("m4id filters mc5 input", {
-  input <- tcplLoadData(lvl = 5, type = "mc")
-  m4id <- input$m4id
-  expect_length(m4id,5)
-})
-
-test_that("dat table loads", {
-  lvl = 5
-  l4 <- tcplLoadData(lvl = 4, type = "mc", add.fld = TRUE)
-  if (lvl >= 5L) {
-    l5 <- tcplLoadData(lvl = 5, type = "mc", add.fld = TRUE)
-    dat <- l4[l5, on = "m4id"]
-  }
-  expect_length(dat,length(l5)+length(l4)-1)
-})
-
-test_that("tcplPrepOtpt loads chemical and units", {
-  lvl = 5
-  l4 <- tcplLoadData(lvl = 4, type = "mc", add.fld = TRUE)
-  if (lvl >= 5L) {
-    l5 <- mc_vignette[["mc5"]]
-    dat <- l4[l5, on = c("m4id","aeid")]
-    dat <- dat[,!c("tp","ga","q","la","ac50_loss")]
-  }
-  expect_length(dat,188)
-  expect_type(dat$dsstox_substance_id,"character")
-  expect_type(dat$conc_unit,"character")
-})
-
-test_that("unlog conc data table works", {
-  agg <- tcplLoadData(lvl = "agg", type = "mc")
-  conc_resp_table <- agg %>% 
-    group_by(m4id) %>% 
-    summarise(conc = list(10^logc), resp = list(resp)) %>% 
-    as.data.table()
-  expect_true(is.data.table(conc_resp_table))
-  expect_length(conc_resp_table,3)
-  expect_length(conc_resp_table$conc,5)
-})
-
-test_that("conc_resp_table joins dat table correctly", {
-  lvl = 5
-  l4 <- tcplLoadData(lvl = 4, type = "mc", add.fld = TRUE)
-  if (lvl >= 5L) {
-    l5 <- tcplLoadData(lvl = 5, type = "mc", add.fld = TRUE)
-    dat <- l4[l5, on = "m4id"]
-  }
-  agg <- tcplLoadData(lvl = "agg", type = "mc")
-  conc_resp_table <- agg %>% 
-    group_by(m4id) %>% 
-    summarise(conc = list(10^logc), resp = list(resp)) %>% 
-    as.data.table()
-  dat <- dat[conc_resp_table, on = "m4id"]
-  expect_length(dat,183)
-})
 
 test_that("one m4id tcplPlot works", {
-  skip_on_ci()
+  skip()
   lvl = 5
   verbose = TRUE
   l4 <- tcplLoadData(lvl = 4, type = "mc", add.fld = TRUE)
@@ -165,17 +25,19 @@ test_that("one m4id tcplPlot works", {
   agg <- tcplLoadData(lvl = "agg", type = "mc")
   conc_resp_table <- agg %>% 
     group_by(m4id) %>% 
-    summarise(conc = list(10^logc), resp = list(resp)) %>% 
+    summarise(conc = list(conc), resp = list(resp)) %>% 
     as.data.table()
   dat <- dat[conc_resp_table, on = "m4id"]
   dat <- dat[,normalized_data_type:="log2_fold_induction"]
   dat <- dat[spid == "01504209"]
-  mc5_tcplplot <- tcplggplot(dat,verbose = verbose)
+  mc5_tcplplot <- suppressWarnings(tcplggplot(dat,verbose = verbose))
   expect_no_warning(mc5_tcplplot)
   vdiffr::expect_doppelganger("test_output_482273", mc5_tcplplot)
 })
 
+# needs updates or removal; new spid is not in downward direction
 test_that("negative direction plot has negative bmr and cutoff lines", {
+  skip()
   lvl = 5
   verbose = FALSE
   l4 <- tcplLoadData(lvl = 4, type = "mc", add.fld = TRUE)
@@ -187,33 +49,730 @@ test_that("negative direction plot has negative bmr and cutoff lines", {
   agg <- tcplLoadData(lvl = "agg", type = "mc")
   conc_resp_table <- agg %>% 
     group_by(m4id) %>% 
-    summarise(conc = list(10^logc), resp = list(resp)) %>% 
+    summarise(conc = list(conc), resp = list(resp)) %>% 
     as.data.table()
   dat <- dat[conc_resp_table, on = "m4id"]
   dat <- dat[,normalized_data_type:="log2_fold_induction"]
-  dat <- dat[spid == "1210314466"]  
-  mc5_tcplplot <- tcplggplot(dat,verbose = verbose)
+  dat <- dat[spid == "01504209"]  
+  mc5_tcplplot <- suppressWarnings(tcplggplot(dat,verbose = verbose))
   vdiffr::expect_doppelganger("negative_cutoff_bmr", mc5_tcplplot)
 })
 
-test_that("coff,bmr should be negative if winning model has negative top", {
-  lvl = 5
-  l4 <- tcplLoadData(lvl = 4, type = "mc", add.fld = TRUE)
-  if (lvl >= 5L) {
-    l5 <- tcplLoadData(lvl = 5, type = "mc", add.fld = TRUE)
-    dat <- l4[l5, on = "m4id"]
-  }
-  dat <- dat[spid == "1210314466"]
-  if (!is.null(dat$top) && !is.null(dat$coff) && !is.na(dat$top) && !is.null(dat$bmr)) {
-    if (dat$top < 0) {
-      dat$coff <- dat$coff * -1
-      dat$bmr <- dat$bmr * -1
+
+#-------------------------------------------------------------------------------
+# new tests using drvr = "MySQL" and mocking
+#-------------------------------------------------------------------------------
+# Format
+# test_that("something works", {
+  # data("mc_test")
+  # mocked <- mc_test$mc0_by_m0id # change this
+  # local_mocked_bindings(
+  #   tcplQuery = function(query, db, tbl) {
+  #     if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+  #     else mocked[query][[1]]
+  #   }
+  # )
+  # tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+# })
+
+# Test tcplPlotLoadData
+test_that("tcplPlotLoadData loads all necessary mc data", {
+  data("mc_test")
+  mocked <- mc_test$plot_single_m4id
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplPlotLoadData(val = mocked$m4id, flags = TRUE)
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("dsstox_substance_id", "aenm", "m4id", "bmad", "hitc", "modl", 
+                    "cnst_aic", "flag", "ac50", "order", "conc", "resp", "conc_unit", 
+                    "resp_unit", "normalized_data_type") %in% colnames(dat)))
+  expect_true(mocked$m4id %in% dat$m4id)
+})
+
+test_that("tcplPlotLoadData loads all necessary sc data", {
+  data("sc_test")
+  mocked <- sc_test$plot_single_s2id
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
     }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplPlotLoadData(type = "sc", fld = "s2id", val = mocked$s2id)
+  expect_true(is.data.table(dat))
+  expect_true(nrow(dat) > 0)
+  expect_true(all(c("dsstox_substance_id", "aenm", "s2id", "bmad", "hitc", "max_med", 
+                    "order", "conc", "resp", "conc_unit", "coff",
+                    "resp_unit", "normalized_data_type") %in% colnames(dat)))
+  expect_true(mocked$s2id %in% dat$s2id)
+})
+
+test_that("tcplPlotLoadData errors if type is not 'mc' or 'sc'", {
+  data("mc_test")
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_error(tcplPlotLoadData(type = "ms", val = 123, flags = TRUE),
+               "Invalid 'lvl' and 'type' combination.")
+})
+
+# Test tcplPlotValidate
+test_that("tcplPlotValidate warns user if flags = TRUE and type = 'sc'", {
+  expect_warning(validated_params <- tcplPlotValidate(type = "sc",flags = TRUE,output = "pdf",multi = NULL,verbose = FALSE))
+  expect_equal(validated_params, list(lvl = 2, type = "sc", flags = FALSE, output = "pdf", multi = TRUE, verbose = FALSE))
+})
+
+test_that("tcplPlotValidate force assigns multi = FALSE and verbose = FALSE if output != pdf", {
+  validated_params <- tcplPlotValidate(type = "mc",flags = TRUE,output = "console",multi = TRUE,verbose = TRUE)
+  expect_equal(validated_params, list(lvl = 5, type = "mc", flags = TRUE, output = "console", multi = FALSE, verbose = FALSE))
+})
+
+test_that("tcplPlotValidate doesn't change correctly assigned parameters", {
+  validated_params <- tcplPlotValidate(type = "mc",flags = TRUE,output = "pdf",multi = TRUE,verbose = TRUE)
+  expect_equal(validated_params, list(lvl = 5, type = "mc", flags = TRUE, output = "pdf", multi = TRUE, verbose = TRUE))
+})
+
+# Test tcplPlotSetYRange
+test_that("tcplPlotSetYRange validates range", {
+  # error cases
+  expect_error(tcplPlotSetYRange(dat=NULL,yuniform=FALSE,yrange=c(1,2,3),type="mc"), "'yrange' must be of length 2")
+  expect_error(tcplPlotSetYRange(dat=NULL,yuniform=FALSE,yrange=1,type="mc"), "'yrange' must be of length 2")
+  expect_error(tcplPlotSetYRange(dat=NULL,yuniform=FALSE,yrange=NULL,type="mc"), "'yrange' must be of length 2")
+  # validate existing set yrange and doesn't overwrite it regardless if yuniform is TRUE
+  expect_equal(tcplPlotSetYRange(dat=NULL,yuniform=FALSE,yrange=c(-100,100),type="mc"),c(-100,100))
+  expect_equal(tcplPlotSetYRange(dat=NULL,yuniform=TRUE,yrange=c(-100,100),type="mc"),c(-100,100))
+})
+
+test_that("tcplPlotSetYRange correctly sets yrange for mc data", {
+  data("mc_test")
+  mocked <- mc_test$plot_multiple_aeid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplPlotLoadData(fld = "aeid", val = mocked$aeid, flags = TRUE)
+  expect_no_error(yrange <- tcplPlotSetYRange(dat=dat,yuniform=TRUE,yrange=c(NA,NA),type="mc"))
+  expect_length(yrange,2)
+  min <- min(dat$resp_min, unlist(dat$resp))
+  max <- max(dat$resp_max, unlist(dat$resp))
+  if (2 %in% dat$model_type) {
+    cutoffs <- dat[model_type == 2]$coff
+    min <- min(min, cutoffs, cutoffs * -1)
+    max <- max(max, cutoffs, cutoffs * -1)
+  }
+  # any gain models contained in dat, cutoff only positive
+  if (3 %in% dat$model_type) {
+    cutoffs <- dat[model_type == 3]$coff
+    min <- min(min, cutoffs)
+    max <- max(max, cutoffs)
+  }
+  # any loss models contained in dat, cutoff only negative
+  if (4 %in% dat$model_type) {
+    cutoffs <- dat[model_type == 4]$coff
+    min <- min(min, cutoffs * -1)
+    max <- max(max, cutoffs * -1)
   }
-  expect_lt(dat$coff,0)
-  expect_lt(dat$bmr,0)
+  expect_equal(yrange, c(min,max))
 })
 
-# test_that("description", {
-#   expect_*(code)
-# })
+test_that("tcplPlotSetYRange correctly sets yrange for sc data", {
+  data("sc_test")
+  mocked <- sc_test$plot_multiple_aeid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplPlotLoadData(type = "sc", fld = "aeid", val = mocked$aeid)
+  expect_no_error(yrange <- tcplPlotSetYRange(dat=dat,yuniform=TRUE,yrange=c(NA,NA),type="sc"))
+  expect_length(yrange,2)
+  min <- min(dat$resp_min, unlist(dat$resp))
+  max <- max(dat$resp_max, unlist(dat$resp))
+  min <- min(min, dat$coff, dat$coff * -1)
+  max <- max(max, dat$coff, dat$coff * -1)
+  expect_equal(yrange, c(min,max))
+})
+
+# Test tcplPlot - mc
+test_that("tcplPlot works for single m4id", {
+  data("mc_test")
+  mocked <- mc_test$plot_single_m4id
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "m4id", val = mocked$m4id, output = "pdf", verbose = TRUE, flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "m4id", val = mocked$m4id, output = "pdf", multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "m4id", val = mocked$m4id, output = "console", verbose = TRUE, flags = TRUE, multi = TRUE)))
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for multiple m4id", {
+  data("mc_test")
+  mocked <- mc_test$plot_multiple_m4id
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "m4id", val = mocked$m4id, output = "pdf", verbose = TRUE, flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "m4id", val = mocked$m4id, output = "pdf", multi = TRUE, fileprefix = "temp_tcplPlot")))
+  # console does not work with length(val) > 1
+  expect_error(tcplPlot(type = "mc", fld = "m4id", val = mocked$m4id, output = "console", verbose = TRUE, flags = TRUE, multi = TRUE), 
+               "More than 1 concentration series returned for given field/val combination.  Set output to pdf or reduce the number of curves to 1. Current number of curves: 2")
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for single aeid", {
+  data("mc_test")
+  mocked <- mc_test$plot_single_aeid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "aeid", val = mocked$aeid, output = "pdf", verbose = TRUE, flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "aeid", val = mocked$aeid, output = "pdf", multi = TRUE, fileprefix = "temp_tcplPlot")))
+  # console does not work with length(val) > 1
+  expect_error(tcplPlot(type = "mc", fld = "aeid", val = mocked$aeid, output = "console", verbose = TRUE, flags = TRUE, multi = TRUE), 
+               "More than 1 concentration series returned for given field/val combination.  Set output to pdf or reduce the number of curves to 1. Current number of curves: 2")  
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for multiple aeid", {
+  data("mc_test")
+  mocked <- mc_test$plot_multiple_aeid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "aeid", val = mocked$aeid, output = "pdf", verbose = TRUE, flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "aeid", val = mocked$aeid, output = "pdf", by = "aeid", verbose = TRUE, flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "aeid", val = mocked$aeid, output = "pdf", flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "aeid", val = mocked$aeid, output = "pdf", flags = TRUE, by = "aeid", multi = TRUE, fileprefix = "temp_tcplPlot")))
+  # console does not work with length(val) > 1
+  expect_error(tcplPlot(type = "mc", fld = "aeid", val = mocked$aeid, output = "console", verbose = TRUE, flags = TRUE, multi = TRUE), 
+               "More than 1 concentration series returned for given field/val combination.  Set output to pdf or reduce the number of curves to 1. Current number of curves: 4")
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 3) # exactly three files created (2 from `by = "aeid"` output)
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for single spid/aeid", {
+  data("mc_test")
+  mocked <- mc_test$plot_single_spid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), output = "pdf", verbose = TRUE, flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), output = "pdf", multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), output = "console", verbose = TRUE, flags = TRUE, multi = TRUE)))  
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for multiple spid/aeid", {
+  data("mc_test")
+  mocked <- mc_test$plot_multiple_spid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), output = "pdf", verbose = TRUE, flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), output = "pdf", multi = TRUE, fileprefix = "temp_tcplPlot")))
+  # console does not work with length(val) > 1
+  expect_error(tcplPlot(type = "mc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), output = "console", verbose = TRUE, flags = TRUE, multi = TRUE), 
+               "More than 1 concentration series returned for given field/val combination.  Set output to pdf or reduce the number of curves to 1. Current number of curves: 2")
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for single m4id compared", {
+  data("mc_test")
+  mocked <- mc_test$plot_single_m4id_compare
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "m4id", val = mocked$m4id, compare.val = mocked$compare.m4id, output = "pdf", verbose = TRUE, flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "m4id", val = mocked$m4id, compare.val = mocked$compare.m4id, output = "pdf", multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "m4id", val = mocked$m4id, compare.val = mocked$compare.m4id, output = "console", verbose = TRUE, flags = TRUE, multi = TRUE)))
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for multiple m4id compared", {
+  data("mc_test")
+  mocked <- mc_test$plot_multiple_m4id_compare
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "m4id", val = mocked$m4id, compare.val = mocked$compare.m4id, output = "pdf", verbose = TRUE, flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "m4id", val = mocked$m4id, compare.val = mocked$compare.m4id, output = "pdf", flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  # console does not work with length(val) > 1
+  expect_error(tcplPlot(type = "mc", fld = "m4id", val = mocked$m4id, compare.val = mocked$compare.m4id, output = "console", verbose = TRUE, flags = TRUE, multi = TRUE), 
+               "More than 1 concentration series returned for given field/val combination.  Set output to pdf or reduce the number of curves to 1. Current number of curves: 4")
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for single aeid compared", {
+  data("mc_test")
+  mocked <- mc_test$plot_single_aeid_compare
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "aeid", val = mocked$aeid, compare.val = mocked$compare.aeid, output = "pdf", verbose = TRUE, flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "aeid", val = mocked$aeid, compare.val = mocked$compare.aeid, output = "pdf", multi = TRUE, fileprefix = "temp_tcplPlot")))
+  # console does not work with length(val) > 1
+  expect_error(tcplPlot(type = "mc", fld = "aeid", val = mocked$aeid, compare.val = mocked$compare.aeid, output = "console", verbose = TRUE, flags = TRUE, multi = TRUE), 
+               "More than 1 concentration series returned for given field/val combination.  Set output to pdf or reduce the number of curves to 1. Current number of curves: 4")  
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for multiple aeid compared", {
+  data("mc_test")
+  mocked <- mc_test$plot_multiple_aeid_compare
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "aeid", val = mocked$aeid, compare.val = mocked$compare.aeid, output = "pdf", verbose = TRUE, flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = "aeid", val = mocked$aeid, compare.val = mocked$compare.aeid, output = "pdf", multi = TRUE, flags = TRUE, fileprefix = "temp_tcplPlot")))
+  # console does not work with length(val) > 1
+  expect_error(tcplPlot(type = "mc", fld = "aeid", val = mocked$aeid, compare.val = mocked$compare.aeid, output = "console", verbose = TRUE, flags = TRUE, multi = TRUE), 
+               "More than 1 concentration series returned for given field/val combination.  Set output to pdf or reduce the number of curves to 1. Current number of curves: 8")
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for single spid/aeid compared", {
+  data("mc_test")
+  mocked <- mc_test$plot_single_spid_compare
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), compare.val = list(mocked$compare.spid, mocked$compare.aeid), output = "pdf", verbose = TRUE, flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), compare.val = list(mocked$compare.spid, mocked$compare.aeid), output = "pdf", multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), compare.val = list(mocked$compare.spid, mocked$compare.aeid), output = "console", verbose = TRUE, flags = TRUE, multi = TRUE)))  
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for multiple spid/aeid compared", {
+  data("mc_test")
+  mocked <- mc_test$plot_multiple_spid_compare
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), compare.val = list(mocked$compare.spid, mocked$compare.aeid), output = "pdf", verbose = TRUE, flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "mc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), compare.val = list(mocked$compare.spid, mocked$compare.aeid), output = "pdf", flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  # console does not work with length(val) > 1
+  expect_error(tcplPlot(type = "mc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), compare.val = list(mocked$compare.spid, mocked$compare.aeid), output = "console", verbose = TRUE, flags = TRUE, multi = TRUE), 
+               "More than 1 concentration series returned for given field/val combination.  Set output to pdf or reduce the number of curves to 1. Current number of curves: 4")
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+# Test tcplPlot - sc
+test_that("tcplPlot works for single s2id", {
+  data("sc_test")
+  mocked <- sc_test$plot_single_s2id
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "sc", fld = "s2id", val = mocked$s2id, output = "pdf", verbose = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "sc", fld = "s2id", val = mocked$s2id, output = "console", verbose = TRUE, multi = TRUE)))
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for multiple s2id", {
+  data("sc_test")
+  mocked <- sc_test$plot_multiple_s2id
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "sc", fld = "s2id", val = mocked$s2id, output = "pdf", verbose = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  # console does not work with length(val) > 1
+  expect_error(tcplPlot(type = "sc", fld = "s2id", val = mocked$s2id, output = "console", verbose = TRUE, multi = TRUE), 
+               "More than 1 concentration series returned for given field/val combination.  Set output to pdf or reduce the number of curves to 1. Current number of curves: 2")
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for single aeid", {
+  data("sc_test")
+  mocked <- sc_test$plot_single_aeid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "sc", fld = "aeid", val = mocked$aeid, output = "pdf", verbose = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  # console does not work with length(val) > 1
+  expect_error(tcplPlot(type = "sc", fld = "aeid", val = mocked$aeid, output = "console", verbose = TRUE, multi = TRUE), 
+               "More than 1 concentration series returned for given field/val combination.  Set output to pdf or reduce the number of curves to 1. Current number of curves: 7")  
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for multiple aeid", {
+  data("sc_test")
+  mocked <- sc_test$plot_multiple_aeid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "sc", fld = "aeid", val = mocked$aeid, output = "pdf", verbose = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "sc", fld = "aeid", val = mocked$aeid, by = "aeid", output = "pdf", verbose = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  # console does not work with length(val) > 1
+  expect_error(tcplPlot(type = "sc", fld = "aeid", val = mocked$aeid, output = "console", verbose = TRUE, multi = TRUE), 
+               "More than 1 concentration series returned for given field/val combination.  Set output to pdf or reduce the number of curves to 1. Current number of curves: 14")
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 3) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for single spid/aeid", {
+  data("sc_test")
+  mocked <- sc_test$plot_single_spid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "sc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), output = "pdf", verbose = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "sc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), output = "console", verbose = TRUE, multi = TRUE)))  
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for multiple spid/aeid", {
+  data("sc_test")
+  mocked <- sc_test$plot_multiple_spid
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "sc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), output = "pdf", verbose = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  # console does not work with length(val) > 1
+  expect_error(tcplPlot(type = "sc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), output = "console", verbose = TRUE, multi = TRUE), 
+               "More than 1 concentration series returned for given field/val combination.  Set output to pdf or reduce the number of curves to 1. Current number of curves: 2")
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for single s2id compared", {
+  data("sc_test")
+  mocked <- sc_test$plot_single_s2id_compare
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "sc", fld = "s2id", val = mocked$s2id, compare.val = mocked$compare.s2id, output = "pdf", verbose = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "sc", fld = "s2id", val = mocked$s2id, compare.val = mocked$compare.s2id, output = "console", verbose = TRUE, multi = TRUE)))
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for multiple s2id compared", {
+  data("sc_test")
+  mocked <- sc_test$plot_multiple_s2id_compare
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "sc", fld = "s2id", val = mocked$s2id, compare.val = mocked$compare.s2id, output = "pdf", verbose = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  # console does not work with length(val) > 1
+  expect_error(tcplPlot(type = "sc", fld = "s2id", val = mocked$s2id, compare.val = mocked$compare.s2id, output = "console", verbose = TRUE, multi = TRUE), 
+               "More than 1 concentration series returned for given field/val combination.  Set output to pdf or reduce the number of curves to 1. Current number of curves: 4")
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for single aeid compared", {
+  data("sc_test")
+  mocked <- sc_test$plot_single_aeid_compare
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "sc", fld = "aeid", val = mocked$aeid, compare.val = mocked$compare.aeid, output = "pdf", verbose = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  # console does not work with length(val) > 1
+  expect_error(tcplPlot(type = "sc", fld = "aeid", val = mocked$aeid, compare.val = mocked$compare.aeid, output = "console", verbose = TRUE, multi = TRUE), 
+               "More than 1 concentration series returned for given field/val combination.  Set output to pdf or reduce the number of curves to 1. Current number of curves: 14")  
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for multiple aeid compared", {
+  data("sc_test")
+  mocked <- sc_test$plot_multiple_aeid_compare
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "sc", fld = "aeid", val = mocked$aeid, compare.val = mocked$compare.aeid, output = "pdf", verbose = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  # console does not work with length(val) > 1
+  expect_error(tcplPlot(type = "sc", fld = "aeid", val = mocked$aeid, compare.val = mocked$compare.aeid, output = "console", verbose = TRUE, multi = TRUE), 
+               "More than 1 concentration series returned for given field/val combination.  Set output to pdf or reduce the number of curves to 1. Current number of curves: 28")
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for single spid/aeid compared", {
+  data("sc_test")
+  mocked <- sc_test$plot_single_spid_compare
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "sc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), compare.val = list(mocked$compare.spid, mocked$compare.aeid), output = "pdf", verbose = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  expect_no_error(suppressWarnings(tcplPlot(type = "sc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), compare.val = list(mocked$compare.spid, mocked$compare.aeid), output = "console", verbose = TRUE, multi = TRUE)))  
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("tcplPlot works for multiple spid/aeid compared", {
+  data("sc_test")
+  mocked <- sc_test$plot_multiple_spid_compare
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  expect_no_error(suppressWarnings(tcplPlot(type = "sc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), compare.val = list(mocked$compare.spid, mocked$compare.aeid), output = "pdf", verbose = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  # console does not work with length(val) > 1
+  expect_error(tcplPlot(type = "sc", fld = c("spid", "aeid"), val = list(mocked$spid, mocked$aeid), compare.val = list(mocked$compare.spid, mocked$compare.aeid), output = "console", verbose = TRUE, multi = TRUE), 
+               "More than 1 concentration series returned for given field/val combination.  Set output to pdf or reduce the number of curves to 1. Current number of curves: 4")
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+# Stand-alone plotting
+test_that("standalone plotting works in mc", {
+  data("mc_test")
+  mocked <- mc_test$plot_single_m4id
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplPlotLoadData(val = mocked$m4id, flags = TRUE)
+  expect_no_error(suppressWarnings(tcplPlot(dat = dat, type = "mc", fld = "m4id", val = mocked$m4id, output = "pdf", verbose = TRUE, flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("standalone advanced comparison plotting works in mc", {
+  data("mc_test")
+  mocked <- mc_test$plot_single_m4id_compare
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") mc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplPlotLoadData(val = mocked$m4id, flags = TRUE)
+  expect_no_error(suppressWarnings(tcplPlot(dat = dat, type = "mc", fld = "m4id", val = mocked$m4id, compare.val = mocked$compare.m4id , output = "pdf", verbose = TRUE, flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("standalone plotting works in sc", {
+  data("sc_test")
+  mocked <- sc_test$plot_single_s2id
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplPlotLoadData(type = "sc", fld = "s2id", val = mocked$s2id)
+  expect_no_error(suppressWarnings(tcplPlot(dat = dat, type = "sc", fld = "s2id", val = mocked$s2id, output = "pdf", verbose = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+test_that("standalone advanced comparison plotting works in sc", {
+  data("sc_test")
+  mocked <- sc_test$plot_single_s2id_compare
+  local_mocked_bindings(
+    tcplQuery = function(query, db, tbl) {
+      if (query == "SHOW VARIABLES LIKE 'max_allowed_packet'") sc_test$tcplConfQuery
+      else mocked[query][[1]]
+    }
+  )
+  tcplConf(drvr = "MySQL", db = "invitrodb") # must include both
+  dat <- tcplPlotLoadData(type = "sc", fld = "s2id", val = mocked$s2id)
+  expect_no_error(suppressWarnings(tcplPlot(dat = dat, type = "sc", fld = "s2id", val = mocked$s2id, compare.val = mocked$compare.s2id , output = "pdf", verbose = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+  fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+  expect_length(fn, 1) # exactly one file created
+  file.remove(fn) # clean up
+})
+
+
+
+#-------------------------------------------------------------------------------
+# Covers testing tcplLoadData with "API" driver
+# Using httptest mocking to automatically save json responses from http requests
+# NOTE -- updates to the CTX API may mean stored json files are out of date. In 
+# this case, delete the 'ctx' folder and rerun this ENTIRE test file (temporarily
+# replacing the 'apikey' string with a valid key) to repopulate the stored 
+# .jsons. These will likely be huge and will need to be edited by hand to reduce
+# their sizes. To do this, open the file(s) and remove all but one element of
+# the outer array -- we don't need more than one endpoint-sample.
+#-------------------------------------------------------------------------------
+httptest::with_mock_dir("ctx", {
+  apikey <- "apikey"
+  tcplConf(pass = apikey,
+           drvr = "API")
+  data(test_api)
+  test_that("tcplPlot works with API data by m4id", {
+    expect_no_error(suppressWarnings(tcplPlot(val = test_api$m4id, output = "pdf", verbose = TRUE, flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+    fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+    expect_length(fn, 1) # exactly one file created
+    file.remove(fn) # clean up
+  })
+  test_that("tcplPlot works with API data by aeid", {
+    expect_no_error(suppressWarnings(tcplPlot(fld = "aeid", val = test_api$aeid, output = "pdf", verbose = TRUE, flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+    fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+    expect_length(fn, 1) # exactly one file created
+    file.remove(fn) # clean up
+  })
+  test_that("tcplPlot works with API data by spid", {
+    expect_no_error(suppressWarnings(tcplPlot(fld = "spid", val = test_api$spid, output = "pdf", verbose = TRUE, flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+    fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+    expect_length(fn, 1) # exactly one file created
+    file.remove(fn) # clean up
+  })
+  test_that("tcplPlot works with API data by dtxsid", {
+    expect_no_error(suppressWarnings(tcplPlot(fld = "dtxsid", val = test_api$dtxsid, output = "pdf", verbose = TRUE, flags = TRUE, multi = TRUE, fileprefix = "temp_tcplPlot")))
+    fn <- stringr::str_subset(list.files(), "^temp_tcplPlot")
+    expect_length(fn, 1) # exactly one file created
+    file.remove(fn) # clean up
+  })
+})
\ No newline at end of file