calc_fetal_phys {httk} | R Documentation |
Calculate maternal-fetal physiological parameters
Description
This function uses the equations from Kapraun (2019) to calculate chemical-
independent physiological paramreters as a function of gestational age in
weeks.
Usage
calc_fetal_phys(week = 12, ...)
Arguments
week |
Gestational week
|
... |
Additional arguments to parameterize_fetal_pbtk
|
Details
BW=prepregnantBW+BWcubictheta1∗tw+BWcubictheta2∗tw2+BWcubictheta3∗tw3
Wadipose=Wadiposelineartheta0+Wadiposelineartheta1∗tw;
Wfkidney=0.001∗Wfkidneygompertztheta0∗exp(Wfkidneygompertztheta1/Wfkidneygompertztheta2∗(1−exp(−Wfkidneygompertztheta2∗tw)));
Wfthyroid=0.001∗Wfthyroidgompertztheta0∗exp(Wfthyroidgompertztheta1/Wfthyroidgompertztheta2∗(1−exp(−Wfthyroidgompertztheta2∗tw)));
Wfliver=0.001∗Wflivergompertztheta0∗exp(Wflivergompertztheta1/Wflivergompertztheta2∗(1−exp(−Wflivergompertztheta2∗tw)));
Wfbrain=0.001∗Wfbraingompertztheta0∗exp(Wfbraingompertztheta1/Wfbraingompertztheta2∗(1−exp(−Wfbraingompertztheta2∗tw)));
Wfgut=0.001∗Wfgutgompertztheta0∗exp(Wfgutgompertztheta1/Wfgutgompertztheta2∗(1−exp(−Wfgutgompertztheta2∗tw)));
Wflung=0.001∗Wflunggompertztheta0∗exp(Wflunggompertztheta1/Wflunggompertztheta2∗(1−exp(−Wflunggompertztheta2∗tw)));
hematocrit=(hematocritquadratictheta0+hematocritquadratictheta1∗tw+hematocritquadratictheta2∗pow(tw,2))/100;
Rblood2plasma=1−hematocrit+hematocrit∗Krbc2pu∗Fractionunboundplasma;
fhematocrit=(fhematocritcubictheta1∗tw+fhematocritcubictheta2∗pow(tw,2)+fhematocritcubictheta3∗pow(tw,3))/100;
Rfblood2plasma=1−fhematocrit+fhematocrit∗Kfrbc2pu∗Fractionunboundplasmafetus;
fBW=0.001∗fBWgompertztheta0∗exp(fBWgompertztheta1/fBWgompertztheta2∗(1−exp(−fBWgompertztheta2∗tw)));
Vplacenta=0.001∗(Vplacentacubictheta1∗tw+Vplacentacubictheta2∗pow(tw,2)+Vplacentacubictheta3∗pow(tw,3));
Vamnf=0.001∗Vamnflogistictheta0/(1+exp(−Vamnflogistictheta1∗(tw−Vamnflogistictheta2)));
Vplasma=Vplasmamodlogistictheta0/(1+exp(−Vplasmamodlogistictheta1∗(tw−Vplasmamodlogistictheta2)))+Vplasmamodlogistictheta3;
Vrbcs=hematocrit/(1−hematocrit)∗Vplasma;
Vven=venousbloodfraction∗(Vrbcs+Vplasma);
Vart=arterialbloodfraction∗(Vrbcs+Vplasma);
Vadipose=1/adiposedensity∗Wadipose;
Vffmx=1/ffmxdensity∗(BW−Wadipose−(fBW+placentadensity∗Vplacenta+amnfdensity∗Vamnf));
Vallx=Vart+Vven+Vthyroid+Vkidney+Vgut+Vliver+Vlung;
Vrest=Vffmx−Vallx;
Vfart=0.001∗arterialbloodfraction∗fbloodweightratio∗fBW;
Vfven=0.001∗venousbloodfraction∗fbloodweightratio∗fBW;
Vfkidney=1/kidneydensity∗Wfkidney;
Vfthyroid=1/thyroiddensity∗Wfthyroid;
Vfliver=1/liverdensity∗Wfliver;
Vfbrain=1/braindensity∗Wfbrain;
Vfgut=1/gutdensity∗Wfgut;
Vflung=1/lungdensity∗Wflung;
Vfrest=fBW−(Vfart+Vfven+Vfbrain+Vfkidney+Vfthyroid+Vfliver+Vfgut+Vflung);
Qcardiac=24∗(Qcardiaccubictheta0+Qcardiaccubictheta1∗tw+Qcardiaccubictheta2∗pow(tw,2)+Qcardiaccubictheta3∗pow(tw,3));
Qgut=0.01∗(Qgutpercentinitial+(Qgutpercentterminal−Qgutpercentinitial)/term∗tw)∗Qcardiac;
Qkidney=24∗(Qkidneycubictheta0+Qkidneycubictheta1∗tw+Qkidneycubictheta2∗pow(tw,2)+Qkidneycubictheta3∗pow(tw,3));
Qliver=0.01∗(Qliverpercentinitial+(Qliverpercentterminal−Qliverpercentinitial)/term∗tw)∗Qcardiac;
Qthyroid=0.01∗(Qthyroidpercentinitial+(Qthyroidpercentterminal−Qthyroidpercentterminal)/term∗tw)∗Qcardiac;
Qplacenta=24∗Qplacentalineartheta1∗1000∗Vplacenta;
Qadipose=0.01∗(Qadiposepercentinitial+(Qadiposepercentterminal−Qadiposepercentinitial)/term∗tw)∗Qcardiac;
Qrest=Qcardiac−(Qgut+Qkidney+Qliver+Qthyroid+Qplacenta+Qadipose);
Qgfr=60∗24∗0.001∗(Qgfrquadratictheta0+Qgfrquadratictheta1∗tw+Qgfrquadratictheta2∗pow(tw,2));
Qfrvtl=60∗24∗0.001∗Qfrvtllogistictheta0/(1+exp(−Qfrvtllogistictheta1∗(tw−Qfrvtllogistictheta2)));
Qflvtl=60∗24∗0.001∗Qflvtllogistictheta0/(1+exp(−Qflvtllogistictheta1∗(tw−Qflvtllogistictheta2)));
Qfda=60∗24∗0.001∗Qfdalogistictheta0/(1+exp(−Qfdalogistictheta1∗(tw−Qfdalogistictheta2)));
Qfartb=Qflvtl+Qfda;
Qfcardiac=Qfartb;
Qflung=Qfrvtl−Qfda;
Qfplacenta=60∗24∗0.001∗Qfplacentalogistictheta0/(1+exp(−Qfplacentalogistictheta1∗(tw−Qfplacentalogistictheta2)));
Qfdv=60∗24∗0.001∗Qfdvgompertztheta0∗exp(Qfdvgompertztheta1/Qfdvgompertztheta2∗(1−exp(−Qfdvgompertztheta2∗tw)));
Qfgut=Qfgutpercent/Qfnonplacentalpercent∗(1−Qfplacenta/Qfartb)∗Qfartb;
Qfkidney=Qfkidneypercent/Qfnonplacentalpercent∗(1−Qfplacenta/Qfartb)∗Qfartb;
Qfbrain=Qfbrainpercent/Qfnonplacentalpercent∗(1−Qfplacenta/Qfartb)∗Qfartb;
Qfliver=Qfliverpercent/(100−(Qbrainpercent+Qkidneypercent+Qgutpercent))∗(1−(Qfbrainpercent+Qfkidneypercent+Qfgutpercent)/Qfnonplacentalpercent)∗(1−Qfplacenta/Qfartb)∗Qfartb;
Qfthyroid=Qfthyroidpercent/(100−(Qbrainpercent+Qkidneypercent+Qgutpercent))∗(1−(Qfbrainpercent+Qfkidneypercent+Qfgutpercent)/Qfnonplacentalpercent)∗(1−Qfplacenta/Qfartb)∗Qfartb;
Qfrest=Qfcardiac−(Qfplacenta+Qfgut+Qfliver+Qfthyroid+Qfkidney+Qfbrain);
Qfbypass=Qfcardiac−Qflung;
Value
list containing:
BW |
Maternal body weight, kg
|
Wadipose |
Maternal adipose fraction of total weight
|
Wfkidney |
Fetal kidney fraction of total weight
|
Wfthyroid |
Fetal thyroid fraction of total weight
|
Wfliver |
Fetal liver fraction of total weight
|
Wfbrain |
Fetal brain fraction of total weight
|
Wfgut |
Fetal gut fraction of total weight
|
Wflung |
Fetal lung fraction of total weight
|
hematocrit |
Maternal hematocrit fraction of blood
|
Rblood2plasma |
Maternal Rblood2plasma
|
fhematocrit |
Fetal hematocrit fraction of blood
|
Rfblood2plasma |
Fetal Rfblood2plasma
|
fBW |
Fetal body weight, kg
|
Vplacenta |
Volume of Vplacenta, L
|
Vamnf |
Volume of amniotic fluid, L
|
Vplasma |
Maternal volume of plasma, L
|
Vrbcs |
Maternal volume of red blood cells, L
|
Vven |
Maternal volume of venous blood, L
|
Vart |
Maternal volume of arterial blood, L
|
Vadipose |
Maternal volume of adipose, L
|
Vffmx |
Fetal volume ofVffmx, L
|
Vallx |
Vallx, L
|
Vrest |
Maternal volume of rest of body, L
|
Vfart |
Fetal volume of arterial blood, L
|
Vfven |
Fetal volume of venous blood, L
|
Vfkidney |
Fetal volume of kidney, L
|
Vfthyroid |
Fetal volume of thyroid, L
|
Vfliver |
Fetal volume of liver, L
|
Vfbrain |
Fetal volume of brain, L
|
Vfgut |
Fetal volume of gut, L
|
Vflung |
Fetal volume of lung, L
|
Vfrest |
Fetal volume of rest of body, L
|
Qcardiac |
Maternal cardiac output blood flow, L/day
|
Qgut |
Maternal blood flow to gut, L/day
|
Qkidney |
Maternal blood flow to kidney, L/day
|
Qliver |
Maternal blood flow to liver, L/day
|
Qthyroid |
Maternal blood flow to thyroid, L/day
|
Qplacenta |
Maternal blood flow to placenta, L/day
|
Qadipose |
Maternal blood flow to adipose, L/day
|
Qrest |
Maternal blood flow to rest, L/day
|
Qgfr |
Maternal glomerular filtration rate in kidney, L/day
|
Qfrvtl |
Fetal blood flow to right ventricle, L/day
|
Qflvtl |
Fetal blood flow to left ventircle, L/day
|
Qfda |
Fetal blood flow to Qfda, L/day
|
Qfartb |
Fetal blood flow to Qfartb, L/day
|
Qfcardiac |
Fetal cardiac output blood flow, L/day
|
Qflung |
Fetal blood flow to lung, L/day
|
Qfplacenta |
Fetal blood flow to placenta, L/day
|
Qfdv |
Fetal blood flow to Qfdv, L/day
|
Qfgut |
Fetal blood flow to gut, L/day
|
Qfkidney |
Fetal blood flow to kidney, L/day
|
Qfbrain |
Fetal blood flow to brain, L/day
|
Qfliver |
Fetal blood flow to liver, L/day
|
Qfthyroid |
Fetal blood flow to thyroid, L/day
|
Qfrest |
Fetal blood flow to rest, L/day
|
Qfbypass |
Fetal blood flow to Qfbypass, L/day
|
Author(s)
John Wambaugh
References
Kapraun DF, Wambaugh JF, Setzer RW, Judson RS (2019).
“Empirical models for anatomical and physiological changes in a human mother and fetus during pregnancy and gestation.”
PLOS ONE, 14(5), 1-56.
doi:10.1371/journal.pone.0215906.
[Package
httk version 2.3.1
Index]