繰り返し経口投与の続き
設問 4
肝クリアランスと肝血流の大きさから律速を判断。
v = Vmax*[S] / (Km + [S])
肝クリアランスに飽和が見られるから
CLh_int = Vmax/Km * 1/Cu
ここでCu = Cpss * fp
vh = Cb*CLh vr = Cpss*Rb*CLr
設問 5
v=D/t*(F-fe),C=Cpss*fp でMicaehlis-Menten式の形でフィッティング
> data <- read.csv("/Users/kzfm/PK/pk32b.csv")
> data
Dose C v
a 10 0.212 0.308
b 30 0.675 0.850
c 100 2.400 2.420
d 300 7.850 5.750
e 500 13.800 7.920
> attach(data)
> e <- nls(v ~ Vmax*C/(Km+C),start=list(Vmax=10,Km=10))
> e
Nonlinear regression model
model: v ~ Vmax * C/(Km + C)
data: parent.frame()
Vmax Km
15.09 12.59
residual sum-of-squares: 0.01301