# Dermal exposure to default dose
out <- solve_dermal_pbtk(chem.name="bisphenola")
# \donttest{
# Dermal exposure to 20 mg/L in 0.01 L of octanol with wash-off after 8 hours
# Since skin permeability happens quickly for bisphenol A, let's only look at 3 days.
dose.conc <- 2 #mg/L
Vvehicle <- 0.01 #L
initial.dose <- dose.conc*Vvehicle
out <- solve_dermal_pbtk(chem.name="bisphenola", initial.dose=initial.dose,
input.units="mg", Vvehicle=0.01,
Kskin2vehicle="octanol", dose.duration=8,
dose.duration.units="hr", days=3)
# Now, try this again with an infinite dose.
out <- solve_dermal_pbtk(chem.name="bisphenola", initial.dose=dose.conc,
input.units="mg/L", Vvehicle=0.01,
Kskin2vehicle="octanol", dose.duration=8,
dose.duration.units="hr", days=3,
InfiniteDose=TRUE)
# Now, try a scenario where 2 mg of chemical in 1 mL of water is applied
# and washed off 8 hours later every day for 5 days
num.days <- 5;
time <- c(0:(num.days-1),(0:(num.days-1)) + 8/24); time <- sort(time) #in days
Vvehicle <- rep(1e-3,length(time)) #convert mL to L
Cvehicle <- rep(c(2,0),num.days)/Vvehicle # convert 2 mg to mg/L
dosing.dermal <- cbind(time,Cvehicle,Vvehicle)
out <- solve_dermal_pbtk(chem.name='bisphenola',
dosing.dermal=dosing.dermal)
parameters <- parameterize_dermal_pbtk(chem.name='bisphenola',skin_depth=1)
parameters$Fskin_exposed <- 0.25
parameters$Vvehicle <- 1
out <- solve_dermal_pbtk(parameters=parameters)
head(solve_dermal_pbtk(chem.name="propylparaben"))
head(solve_dermal_pbtk(chem.cas="94-13-3"))
p <- parameterize_dermal_pbtk(chem.name="propylparaben")
p <- p[sort(names(p))]
# Try to standardize order of variable names
for (this.param in
names(p)[order(toupper(names(p)))]) cat(
paste(this.param,": ",p[[this.param]],"\r\n",sep=""))
head(solve_dermal_pbtk(parameters=p))
# Dermal is the default route:
head(solve_dermal_pbtk(chem.name="bisphenola"))
head(solve_dermal_pbtk(chem.name="bisphenola", route="dermal"))
# But we can also do intravenous (iv):
head(solve_dermal_pbtk(chem.name="bisphenola", route="iv"))
# And oral:
head(solve_dermal_pbtk(chem.name="bisphenola", route="oral"))
# }
Run the code above in your browser using DataLab