23/03/06 16:30:28.95 7P/oyKRnH.net
用量設定の臨床試験は男女比１：１を想定して補正係数を計算
rm(list=ls())
par(bty='l')
Adjusting_Coef=\(cm,kg,age, male=TRUE,japanese=TRUE,bmi22=22){
LeanBodyMass=\(cm,kg,Male){
Boer=\(H,W,male){ # Heigth(cm),Weight(kg)
ifelse(male,0.407*W+0.267*H-19.2,0.252*W+0.473*H-48.3)
}
James=\(H,W,male){
ifelse(male,1.1*W-128*(W/H)^2,1.07*W-148*(W/H)^2)
}
Humer=\(H,W,male){
ifelse(male,0.35810*W+0.33929*H-29.5336,0.29569*W+0.41813*H-43.2933)
}
sort(c(Boer(cm,kg,Male),James(cm,kg,Male),Humer(cm,kg,Male)))[2]
}
knight=\(cm,kg,age,Japanese=japanese){
N_coef=(150-age)/100 # Knight's age-correction coeeficient
lbm=LeanBodyMass(cm,kg,male) # actual Lean Body Mass
IBW=bmi22*(cm/100)^2 # Ideal Body Weight @ BMI=22
ILBM=LeanBodyMass(cm,IBW,male)/2+LeanBodyMass(cm,IBW,!male)/2
# Ideal Lean Body Mass @ BMI=22
LBM_coef=lbm/ILBM # coef by LBM