params <- c( 
BODYWT=22.899,
MW=201.2,
VOLBLOODC=0.074,
VOLFATC=0.285,
VOLBRAINC=0.0546,
VOLLIVERC=0.0252,
VOLRESTC=0.362,
VTBC=0.05,
CARDOUTPC=187.59,
HCT=0.3703,
FRFATC=0.0599,
FRBRAINC=0.292,
FRLIVC=0.226,
FRRESTC=0.421,
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=16.4,
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.276,
DS=0.0536,
RESPR=817.05,
PPA=1000.0,
DRMDLEN=0.0,
DRMELEN=8.0,
EXPAREAC=1.0,
BSA=0.893,
RDRMEXPC=3.0,
TSTART=0.0,
TOTDAYS=1.0
 )