Drkcore

20 07 2009 R DMPK Tweet

PK3-5

クリアランス

ProductName ファーマコキネティクス―演習による理解
杉山 雄一,山下 伸二,加藤 基浩
南山堂 / ¥ 6,300 ()
在庫あり。

設問1

CLr = Dose/AUC * fe = Dose/AUC * [排泄量]/Dose = [排泄量]/AUC

> data <- read.csv("/Users/kzfm/PK/pk35a.csv")
> attach(data)
> data
  Dose  AUC     e
a  200  7.3  71.9
b  400 15.3 128.0
c  800 34.3 217.0

> CLr <- e/AUC
> CLr
[1] 9.849315 8.366013 6.326531

> F <- 0.85
> QH <- 1.5
> QR <- 1.2
> GFR <- 0.12
> fb <- 0.2
> Vd <- 100

設問2

> CLtot <- Dose*0.85/AUC
> CLtot
[1] 23.28767 22.22222 19.82507
> CLh <- CLtot - CLr
> CLh
[1] 13.43836 13.85621 13.49854

解答では E = 1-F = CLh/Qhから求めてた。 BAと消化管の吸収性から肝クリアランスの見積もりも可能。

設問3

> data2 <- read.csv("/Users/kzfm/PK/pk35b.csv")
> data2
   ve   conc
a   5  0.194
b  10  0.404
c  20  0.863
d  50  2.480
e 100  5.540
f 200 12.000

> CLtot <- data2[,"ve"]/data2[,"conc"]
> CLtot
[1] 25.77320 24.75248 23.17497 20.16129 18.05054 16.66667

> CLr <- CLtot -13.5
> CLr
[1] 12.273196 11.252475  9.674971  6.661290  4.550542  3.166667

設問4

CLrはGFRと腎尿細管分泌クリアランスの和 CLr = (1-FR)(fb*GFR + CLrs) CLrs = CLr - fb*GFR

> CLrs <- CLr -fb*GFR*60
> CLrs
[1] 10.833196  9.812475  8.234971  5.221290  3.110542  1.726667

設問5

CLrs_uint = CLrs*QR/fb*(QR-CLrs)

> CLrs_uint <- CLrs*QR*60/(fb*(QR*60-CLrs))
> CLrs_uint
[1] 63.75927 56.80385 46.49241 28.14766 16.25495  8.84546

> e <- nls(CLrs_uint ~ Vmax/(Km+data2[,"conc"]*fb),start=list(Vmax=10,Km=10))
> e
Nonlinear regression model
  model:  CLrs_uint ~ Vmax/(Km + data2[, "conc"] * fb) 
   data:  parent.frame() 
   Vmax      Km 
23.2331  0.3267 
 residual sum-of-squares: 0.2010

Number of iterations to convergence: 12 
Achieved convergence tolerance: 2.395e-07 

設問6

省略というかわからん

設問7

省略というかわからん

About

  • もう5年目(wishlistありマス♡)
  • 最近はPythonとDeepLearning
  • 日本酒自粛中
  • ドラムンベースからミニマルまで
  • ポケモンGOゆるめ

Tag

Python Deep Learning javascript chemoinformatics Emacs sake and more...

Ad

© kzfm 2003-2021