幾つかの消化管吸収性評価モデル

ファーマコキネティクス―演習による理解
杉山 雄一,山下 伸二,加藤 基浩
南山堂 / ￥ 6,300 ()
通常2～5週間以内に発送

設問1

logM-logM0 = -ka*tより ka = (logM0 - logM)/t = (log(100)-log(20*3.25))/15

> (log(100)-log(20*3.25))/15
[1] 0.02871886

Peff = ka*V/(2*pi*r*L)

ここで r = sqrt(0.1/pi)

> ka*1/(2*pi*0.178*12.5)/60
[1] 3.423782e-05 # cm/sec

設問2

単回灌流試験。水の吸収、分泌補正の項を 入れて、定常状態の幾つかの平均を取る。

設問3

plotしてみて直線になっているポイントを選択。

> time <- c(0,15,30,45,60)
> conc <- c(0,0.12,0.28,0.52,0.75)
> plot(time,conc)
> mylist = list(time=time[3:5],conc=conc[3:5])
> data <- data.frame(mylist)
> mylist = list(time=time[3:5],conc=conc[3:5]*2.6)
> data <- data.frame(mylist)
> res<-lm(conc ~ time,data)
> res

Call:
lm(formula = conc ~ time, data = data)

Coefficients:
(Intercept)         time  
   -0.48967      0.04073  

Peff = 0.04073/4.2/100 = 9.69762e-05

設問4

省略