#-------------------------------------------------------------------------------
# tcplPlotFits: Plot fits based on mc4/5 and mc4_agg
#-------------------------------------------------------------------------------
#' @title Plot summary fits based on fit and dose-response data
#'
#' @description
#' \code{tcplPlotFits} takes the dose-response and fit data and produces
#' summary plot figures.
#'
#' @param dat data.table, level 4 or level 5 data, see details.
#' @param agg data.table, concentration-response aggregate data, see details.
#' @param flg data.table, level 6 data, see details.
#' @param ordr.fitc Logical, should the fits be ordered by fit category?
#' @param browse Logical, should \code{browser()} be called after every plot?
#'
#' @details
#' The data for 'dat', 'agg', and 'flg' should be loaded using the
#' \code{\link{tcplLoadData}} function with the appropriate 'lvl' parameter.
#' See help page for \code{tcplLoadData} for more information.
#'
#' Supplying level 4 data for the 'dat' parameter will result in level 4 plots.
#' Similarly, supp
#'
#' If fits are not ordered by fit category, they will be ordered by chemical
#' ID. Inputs with multiple assay endpoints will first be ordered by assay
#' endpoint ID.
#'
#' @examples
#'
#' ## Store the current config settings, so they can be reloaded at the end
#' ## of the examples
#' conf_store <- tcplConfList()
#' tcplConfDefault()
#'
#' ## tcplPlotFits needs data.tables supplying the concentration/response
#' ## data stored in mc4_agg, as well as the fit information from mc4 or mc5.
#' ## Additionally, tcplPlotFits will take level 6 data from mc6 and add the
#' ## flag information to the plots. The following shows how to make level 6
#' ## plots. Omitting the 'flg' parameter would result in level 5 plots, and
#' ## loading level 4, rather than level 5 data, would result in level 4 plots.
#'
#' l5 <- tcplLoadData(lvl = 5, fld = "aeid", val = 1)
#' l4_agg <- tcplLoadData(lvl = "agg", fld = "aeid", val = 1)
#' l6 <- tcplLoadData(lvl = 6, fld = "aeid", val = 1)
#' \dontrun{
#' pdf(file = "tcplPlotFits.pdf", height = 6, width = 10, pointsize = 10)
#' tcplPlotFits(dat = l5, agg = l4_agg, flg = l6)
#' graphics.off()
#' }
#'
#' ## While it is most likely the user will want to just save all of the plots
#' ## to view in a PDF, the 'browse' parameter can be used to quickly view
#' ## some plots.
#'
#' ## Start by identifying some sample IDs to plot, then call tcplPlotFits with
#' ## a subset of the data. This browse function is admittedly clunky.
#' bpa <- tcplLoadChem(field = "chnm", val = "Bisphenol A")[ , spid]
#' l5_sub <- l5[spid %in% bpa]
#' \dontrun{
#' tcplPlotFits(dat = l5_sub,
#' agg = l4_agg[m4id %in% l5_sub$m4id],
#' browse = TRUE)
#' }
#'
#' ## Reset configuration
#' options(conf_store)
#'
#' @import data.table
#' @export
tcplPlotFits <- function(dat, agg, flg = NULL, ordr.fitc = FALSE,
browse = FALSE) {
## Variable-binding to pass R CMD Check
chid <- chnm <- spid <- aenm <- aeid <- m4id <- fitc <- fval <- NULL
flgo <- mc6_mthd_id <- J <- NULL
if (!is.null(flg) & !"m5id" %in% names(dat)) {
stop("Must supply level 5 data with a non-null 'flg' input.")
}
dat <- tcplPrepOtpt(dat)
dat[is.na(chid), chnm := paste(spid, "(spid not in DB)")]
dat[ , aenm := paste0("AEID", aeid, " (", aenm, ")")]
setkey(dat, m4id)
setkey(agg, m4id)
## Set the plotting order
if (ordr.fitc && "fitc" %in% names(dat)) {
m4ids <- dat[order(aeid, fitc, chid), unique(m4id)]
} else {
m4ids <- dat[order(aeid, chid), unique(m4id)]
}
if (!is.null(flg)) {
if (nrow(flg) > 0) {
flg[is.na(fval), flgo := as.character(mc6_mthd_id)]
flg[!is.na(fval),
flgo := paste0(mc6_mthd_id, " (", signif(fval, 3), ")")]
flg <- flg[ ,
list(flgo = paste(unique(flgo), collapse = "; ")),
by = m4id]
setkey(flg, m4id)
dat <- flg[dat]
} else {
dat[ , flgo := NA]
}
}
for (i in m4ids) {
resp <- agg[J(i), resp]
logc <- agg[J(i), logc]
pars <- as.list(dat[J(i)])
.plotFit(resp = resp, logc = logc, pars = pars)
if (browse) browser(skipCalls = 4)
}
}
#-------------------------------------------------------------------------------
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.