params <- c( 
BODYWT=70,
MW=201.2,
VOLBLOODC=0.079,
VOLFATC=0.21,
VOLBRAINC=0.02,
VOLLIVERC=0.026,
VOLRESTC=0.445,
VTBC=0.05,
CARDOUTPC=901,
HCT=0.45,
FRFATC=0.052,
FRBRAINC=0.114,
FRLIVC=0.227,
FRRESTC=0.617,
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=22.0,
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.444,
DS=0.122,
RESPR=325.46,
PPA=1000.0,
DRMDLEN=0.0,
DRMELEN=8.0,
EXPAREAC=1.0,
BSA=1.74,
RDRMEXPC=3.0,
TSTART=0.0,
TOTDAYS=1.0
 )