# NOT RUN {
########
# Note: For this example we are using a paediatric database that we have including data of
# children from 0 to 19 years old.
########
children <- read.csv("/Users/artemistoumazi/paediatric_data_p3m/children_0_19.csv")
AGE <- children$Age
F_ad <- 0.6
Eg <- 0
Eh <- 0.058
f_abs <- F_ad/((1 - Eh)*(1-Eg))
perc_CYPg <- data.frame("CYP3A4_5" = 1)
perc_CYPh <- data.frame("CYP3A4_5" = 0.7, "CYP1A2" = 0.3)
Fch(AGE, f_abs, Eg, Eh, perc_CYPg, perc_CYPh)
# }
Run the code above in your browser using DataLab