# \donttest{
out = solve_fetal_pbtk(chem.name = 'bisphenol a', daily.dose = 1,
doses.per.day = 3)
# With adjustement to fraction unbound plasma for fetus:
fetal_parms_fup_adjusted <-
parameterize_fetal_pbtk(chem.name = "triclosan")
head(solve_fetal_pbtk(parameters = fetal_parms_fup_adjusted))
# Without adjustement to fraction unbound plasma for fetus:
fetal_parms_fup_unadjusted <-
parameterize_fetal_pbtk(chem.name = "triclosan",
fetal_fup_adjustment = FALSE)
head(solve_fetal_pbtk(parameters = fetal_parms_fup_unadjusted))
# The following will not work because Diquat dibromide monohydrate's
# Henry's Law Constant (-3.912) is higher than that of Acetone (~-4.5):
try(head(solve_fetal_pbtk(chem.cas = "6385-62-2")))
# However, we can turn off checking for phys-chem properties, since we know
# that Diquat dibromide monohydrate is not too volatile:
head(solve_fetal_pbtk(chem.cas = "6385-62-2", physchem.exclude = FALSE))
# Try different ways to call the function:
head(solve_fetal_pbtk(chem.cas="80-05-7"))
head(solve_fetal_pbtk(parameters=parameterize_fetal_pbtk(chem.cas="80-05-7")))
# }
Run the code above in your browser using DataLab