Drkcore

13052009 R DMPK

ivivc(R)

ivivcというパッケージを発見。PKfitでkelとかVdを求めておけばこれで対話的に色々（というかルーチーンワークが）できるらしい。

demoのflashも用意されている。

****************************************************************************
*                                                                          *
*                                  ivivc                                   *
*                                 v 0.1.4                                  *
*                                                                          *
* In vitro-in vivo correlation (IVIVC) is defined as the correlation       *
* between in vitro drug dissolution and in vivo drug absorption.           *
* This package is used to develop and validate an IVIVC model.             *
* The following steps wii be conducted as follows:                         *
* ->1: Input/Edit In Vivo Absorption Data: IV, Oral solution or IR drug    *
* ->2: Develop an IVIVC Model: Fitting IV, Oral solution or IR drug        *
* ->3: Input/Edit In Vitro Dissoution Data and                             *
*      In Vivo absorption Data: ER drug with Different Release Rates       *
* ->4: Develop an IVIVC Model: Model Dependent Method                      *
* ->5: Evaluate an IVIVC model: Prediction Error                           *
*                                                                          *
*           Please type 'run()' to get started.                            *
*                                                                          *
****************************************************************************

runしてdemoするとなんか一瞬で終わる。

Rでここまでのワークフローを対話的にやらすパッケージってのは自由度が少ない気もするが、あとでまた。

とりあえずPKfitをいじろうと思ってるんだけど、pdfのマニュアルがいい加減すぎるんだよね。

12052009 life 栃木

塔のへつりと大内宿

ゴールデンウィークには渋滞するとわかっていても行かなければいけない場所があったりする。観光の一つや二つ行っとかないと、、、みたいな。

今回は大内宿。塔のへつりから大内宿までなんと3時間半もかかった。普通にいくと30分もかからんような道のりも大内宿の駐車場空き待ちで大渋滞。さすがゴールデンウィーク、おそるべし、藁葺き。

1242044360 1242044368

1242044376 1242044383

そういえば、隣でタクシーのおっちゃんが昔はへつりは通れたんだよみたいな話をしてたので帰ってから調べてみたら塔のへつりの廃道をみつけた。これは面白い。それにしてもあんな道はちょっと勘弁して欲しいなぁ。

大内宿

1242044379 1242044372

白川郷っていったことないんだよなぁ。いってみたい。

12052009 chemoinformatics DMPK

はじめての薬物速度論

はじめて読むならこれがお薦めか。ケモインフォマティクスな僕にとってはある程度数式とか統計の話がくっついていたほうが、知識と照らし合わせながら覚えていけるので分かりやすかった。

はじめての薬物速度論
加藤基浩
南山堂 / ￥ 1,995 ()
在庫あり。

クリアランスは薬物消去能を血液量で表現
AUMCは血漿中濃度に時間をかけたもの
肝クリアランスと肝固有クリアランスの違い

ちょっと7章だけプロットしてみた。

Cp <- function(t){86.22 * exp(-4.55 * t) + 13.63 * exp(-0.438 * t)
Cppo <- function(t){456700/(9128*(4.567-0.438)) * (exp(-0.438 * t) - exp(-4.567 * t))}
par(mfrow = c(2,1))
plot(Cppo,0,10)
plot(Cp,0,10)

po,iv