# \donttest{
params <- parameterize_pbtk(chem.name = 'Bisphenol A')
pop.phys <- httkpop_generate(method = 'virtual individuals',
nsamp = 25000,
agelim_years = c(18, 79),
weight_category = c("Normal"))
pop.params <- create_mc_samples(chem.name = 'Bisphenol A',
model = 'pbtk',
httkpop.dt = pop.phys)
ref.params <- cbind(pop.params,
age_months = pop.phys$age_months)
ts <- get_input_param_timeseries(model = 'pbtk_lifestage',
chem.name = 'Bisphenol A',
initial.params = params,
start.age = 600, # age fifty
days = 365,
ref.params = ref.params)
# }
Run the code above in your browser using DataLab