# 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
W <- children$Weight
W_ad <- 70
Cl_ad <- 3.95
F_ad <- 0.6
Eg <- 0
Eh <- 0.058
f_abs <- F_ad/((1 - Eh)*(1-Eg))
fu_ad <- 1
perc_CYPh <- data.frame("CYP3A4_5" = 0.7, "CYP1A2" = 0.3)
Clchu(AGE, W, Cl_ad, W_ad, f_abs, fu_ad, F_ad, Eg, Eh, perc_CYPh)
# }
Run the code above in your browser using DataLab