経口投与量とAUCの関係
設問1
> data <- read.csv("/Users/kzfm/PK/pk8-2.csv")
> data$dose*1000/(data$AUCp_oral*0.8)
[1] 833.3333 1059.3220 2155.1724
設問2
CLtot(iv)は
> 10*1000/(45*0.8)
[1] 277.7778
題意よりCLh = CLtot(iv) さらにEh*Qh = CLhだから
> Eh <- 277.7778/1500
> Eh
[1] 0.1851852
> Foral <- 277.7778/833.3333
> Foral
[1] 0.3333334
> Fa <- Foral/(1-Eh)
> Fa
[1] 0.409091
設問3
Faで考える