params <- c( 
BODYWT=9.3634,
MW=201.2,
VOLBLOODC=0.0798,
VOLFATC=0.376,
VOLBRAINC=0.088,
VOLLIVERC=0.0306,
VOLRESTC=0.225,
VTBC=0.05,
CARDOUTPC=95.53,
HCT=0.359,
FRFATC=0.0876,
FRBRAINC=0.422,
FRLIVC=0.2657,
FRRESTC=0.2244,
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=5.69,
VKM2C=6.399,
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.103,
DS=0.0188,
RESPR=271.0,
PPA=1000.0,
DRMDLEN=0.0,
DRMELEN=1.50,
EXPAREAC=1.0,
BSA=0.4549,
RDRMEXPC=3.0,
TSTART=0.0,
TOTDAYS=1.0
 )