Become an expert in R — Interactive courses, Cheat Sheets, certificates and more!
Get Started for Free

solve_gas_pbtk

solve_gas_pbtk


Description

This function solves for the amounts or concentrations of a chemical in different tissues as functions of time as a result of inhalation exposure.

Usage

solve_gas_pbtk(
  chem.name = NULL,
  chem.cas = NULL,
  dtxsid = NULL,
  parameters = NULL,
  times = NULL,
  days = 10,
  tsteps = 4,
  daily.dose = NULL,
  doses.per.day = NULL,
  dose = NULL,
  dosing.matrix = NULL,
  forcings = NULL,
  exp.start.time = 0,
  exp.conc = 1,
  period = 24,
  exp.duration = 12,
  fcontrol = list(method = "constant", rule = 2, f = 0),
  initial.values = NULL,
  plots = FALSE,
  suppress.messages = FALSE,
  species = "Human",
  output.units = "uM",
  method = "lsoda",
  rtol = 1e-08,
  atol = 1e-12,
  default.to.human = FALSE,
  recalc.blood2plasma = FALSE,
  recalc.clearance = FALSE,
  adjusted.Funbound.plasma = TRUE,
  regression = TRUE,
  restrictive.clearance = T,
  minimum.Funbound.plasma = 1e-04,
  monitor.vars = NULL,
  vmax = 0,
  km = 1,
  exercise = F,
  fR = 12,
  VT = 0.75,
  VD = 0.15,
  ...
)

Arguments

chem.name

Either the chemical name, CAS number, or the parameters must be specified.

chem.cas

Either the chemical name, CAS number, or the parameters must be specified.

dtxsid

EPA's DSSTox Structure ID (https://comptox.epa.gov/dashboard) the chemical must be identified by either CAS, name, or DTXSIDs

parameters

Chemical parameters from parameterize_gas_pbtk (or other bespoke) function, overrides chem.name and chem.cas.

times

Optional time sequence for specified number of days. Dosing sequence begins at the beginning of times.

days

Length of the simulation.

tsteps

The number of time steps per hour.

daily.dose

Total daily dose, mg/kg BW.

doses.per.day

Number of doses per day.

dose

Amount of a single dose, mg/kg BW.

dosing.matrix

Vector of dosing times or a matrix consisting of two columns or rows named "dose" and "time" containing the time and amount, in mg/kg BW, of each dose. With the gas pbtk model, dosing.matrix is set to specify forcing concentrations to the integrator, either in combination with eventdata or on its own.

forcings

Manual input of "forcings" data series argument for ode integrator, defaults to NULL

exp.start.time

Start time in specifying forcing exposure series, default 0.

exp.conc

Specified inhalation exposure concentration for use in assembling "forcings" data series argument for integrator. Defaults to uM, in line with output.units

period

For use in assembling forcing function data series "forcings" argument, specified in hours

exp.duration

For use in assembling forcing function data series 'forcings' argument, specified in hours

fcontrol

List of arguments for finetuning inhalation forcing function in conjunction with existing ode integrator methods

initial.values

Vector containing the initial concentrations or amounts of the chemical in specified tissues with units corresponding to output.units. Defaults are zero.

plots

Plots all outputs if true.

suppress.messages

Whether or not the output message is suppressed.

species

Species desired (either "Rat", "Rabbit", "Dog", "Mouse", or default "Human").

output.units

Desired units (either "mg/L", "mg", "umol", or default "uM").

method

Method used by integrator (deSolve).

rtol

Argument passed to integrator (deSolve).

atol

Argument passed to integrator (deSolve).

default.to.human

Substitutes missing animal values with human values if true (hepatic intrinsic clearance or fraction of unbound plasma).

recalc.blood2plasma

Recalculates the ratio of the amount of chemical in the blood to plasma using the input parameters, calculated with hematocrit, Funbound.plasma, and Krbc2pu.

recalc.clearance

Recalculates the hepatic clearance (Clmetabolism) with new million.cells.per.gliver parameter.

adjusted.Funbound.plasma

Uses adjusted Funbound.plasma when set to TRUE along with partition coefficients calculated with this value.

regression

Whether or not to use the regressions in calculating partition coefficients.

restrictive.clearance

Protein binding not taken into account (set to 1) in liver clearance if FALSE.

minimum.Funbound.plasma

Monte Carlo draws less than this value are set equal to this value (default is 0.0001 – half the lowest measured Fup in our dataset).

monitor.vars

Which variables are returned as a function of time. Defaults value of NULL provides "Cgut", "Cliver", "Cven", "Clung", "Cart", "Crest", "Ckidney", "Cplasma", "Calv", "Cendexh", "Cmixexh", "Cmuc", "Atubules", "Ametabolized", "AUC"

vmax

Michaelis-Menten vmax value in reactions/min

km

Michaelis-Menten concentration of half-maximal reaction velocity in desired output concentration units.

exercise

Logical indicator of whether to simulate an exercise-induced heightened respiration rate

fR

Respiratory frequency (breaths/minute), used especially to adjust breathing rate in the case of exercise. This parameter, along with VT and VD (below) gives another option for calculating Qalv (Alveolar ventilation) in case pulmonary ventilation rate is not known

VT

Tidal volume (L), to be modulated especially as part of simulating the state of exercise

VD

Anatomical dead space (L), to be modulated especially as part of simulating the state of exercise

...

Additional arguments passed to the integrator.

Details

The default dosing scheme involves specifying the start time of exposure, the concentration of gas inhaled, the period of a given assumed cycle of exposure, and the duration of the exposure during that period. Together, these arguments determine the forcings passed to the ODE integrator. The "forcings" can also be specified manually, or effectively turned off by setting exposure concentration to zero, if the user prefers to simulate dosing by other means.

This function solves for the amounts or concentrations in uM of a chemical in different tissues as functions of time based on the dose and dosing frequency.

Note that the model parameters have units of hours while the model output is in days.

Default NULL value for doses.per.day solves for a single dose.

The compartments used in this model are the gut lumen, gut, liver, kidneys, veins, arteries, lungs, and the rest of the body.

The extra compartments include the amounts or concentrations metabolized by the liver and excreted by the kidneys through the tubules.

AUC is the area under the curve of the plasma concentration.

Model parameters are named according to the following convention:

prefix suffic Meaning units
K Partition coefficient for tissue to free plasma \ tab unitless
V Volume L
Q Flow L/h
k Rate 1/h
c Parameter is proportional to body weight 1 / kg for volumes and 1/kg^(3/4) for flows

When species is specified but chemical-specific in vitro data are not available, the function uses the appropriate physiological data (volumes and flows) but default.to.human = TRUE must be used to substitute human fraction unbound, partition coefficients, and intrinsic hepatic clearance.

Value

A matrix of class deSolve with a column for time(in days), each compartment, the area under the curve, and plasma concentration and a row for each time point.

Author(s)

Matt Linakis, John Wambaugh, and Mark Sfeir

References

Linakis, Matthew W., et al. "Development and Evaluation of a High Throughput Inhalation Model for Organic Chemicals", submitted

Pearce, Robert G., et al. "Httk: R package for high-throughput toxicokinetics." Journal of statistical software 79.4 (2017): 1.

Examples

solve_gas_pbtk(chem.name='Pyrene',dose=.5,days = 3,tsteps=2)


out <- solve_gas_pbtk(chem.name='pyrene',exp.conc = 0, doses.per.day = 2,
daily.dose = 3, plots=TRUE,initial.values=c(Aven=20))

out <- solve_gas_pbtk(chem.name = 'pyrene',exp.conc = 3, period = 24,
exp.duration = 6, exercise = TRUE)
                  
params <- parameterize_gas_pbtk(chem.cas="80-05-7")
solve_gas_pbtk(parameters=params)

httk

High-Throughput Toxicokinetics

v2.0.4
GPL-3
Authors
John Wambaugh [aut, cre] (<https://orcid.org/0000-0002-4024-534X>), Robert Pearce [aut] (<https://orcid.org/0000-0003-3168-4049>), Caroline Ring [aut] (<https://orcid.org/0000-0002-0463-1251>), Greg Honda [aut] (<https://orcid.org/0000-0001-7713-9850>), Mark Sfeir [aut], Matt Linakis [aut] (<https://orcid.org/0000-0003-0526-2395>), Sarah Davidson [aut] (<https://orcid.org/0000-0002-2891-9380>), Miyuki Breen [ctb] (<https://orcid.org/0000-0001-8511-4653>), Shannon Bell [ctb], Xiaoqing Chang [ctb] (<https://orcid.org/0000-0003-0752-1848>), Jimena Davis [ctb], James Sluka [ctb] (<https://orcid.org/0000-0002-5901-1404>), Nisha Sipes [ctb] (<https://orcid.org/0000-0003-4203-6426>), Barbara Wetmore [ctb] (<https://orcid.org/0000-0002-6878-5348>), Woodrow Setzer [ctb] (<https://orcid.org/0000-0002-6709-9186>)
Initial release
2021-05-07

We don't support your browser anymore

Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.