create_mc_samples: Create a table of parameter values for Monte Carlo
In httk: High-Throughput Toxicokinetics

create_mc_samples

R Documentation

Create a table of parameter values for Monte Carlo

Description

This is the HTTK master function for creating a data table for use with Monte Carlo methods to simulate parameter uncertainty and variabilit. Each column of the output table corresponds to an HTTK model parameter and each row corresponds to a different random draw (for example, different individuals when considering biological variability). This function call three different key functions to simulate parameter parameter uncertainty and/or variability in one of three ways. First parameters can be varied in an uncorrelated manner using truncated normal distributions by the function monte_carlo. Then, physiological parameters can be varied in a correlated manner according to the \insertCitering2017identifying;textualhttk (\Sexpr[results=rd]{tools:::Rd_expr_doi("10.1016/j.envint.2017.06.004")}) httk-pop approach by the function httkpop_mc. Next, both uncertainty and variability of in vitro HTTK parameters can be simulated by the function invitro_mc as described by \insertCitewambaugh2019assessing;textualhttk (\Sexpr[results=rd]{tools:::Rd_expr_doi("10.1093/toxsci/kfz205")}). Finally, tissue-specific partition coefficients are predicted for each draw using the \insertCiteschmitt2008general;textualhttk (\Sexpr[results=rd]{tools:::Rd_expr_doi("10.1016/j.tiv.2007.09.010")}) method as calibrated to in vivo data by \insertCitepearce2017evaluation;textualhttk (\Sexpr[results=rd]{tools:::Rd_expr_doi("10.1007/s10928-017-9548-7")}) and implemented in predict_partitioning_schmitt.

Usage

create_mc_samples(
  chem.cas = NULL,
  chem.name = NULL,
  dtxsid = NULL,
  parameters = NULL,
  samples = 1000,
  species = "Human",
  suppress.messages = FALSE,
  model = "3compartmentss",
  httkpop = TRUE,
  invitrouv = TRUE,
  calcrb2p = TRUE,
  censored.params = list(),
  vary.params = list(),
  return.samples = FALSE,
  tissue = NULL,
  httkpop.dt = NULL,
  invitro.mc.arg.list = NULL,
  adjusted.Funbound.plasma = TRUE,
  adjusted.Clint = TRUE,
  httkpop.generate.arg.list = list(method = "direct resampling"),
  convert.httkpop.arg.list = NULL,
  propagate.invitrouv.arg.list = NULL,
  parameterize.arg.list = NULL,
  Caco2.options = NULL
)

Arguments

`chem.cas`	Chemical Abstract Services Registry Number (CAS-RN) – if parameters is not specified then the chemical must be identified by either CAS, name, or DTXISD
`chem.name`	Chemical name (spaces and capitalization ignored) – if parameters is not specified then the chemical must be identified by either CAS, name, or DTXISD
`dtxsid`	EPA's DSSTox Structure ID (https://comptox.epa.gov/dashboard) – if parameters is not specified then the chemical must be identified by either CAS, name, or DTXSIDs
`parameters`	Parameters from the appropriate parameterization function for the model indicated by argument model
`samples`	Number of samples generated in calculating quantiles.
`species`	Species desired (either "Rat", "Rabbit", "Dog", "Mouse", or default "Human"). Species must be set to "Human" to run httkpop model.
`suppress.messages`	Whether or not to suppress output message.
`model`	Model used in calculation: 'pbtk' for the multiple compartment model,'3compartment' for the three compartment model, '3compartmentss' for the three compartment steady state model, and '1compartment' for one compartment model. This only applies when httkpop=TRUE and species="Human", otherwise '3compartmentss' is used.
`httkpop`	Whether or not to use the \insertCitering2017identifying;textualhttk "httkpop" population generator. Species must be 'Human'.
`invitrouv`	Logical to indicate whether to include in vitro parameters such as intrinsic hepatic clearance rate and fraction unbound in plasma in uncertainty and variability analysis
`calcrb2p`	Logical determining whether or not to recalculate the chemical ratio of blood to plasma
`censored.params`	The parameters listed in censored.params are sampled from a normal distribution that is censored for values less than the limit of detection (specified separately for each parameter). This argument should be a list of sub-lists. Each sublist is named for a parameter in "parameters" and contains two elements: "CV" (coefficient of variation) and "LOD" (limit of detection, below which parameter values are censored. New values are sampled with mean equal to the value in "parameters" and standard deviation equal to the mean times the CV. Censored values are sampled on a uniform distribution between 0 and the limit of detection. Not used with httkpop model.
`vary.params`	The parameters listed in vary.params are sampled from a normal distribution that is truncated at zero. This argument should be a list of coefficients of variation (CV) for the normal distribution. Each entry in the list is named for a parameter in "parameters". New values are sampled with mean equal to the value in "parameters" and standard deviation equal to the mean times the CV. Not used with httkpop model.
`return.samples`	Whether or not to return the vector containing the samples from the simulation instead of the selected quantile.
`tissue`	Desired steady state tissue conentration.
`httkpop.dt`	A data table generated by `httkpop_generate`. This defaults to NULL, in which case `httkpop_generate` is called to generate this table.
`invitro.mc.arg.list`	Additional parameters passed to `invitro_mc`.
`adjusted.Funbound.plasma`	Uses \insertCitepearce2017evaluation;textualhttk lipid binding adjustment for Funbound.plasma when set to TRUE (Default).
`adjusted.Clint`	Uses \insertCitekilford2008hepatocellular;textualhttk hepatocyte incubation binding adjustment for Clint when set to TRUE (Default).
`httkpop.generate.arg.list`	Additional parameters passed to `httkpop_generate`.
`convert.httkpop.arg.list`	Additional parameters passed to the convert_httkpop_* function for the model.
`propagate.invitrouv.arg.list`	Additional parameters passed to model's associated in vitro uncertainty and variability propagation function
`parameterize.arg.list`	Additional parameters passed to the parameterize_* function for the model.
`Caco2.options`	Arguments describing how to handle Caco2 absorption data that are passed to `invitro_mc` and the parameterize_[MODEL] functions. See `get_fbio` for further details.

Details

The Monte Carlo methods used here were recently updated and described by \insertCitebreen2022simulating;textualhttk.

We aim to make any function that uses chemical identifiers (name, CAS, DTXSID) also work if passed a complete vector of parameters (that is, a row from the table generated by this function). This allows the use of Monte Carlo to vary the parameters and therefore vary the function output. Depending on the type of parameters (for example, physiological vs. in vitro measurements) we vary the parameters in different ways with different functions.

Value

A data table where each column corresponds to parameters needed for the specified model and each row represents a different Monte Carlo sample of parameter values.

Author(s)

Caroline Ring, Robert Pearce, and John Wambaugh

References

\insertAllCited

Examples



# We can use the Monte Carlo functions by passing a table
# where each row represents a different Monte Carlo draw of parameters:
p <- create_mc_samples(chem.cas="80-05-7")

# Use data.table for steady-state plasma concentration (Css) Monte Carlo:
calc_mc_css(parameters=p)

# Using the same table gives the same answer:
calc_mc_css(parameters=p)

# Use Css for 1 mg/kg/day for simple reverse toxicokinetics 
# in Vitro-In Vivo Extrapolation to convert 15 uM to mg/kg/day:
15/calc_mc_css(parameters=p, output.units="uM")

# Can do the same with calc_mc_oral_equiv:
calc_mc_oral_equiv(15, parameters=p)

#Generate a population using the virtual-individuals method,
#including 80 females and 20 males,
#including only ages 20-65,
#including only Mexican American and
#Non-Hispanic Black individuals,
#including only non-obese individuals
set.seed(42)
mypop <- httkpop_generate(method = 'virtual individuals',
                          gendernum=list(Female=80,
                          Male=20),
                          agelim_years=c(20,65),
                          reths=c('Mexican American',
                          'Non-Hispanic Black'),
                          weight_category=c('Underweight',
                          'Normal',
                          'Overweight'))
# Including a httkpop.dt argument will overwrite the number of sample and
# the httkpop on/off logical switch:
samps1 <- create_mc_samples(chem.name="bisphenola",
                           httkpop=FALSE,
                           httkpop.dt=mypop)
samps2 <- create_mc_samples(chem.name="bisphenola",
                           httkpop.dt=mypop)
# But we can turn httkpop off altogether if desired:
samps3 <- create_mc_samples(chem.name="bisphenola",
                           httkpop=FALSE)

httk documentation built on Sept. 11, 2024, 9:32 p.m.