params <- c( 
BODYWT=50.563,
MW=201.2,
VOLBLOODC=0.06293,
VOLFATC=0.3036,
VOLBRAINC=0.02661,
VOLLIVERC=0.0211,
VOLRESTC=0.3858,
VTBC=0.05,
CARDOUTPC=316.82,
HCT=0.4067,
FRFATC=0.0707,
FRBRAINC=0.188,
FRLIVC=0.2545,
FRRESTC=0.4863,
PBRAIN=0.5,
PFAT=5.44,
PLIV=1.15,
PREST=0.66,
PRBC=0.78,
FuLIV=0.17,
FuBRN=0.39,
FuRBC=0.25,
FuPLS=0.2,
PAFC=2.435,
PARC=10.26,
PALC=35.5,
PABC=2.74,
PARBC=100.0,
FA=0.3,
FM=0.25,
VKM1C=19.6,
VKM2C=23.7,
KC=0.0428,
UCLNC=0.5,
TRACh=11700000.0,
KiAChB=0.927,
KdAChB=0.01,
KrAChB=2.014,
BACh=462962.0,
KiAChPLS=1.0,
KdAChPLS=0.1,
KrAChPLS=1.0,
PLSACh=1.0,
KiAChRBC=1.854,
KdAChRBC=0.01,
KrAChRBC=2.014,
RBCACh=395740.0,
TRBCh=3660000.0,
KiBChPLS=0.198,
KdBChPLS=0.1,
KrBChPLS=1.189,
PLSBCh=99760.0,
KA=6.5,
BDOSE=0.0,
BREPS=1.0,
BLEN=0.0,
DDOSE=0.0,
VDW=0.68,
DREPS=1.0,
INHDOSE=0.0,
INHTLEN=8.0,
INHDAYS=7.0,
TV=0.723,
DS=0.0965,
RESPR=1228.0,
PPA=1000.0,
DRMDLEN=0.0,
DRMELEN=8.0,
EXPAREAC=1.0,
BSA=1.5087,
RDRMEXPC=3.0,
TSTART=0.0,
TOTDAYS=1.0
 )