data-raw/reer-equations.R
In UBESP-DCTV/equationer: Equations of Energy Requirements
# code to prepare `reer` dataset goes here
library(equationer)
mj2kcal <- 239.006
kj2kcal <- 0.239006
mcal2kcal <- 1000
cal2kcal <- 1/1000
m2cm <- 100
cm2m <- 1/100
reer <- eqs_bag(name = "reer", reference = "Gregori et.al 2019",
# Alemán-Mateo 2006 a [CHECKED \(coef \+ udm\)] -------------------------
eqs(name = "aleman_06", reference = "Alemán-Mateo, H., Salazar, G., Hernández-Triana, M., & Valencia, M. E. (2006). Total energy expenditure, resting metabolic rate and physical activity level in free-living rural elderly men and women from Cuba, Chile and Mexico. European journal of clinical nutrition, 60(11), 1258.",
eq(name = "aleman_06-a", outcome = "rmr", strata = list(sex = "male"),
intercept = (1.6447 + 0.449)*mj2kcal, weight = 0.05714*mj2kcal
),
eq(name = "aleman_06-b", outcome = "rmr", strata = list(sex = "female"),
intercept = 1.6447*mj2kcal, weight = 0.05714*mj2kcal
)
),
# Anjos 2014 a [CHECKED \(coef \+ udm\)] -------------------------
eqs(name = "anjos_14", reference = "Anjos, L. A., Wahrlich, V., & Vasconcellos, M. T. (2014). BMR in a Brazilian adult probability sample: the Nutrition, Physical Activity and Health Survey. Public health nutrition, 17(4), 853-860.",
eq(name = "anjos_14-a", outcome = "rmr", strata = list(sex = "male"),
intercept = -450.5*kj2kcal, weight = 9.99*kj2kcal, height = 7.14, age = -2.79 # l'altezza è in metri, lo converto in cm
),
eq(name = "anjos_14-b", outcome = "rmr", strata = list(sex = "female"),
intercept = -814.3*kj2kcal, weight = 8.95*kj2kcal, height = 8.87, age = -0.70
)
),
# Arciero 1993 a [CHECKED \(coef \+ udm\)] -------------------------
eqs(name = "arciero_93-a", reference = "Arciero, P. J., Goran, M. I., Gardner, A. M., Ades, P. A., Tyzbir, R. S., & Poehlman, E. T. (1993). A practical equation to predict resting metabolic rate in older females. Journal of the American Geriatrics Society, 41(4), 389-395.",
eq(name = "arciero_93-a", outcome = "rmr", strata = list(sex = "female"),
intercept = 143.5, weight = 7.8, height = 4.7, menopausal = -39.5
)
),
# Arciero 1993 b [CHECKED \(coef \+ udm\)] -------------------------
eqs(name = "arciero_93-b", reference = "Arciero, Paul J, Goran, I., Gardner, W., Ades, P. A., Tyzbir, R. S., & Poehlman, E. T. (n.d.). A Practical Equation to Predict Resting Metabolic Rate in Older Men, 8.",
eq(name = "arciero_93-b", outcome = "rmr", strata = list(sex = "male"),
intercept = 1060, weight = 9.7, mean_chest_skinfold = -6.1, age = -1.8, lta = 0.1
)
),
# Bernstein 1983 a [CHECKED \(coef \+ udm\)] -----------------------
eqs(name = "bernstein_83-a", reference = "Bernstein, R. S., Thornton, J. C., Yang, M. U., Wang, J., Redmond, A. M., Pierson Jr, R. N., ... & Van Itallie, T. B. (1983). Prediction of the resting metabolic rate in obese patients. The American journal of clinical nutrition, 37(4), 595-602.",
eq(name = "bernstein_83-a-m", outcome = "rmr", strata = list(sex = "male"),
intercept = -1032, weight = 11.02, height = 10.23, age = -5.8
),
eq(name = "bernstein_83-a-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 844, weight = 7.48, height = -0.42, age = -3
)
),
# Bernstein 1983 b [CHECKED \(coef \+ udm\)] -----------------------
eqs(name = "bernstein_83-b", reference = "Bernstein, R. S., Thornton, J. C., Yang, M. U., Wang, J., Redmond, A. M., Pierson Jr, R. N., ... & Van Itallie, T. B. (1983). Prediction of the resting metabolic rate in obese patients. The American journal of clinical nutrition, 37(4), 595-602.",
eq(name = "bernstein_83-b-m-sa", outcome = "rmr", strata = list(sex = "male"),
intercept = -1079, age = 6.2, body_surface_area = 1372
),
eq(name = "bernstein_83-b-f-sa", outcome = "rmr", strata = list(sex = "female"),
intercept = -53, age = -2.3, body_surface_area = 758
)
),
# Camps 2016 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "camps_16", reference = "Camps, S. G., Wang, N. X., Tan, W. S. K., & Henry, C. J. (2016). Estimation of basal metabolic rate in Chinese: are the current prediction equations applicable? Nutrition Journal, 15(1), 79. https://doi.org/10.1186/s12937-016-0197-2",
eq(name = "camps_16-m", outcome = "bmr", strata = list(sex = "male"),
intercept = (1960 + 828) * kj2kcal, weight = 52.6 * kj2kcal
),
eq(name = "camps_16-f", outcome = "bmr", strata = list(sex = "female"),
intercept = 1960 * kj2kcal, weight = 52.6 * kj2kcal
)
),
# Carrasco 2002 [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "carrasco_02 (age > = 30)", reference = "Carrasco, F., Reyes, E., Nunez, C., Riedemann, K., Rimler, O., Sanchez, G., & Sarrat, G. (2002). [Resting energy expenditure in obese and non-obese Chilean subjects: comparison with predictive equations for the Chilean population]. Revista medica de Chile, 130(1), 51–60.",
eq(name = "carrasco_02_30-m", outcome = "bmr", strata = list(sex = "male", older_29 = TRUE),
intercept = 753, weight = 11.2
),
eq(name = "carrasco_02_30-f", outcome = "bmr", strata = list(sex = "female", older_29 = TRUE),
intercept = 593, weight = 10.9
)
),
# Carrasco 2002 [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "carrasco_02 (18 <= age <= 74)", reference = "Carrasco, F., Reyes, E., Nunez, C., Riedemann, K., Rimler, O., Sanchez, G., & Sarrat, G. (2002). [Resting energy expenditure in obese and non-obese Chilean subjects: comparison with predictive equations for the Chilean population]. Revista medica de Chile, 130(1), 51–60.",
eq(name = "carrasco_02-m", outcome = "bmr", strata = list(sex = "male", age_18_74 = TRUE),
intercept = 864, weight = 11.1, age = -2.5
),
eq(name = "carrasco_02-f", outcome = "bmr", strata = list(sex = "female", age_18_74 = TRUE),
intercept = 716, weight = 10.9, age = -2.85
)
),
# Cioffi 2018 --------------------------
eqs(name = "cioffi", reference = "Cioffi I., Marra M., Speranza E., et al. New predictive equation in a large cohort of italian adults with severe obesity. Eating Weight Disord. 2018;23(5):718.",
eq(name = "cioffi-m", outcome = "ree", strata = list(sex = "male", bmi_class = "obese"),
intercept = 854, weight = 13.4, age = -2.5
),
eq(name = "cioffi-f", outcome = "ree", strata = list(sex = "female", bmi_class = "obese"),
intercept = 931, weight = 14, age = -2.6
)
),
# # Cole 2005 [CHECKED \(coef \+ udm\)] --------------------------
#
# eqs(name = "cole_05", reference = "Cole, T. J., & Henry, C. J. K. (2005). The Oxford Brookes basal metabolic rate database-a reanalysis. Public health nutrition, 8(7a), 1202-1212.",
#
# eq(name = "cole_05", outcome = "bmr", strata = list(sex = "male"),
# intercept = 0.73, weight =
# ),
# eq(name = "cole_05", outcome = "bmr", strata = list(sex = "female"),
# intercept =
# )
#
# ),
# Cunningham 1980 (no age) [CHECKED \(coef \+ udm\)] --------------
eqs(name = "cunningham_80-noage", reference = "Cunningham, J. J. (1980). A reanalysis of the factors influencing basal metabolic rate in normal adults. The American journal of clinical nutrition, 33(11), 2372-2374.",
eq(name = "cunningham_80-noage", outcome = "bmr", strata = list(),
intercept = 500, lbm = 22
)
),
# Cunningham 1980 [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "cunningham_80", reference = "Cunningham, J. J. (1980). A reanalysis of the factors influencing basal metabolic rate in normal adults. The American journal of clinical nutrition, 33(11), 2372-2374.",
eq(name = "cunningham_80", outcome = "bmr", strata = list(),
intercept = 601.2, lbm = 21, age = -2.6
)
),
# De la Cruz 2015 [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "delacruz_15", reference = "",
eq(name = "delacruz_15-m", outcome = "ree", strata = list(sex = "male"),
intercept = 1376.4, weight = 11.1, age = -8
),
eq(name = "delacruz_15-f", outcome = "ree", strata = list(sex = "female"),
intercept = 1376.4 - 308, weight = 11.1, age = -8
)
),
# De Lorenzo 2001 [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "delorenzo_01", reference = "De Lorenzo, A., Tagliabue, A., Andreoli, A., Testolin, G., Comelli, M., & Deurenberg, P. (2001). Measured and predicted resting metabolic rate in Italian males and females, aged 18-59 y. European Journal of Clinical Nutrition, 55(3), 208.",
eq(name = "delorenzo_01-m", outcome = "rmr", strata = list(sex = "male"),
intercept = 487 * kj2kcal, weight = 53.284 * kj2kcal, height = 20.957 * kj2kcal, age = -23.859 * kj2kcal
),
eq(name = "delorenzo_01-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 944 * kj2kcal, weight = 46.322 * kj2kcal, height = 15.744 * kj2kcal, age = -16.66 * kj2kcal
)
),
# De Luis 2016 [CHECKED \(coef \+ udm\)] ---------------------------
eqs(name = "deluis_16", reference = "De Luis, D. A., Aller, R., Izaola, O., & Romero, E. (2006). Prediction equation of resting energy expenditure in an adult Spanish population of obese adult population. Annals of Nutrition and Metabolism, 50(3), 193-196.",
eq(name = "deluis_16-m", outcome = "ree", strata = list(sex = "male"),
intercept = 58.6, weight = 6.1, height = 1023.7*cm2m, age = -9.5
),
eq(name = "deluis_16-f", outcome = "ree", strata = list(sex = "female"),
intercept = 1272.5, weight = 9.8, height = -61.6*cm2m, age = -8.2
)
),
# European Communities 1993 [CHECKED \(coef \+ udm\)] --------------
eqs(name = "eu_93 (age >= 75)", reference = "SCF (Scientific Committee for Food). (1993). Nutrient and energy intakes for the European Community. Reports of the Scientific Committee for Food, 31st Series, 248.",
eq(name = "eu_93_75-m", outcome = "bmr", strata = list(sex = "male", older_74 = TRUE),
intercept = 3.43 * mj2kcal, weight = 0.035 * mj2kcal
),
eq(name = "eu_93_75-f", outcome = "bmr", strata = list(sex = "female", older_74 = TRUE),
intercept = 2.61 * mj2kcal, weight = 0.041 * mj2kcal
)
),
eqs(name = "eu_93 (64 <= age <= 74)", reference = "SCF (Scientific Committee for Food). (1993). Nutrient and energy intakes for the European Community. Reports of the Scientific Committee for Food, 31st Series, 248.",
eq(name = "eu_93_60-74-m", outcome = "bmr", strata = list(sex = "male", age_60_74 = TRUE),
intercept = 2.93 * mj2kcal, weight = 0.0499 * mj2kcal
),
eq(name = "eu_93_60-74-f", outcome = "bmr", strata = list(sex = "female", age_60_74 = TRUE),
intercept = 2.88 * mj2kcal, weight = 0.0386 * mj2kcal
)
),
# Frankenfield 2003 [CHECKED \(coef \+ udm\)] ----------------------
eqs(name = "frankenfield_03", reference = "Frankenfield, D. C., Rowe, W. A., Smith, J. S., & Cooney, R. N. (2003). Validation of several established equations for resting metabolic rate in obese and nonobese people. Journal of the American Dietetic Association, 103(9), 1152-1159.",
eq(name = "frankenfield_m", outcome = "rmr", strata = list(sex = "male", bmi_class = "obese"),
intercept = 66 , adjusted_weight = 13.75, height = 5, age = -6.76
),
eq(name = "frankenfield_f", outcome = "rmr", strata = list(sex = "female", bmi_class = "obese"),
intercept = 655, adjusted_weight = 9.56, height = 1.85, age = -4.68
)
),
## adjusted weight lo calcolo Adjusted_weight= [(actual body weight - ideal weight)x0.25]+ideal weight
## deal Body Weight (in kilograms) = 45.5 kg + 2.2 kg for each inch over 5 feet. If the wrist is 7 inches,
## the IBW remains the way it is. However, if the wrist size is more or less than 7 inches, you add or
## subtract 10% of ideal body weight respectively.
# Frankenfield 2013-a [CHECKED \(coef \+ udm\)] --------------------
eqs(name = "frankenfield_13-a", reference = "Frankenfield, D. C. (2013). Bias and accuracy of resting metabolic rate equations in non-obese and obese adults. Clinical nutrition, 32(6), 976-982.",
eq(name = "frankenfield_13-a-m-o", outcome = "rmr", strata = list(sex = "male", bmi_class = "obese"),
intercept = 440 + 244, weight = 10, height = 3, age = -5
),
eq(name = "frankenfield_13-a-m-no", outcome = "rmr", strata = list(sex = "male", bmi_class = "normal weight"),
intercept = 454 + 207, weight = 10, height = 3, age = -5
),
eq(name = "frankenfield_13-a-f-o", outcome = "rmr", strata = list(sex = "female", bmi_class = "obese"),
intercept = 440, weight = 10, height = 3, age = -5
),
eq(name = "frankenfield_13-a-f-no", outcome = "rmr", strata = list(sex = "female", bmi_class = "normal weight"),
intercept = 454, weight = 10, height = 3, age = -6
)
),
# Frankenfield 2013-b [CHECKED \(coef \+ udm\)] --------------------
eqs(name = "frankenfield_13-b", reference = "Frankenfield, D. C. (2013). Bias and accuracy of resting metabolic rate equations in non-obese and obese adults. Clinical nutrition, 32(6), 976-982.",
eq(name = "frankenfield_13-b-m-no", outcome = "rmr", strata = list(sex = "male", bmi_class = "obese"),
intercept = 865 + 274, weight = 10, age = -5
),
eq(name = "frankenfield_13-b-m-o", outcome = "rmr", strata = list(sex = "male", bmi_class = "normal weight"),
intercept = 838 + 230, weight = 11, age = -6
),
eq(name = "frankenfield_13-b-f-no", outcome = "rmr", strata = list(sex = "female", bmi_class = "obese"),
intercept = 865, weight = 10, age = -5
),
eq(name = "frankenfield_13-b-f-o", outcome = "rmr", strata = list(sex = "female", bmi_class = "normal weight"),
intercept = 838, weight = 11, age = 6
)
),
# Fredrix 1990 [CHECKED \(coef \+ udm\)] ---------------------------
eqs(name = "fredrix_90", reference = "Fredrix, E. W., Soeters, P. B., Deerenberg, I. M., Kester, A. D., von Meyenfeldt, M. F., & Saris, W. H. (1990). Resting and sleeping energy expenditure in the elderly. European Journal of Clinical Nutrition, 44(10), 741–747.",
eq(name = "fredrix_90-f", outcome = "ree", strata = list(sex = "male"),
intercept = (1641 - 203), weight = 10.7, age = -9
),
eq(name = "fredrix_90-m", outcome = "ree", strata = list(sex = "female"),
intercept = (1641 - 2*203), weight = 10.7, age = -9
)
),
# Freni 2000-w [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "freni_00-w", reference = "Freni, S. C., Lewis, S. M., Mayhugh, M. A., Jairaj, K., Arani, R. B., Turturro, A., & Hart, R. W. (2000). Improved equations for estimating the resting metabolic rate. Human and Ecological Risk Assessment, 6(6), 1039-1054.",
eq(name = "freni_00-w-m", outcome = "ree", strata = list(sex = "male"),
intercept = 635.8, weight = 12.98
),
eq(name = "freni_00-w-f", outcome = "ree", strata = list(sex = "female"),
intercept = 681.5, weight = 9.16
)
),
# Freni 2000-wa [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "freni_00-wa", reference = "Freni, S. C., Lewis, S. M., Mayhugh, M. A., Jairaj, K., Arani, R. B., Turturro, A., & Hart, R. W. (2000). Improved equations for estimating the resting metabolic rate. Human and Ecological Risk Assessment, 6(6), 1039-1054.",
eq(name = "freni_00-wa-m", outcome = "ree", strata = list(sex = "male"),
intercept = 1007.5, weight = 12.48, age = -7.84
),
eq(name = "freni_00-wa-f", outcome = "ree", strata = list(sex = "female"),
intercept = 785.2, weight = 9.36, age = -2.48
)
),
# Freni 2000-was [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "freni_00-was", reference = "Freni, S. C., Lewis, S. M., Mayhugh, M. A., Jairaj, K., Arani, R. B., Turturro, A., & Hart, R. W. (2000). Improved equations for estimating the resting metabolic rate. Human and Ecological Risk Assessment, 6(6), 1039-1054.",
eq(name = "freni_00-was-1-m", outcome = "ree", strata = list(sex = "male", smoke = FALSE),
intercept = 1002.8, weight = 12.15, age = -7.35
),
eq(name = "freni_00-was-2-m", outcome = "ree", strata = list(sex = "male", smoke = TRUE),
intercept = 1002.8 + 154.56, weight = 12.15, age = -7.35
),
eq(name = "freni_00-was-1-f", outcome = "ree", strata = list(sex = "female", smoke = FALSE),
intercept = 771.1, weight = 9.95, age = -2.58
),
eq(name = "freni_00-was-2-f", outcome = "ree", strata = list(sex = "female", smoke = TRUE),
intercept = 771.1 + 110.54, weight = 9.95, age = -2.58
)
),
# Freni 2000-wasbp [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "freni_00-wasbp", reference = "Freni, S. C., Lewis, S. M., Mayhugh, M. A., Jairaj, K., Arani, R. B., Turturro, A., & Hart, R. W. (2000). Improved equations for estimating the resting metabolic rate. Human and Ecological Risk Assessment, 6(6), 1039-1054.",
eq(name = "freni_00-wasbp-1", outcome = "ree", strata = list(sex = "male", smoke = TRUE),
intercept = 687.2 + 162.00, weight = 11.08, age = -6.84, blood_pressure_gradient = 7.48
),
eq(name = "freni_00-wasbp-2", outcome = "ree", strata = list(sex = "male", smoke = FALSE),
intercept = 635.8, weight = 12.48, age = 7.84, blood_pressure_gradient = 7.48
),
eq(name = "freni_00-wasbp-1-f", outcome = "ree", strata = list(sex = "female", smoke = TRUE),
intercept = 711.4 + 112.56, weight = 9.15, age = -3.88, blood_pressure_gradient = 3.07
),
eq(name = "freni_00-wasbp-2-f", outcome = "ree", strata = list(sex = "female", smoke = FALSE),
intercept = 711.4, weight = 9.15, age = -3.88, blood_pressure_gradient = 3.07
)
),
# Freni 2000-wasbpm [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "freni_00-wasbpm-m", reference = "Freni, S. C., Lewis, S. M., Mayhugh, M. A., Jairaj, K., Arani, R. B., Turturro, A., & Hart, R. W. (2000). Improved equations for estimating the resting metabolic rate. Human and Ecological Risk Assessment, 6(6), 1039-1054.",
eq(name = "freni_00-wasbpm-1-m", outcome = "ree", strata = list(sex = "male", smoke = TRUE, race = "black", meal = "fasting"),
intercept = 1138.2 + 228.62, weight = 11.44, age = -7.13, blood_pressure_gradient = 5.79, hour = -67.85
),
eq(name = "freni_00-wasbpm-2-m", outcome = "ree", strata = list(sex = "male", smoke = TRUE, race = "white", meal = "fasting"),
intercept = 1138.2 + 137.93 + 228.62, weight = 11.44, age = -7.13, blood_pressure_gradient = 5.79, hour = -67.85
),
eq(name = "freni_00-wasbpm-3-m", outcome = "ree", strata = list(sex = "male", smoke = TRUE, race = "white", meal = "breakfast prior to calorimetry"),
intercept = 1138.2 + 137.93 + 228.62 + 163.923, weight = 11.44, age = -7.13, blood_pressure_gradient = 5.79, hour = -67.85
),
eq(name = "freni_00-wasbpm-4-m", outcome = "ree", strata = list(sex = "male", smoke = TRUE, race = "black", meal = "breakfast prior to calorimetry"),
intercept = 1138.2 + 228.62 + 163.923, weight = 11.44, age = -7.13, blood_pressure_gradient = 5.79, hour = -67.85
),
eq(name = "freni_00-wasbpm-5-m", outcome = "ree", strata = list(sex = "male", smoke = FALSE, race = "black", meal = "fasting"),
intercept = 1138.2, weight = 11.44, age = -7.13, blood_pressure_gradient = 5.79, hour = -67.85
),
eq(name = "freni_00-wasbpm-6-m", outcome = "ree", strata = list(sex = "male", smoke = FALSE, race = "white", meal = "fasting"),
intercept = 1138.2 + 137.93, weight = 11.44, age = -7.13, blood_pressure_gradient = 5.79, hour = -67.85
),
eq(name = "freni_00-wasbpm-7-m", outcome = "ree", strata = list(sex = "male", smoke = FALSE, race = "white", meal = "breakfast prior to calorimetry"),
intercept = 1138.2 + 137.93 + 163.923, weight = 11.44, age = -7.13, blood_pressure_gradient = 5.79, hour = -67.85
),
eq(name = "freni_00-wasbpm-8-m", outcome = "ree", strata = list(sex = "male", smoke = FALSE, race = "black", meal = "breakfast prior to calorimetry"),
intercept = 1138.2 + 163.923, weight = 11.44, age = -7.13, blood_pressure_gradient = 5.79, hour = -67.85
)
),
eqs(name = "freni_00-wasbpm-f", reference = "Freni, S. C., Lewis, S. M., Mayhugh, M. A., Jairaj, K., Arani, R. B., Turturro, A., & Hart, R. W. (2000). Improved equations for estimating the resting metabolic rate. Human and Ecological Risk Assessment, 6(6), 1039-1054.",
eq(name = "freni_00-wasbpm-1-f", outcome = "ree", strata = list(sex = "female", smoke = TRUE, race = "black"),
intercept = -1492.0 + 81.00, weight = 9.58, age = -3.55, blood_pressure_gradient = 1.94, pulse = 4.19, body_temperature = 51.93
),
eq(name = "freni_00-wasbpm-2-f", outcome = "ree", strata = list(sex = "female", smoke = TRUE, race = "white"),
intercept = -1492.0 + 78.31 + 81.00, weight = 9.58, age = -3.55, blood_pressure_gradient = 1.94, pulse = 4.19, body_temperature = 51.93
),
eq(name = "freni_00-wasbpm-5-f", outcome = "ree", strata = list(sex = "female", smoke = FALSE, race = "black"),
intercept = -1492.0, weight = 9.58, age = -3.55, blood_pressure_gradient = 1.94, pulse = 4.19, body_temperature = 51.93
),
eq(name = "freni_00-wasbpm-6-f", outcome = "ree", strata = list(sex = "female", smoke = FALSE, race = "white"),
intercept = -1492.0 + 78.31, weight = 9.58, age = -3.55, blood_pressure_gradient = 1.94, pulse = 4.19, body_temperature = 51.93
)
),
# Gaillard 2008-a [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "gaillard_08-a", reference = "Gaillard, C., Alix, E., Sallé, A., Berrut, G., & Ritz, P. (2008). A practical approach to estimate resting energy expenditure in frail elderly people. The Journal of Nutrition Health and Aging, 12(4), 277.",
eq(name = "gaillard_08-a-bmig21", outcome = "ree", strata = list(bmi_greater_21 = TRUE),
intercept = 0, weight = 18.84
),
eq(name = "gaillard_08-a-nbmig21", outcome = "ree", strata = list(bmi_greater_21 = FALSE),
intercept = 0, weight = 22.29
)
),
# Gaillard 2008-b [CHECKED \(coef \+ udm\)] ------------------------
#
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
# NOTA: IL WEIGHT ERA CON SEGNO "MENO" MA PORTA A RISULTATI INVEROSIMILI (OLTRE CHE CONTRARI SIA ALL'INTUIZIONE CHE A TUTTE LE LORO ALTRE STESSE EQUAZIONI... ABBIAMO MESSO IL PIÙ E I RISULTATI SEMBRANO RAGIONEVOLI, DA COPNTATTARE gAILLARD PER CONFERMA)
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
eqs(name = "gaillard_08-b", reference = "Gaillard, C., Alix, E., Sallé, A., Berrut, G., & Ritz, P. (2008). A practical approach to estimate resting energy expenditure in frail elderly people. The Journal of Nutrition Health and Aging, 12(4), 277.",
eq(name = "gaillard_08-b", outcome = "ree", strata = list(),
intercept = 82.6, weight = 9.5, height = 6.5, age = -6.1
)
),
# Gaillard 2008-c [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "gaillard_08-c", reference = "Gaillard, C., Alix, E., Sallé, A., Berrut, G., & Ritz, P. (2008). A practical approach to estimate resting energy expenditure in frail elderly people. The Journal of Nutrition Health and Aging, 12(4), 277.",
eq(name = "gaillard_08-c", outcome = "ree", strata = list(),
intercept = 497, weight = 11.6
)
),
# Ganpule 2007 [CHECKED \(coef \+ udm\)] ---------------------------
eqs(name = "ganpule_07", reference = "Ganpule, A. A., Tanaka, S., Ishikawa-Takata, K., & Tabata, I. (2007). Interindividual variability in sleeping metabolic rate in Japanese subjects. European Journal of Clinical Nutrition, 61(11), 1256.",
eq(name = "ganpule_07-m", outcome = "rmr", strata = list(sex = "male", ethnicity = "japanese"),
intercept = 0.1238*mj2kcal, weight = 0.0481*mj2kcal, height = 0.0234*mj2kcal, age = -0.0138*mj2kcal
),
eq(name = "ganpule_07-f", outcome = "rmr", strata = list(sex = "female", ethnicity = "japanese"),
intercept = (0.1238 - 0.5473)*mj2kcal, weight = 0.0481*mj2kcal, height = 0.0234*mj2kcal, age = -0.0138*mj2kcal
)
),
# Gougeon 2002 [CHECKED \(coef \+ udm\)] ---------------------------
eqs(name = "gougeon_02", reference = "Gougeon, R., Lamarche, M., Yale, J. F., & Venuta, T. (2002). The prediction of resting energy expenditure in type 2 diabetes mellitus is improved by factoring for glycemia. International journal of obesity, 26(12), 1547.",
eq(name = "gougeon_02", outcome = "rmr", strata = list(sex = "male", ethnicity = "japanese"), # FPG = Fasting plasma glucose in mM, HC = Hip Circumference
intercept = 4044, weight = 79, fasting_plasma_glucose = 78, hip_circumference = -43
)
),
# Harris Benedict 1918 [CHECKED \(coef \+ udm\)] -------------------
eqs(name = "harris_benedict_918", reference = "Harris, J. A., & Benedict, F. G. (1918). A biometric study of human basal metabolism. Proceedings of the National Academy of Sciences of the United States of America, 4(12), 370.",
eq(name = "harris_benedict_918-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 655.0955, weight = 9.5634, height = 1.8496, age = -4.6756
),
eq(name = "harris_benedict_918-m", outcome = "rmr", strata = list(sex = "male"),
intercept = 66.4730, weight = 13.7516, height = 5.0033, age = -6.7550
)
),
# Henry 2005 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "henry_05-a", reference = "Henry, C. J. K. (2005). Basal metabolic rate studies in humans: measurement and development of new equations. Public health nutrition, 8(7a), 1133-1152.",
eq(name = "henry_05-a-m", outcome = "rmr", strata = list(sex = "male", older_60 = TRUE),
intercept = 514, weight = 13.5
),
eq(name = "henry_05-a-f", outcome = "rmr", strata = list(sex = "female", older_60 = TRUE),
intercept = 569, weight = 10.1
)
),
# Henry 2005 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "henry_05-b", reference = "Henry, C. J. K. (2005). Basal metabolic rate studies in humans: measurement and development of new equations. Public health nutrition, 8(7a), 1133-1152.",
eq(name = "henry_05-b-m", outcome = "rmr", strata = list(sex = "male", age_60_70 = TRUE),
intercept = 567, weight = 13.0
),
eq(name = "henry_05-b-f", outcome = "rmr", strata = list(sex = "female", age_60_70 = TRUE),
intercept = 572, weight = 10.2
)
),
# Henry 2005 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "henry_05-c", reference = "Henry, C. J. K. (2005). Basal metabolic rate studies in humans: measurement and development of new equations. Public health nutrition, 8(7a), 1133-1152.",
eq(name = "henry_05-c-m", outcome = "rmr", strata = list(sex = "male", older_70 = TRUE),
intercept = 481, weight = 13.7
),
eq(name = "henry_05-c-f", outcome = "rmr", strata = list(sex = "female", older_70 = TRUE),
intercept = 577, weight = 10.0
)
),
# Huang 2014 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "huang_14", reference = "Huang, K. C., Kormas, N., Steinbeck, K., Loughnan, G., & Caterson, I. D. (2004). Resting metabolic rate in severely obese diabetic and nondiabetic subjects. Obesity research, 12(5), 840-845.",
eq(name = "huang_14-m-d", outcome = "rmr", strata = list(sex = "male", diabetic = TRUE, bmi_class = "obese"),
intercept = (71.767 + 257.293 + 145.959), age = -2.337, height = 4.132, weight = 9.996
),
eq(name = "huang_14-m-nd", outcome = "rmr", strata = list(sex = "male", diabetic = FALSE, bmi_class = "obese"),
intercept = (71.767 + 257.293 ), age = -2.337, height = 4.132, weight = 9.996
),
eq(name = "huang_14-f-nd", outcome = "rmr", strata = list(sex = "female", diabetic = FALSE, bmi_class = "obese"),
intercept = (71.767 ), age = -2.337, height = 4.132, weight = 9.996
),
eq(name = "huang_14-f-d", outcome = "rmr", strata = list(sex = "female", diabetic = TRUE, bmi_class = "obese"),
intercept = (71.767 + 145.959), age = -2.337, height = 4.132, weight = 9.996
)
),
# Hedayati 2011 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "hedayati_11-a", reference = "Hedayati, K. K., & Dittmar, M. (2011). Body circumferences are predictors of weight adjusted resting energy expenditure in older people. The journal of nutrition, health & aging, 15(10), 803-808.",
eq(name = "hedayati_11-m", outcome = "rmr", strata = list(sex = "male"),
intercept = 41.567, abdomen_circ = -0.226
)
),
eqs(name = "hedayati_11-b", reference = "Hedayati, K. K., & Dittmar, M. (2011). Body circumferences are predictors of weight adjusted resting energy expenditure in older people. The journal of nutrition, health & aging, 15(10), 803-808.",
eq(name = "hedayati_11-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 46.155, hip_circumference = -0.273
)
),
eqs(name = "hedayati_11-c", reference = "Hedayati, K. K., & Dittmar, M. (2011). Body circumferences are predictors of weight adjusted resting energy expenditure in older people. The journal of nutrition, health & aging, 15(10), 803-808.",
eq(name = "hedayati_11-f-nd", outcome = "rmr", strata = list(sex = "female", diabetic = FALSE, bmi_class = "obese"),
intercept = 69.865, hip_circumference = -0.229, height = -0.173 * m2cm
)
),
eqs(name = "hedayati_11-d", reference = "Hedayati, K. K., & Dittmar, M. (2011). Body circumferences are predictors of weight adjusted resting energy expenditure in older people. The journal of nutrition, health & aging, 15(10), 803-808.",
eq(name = "hedayati_11-f-d", outcome = "rmr", strata = list(sex = "female", diabetic = TRUE, bmi_class = "obese"),
intercept = 68.143, hip_circumference = -0.025, height = -0.210 * m2cm, bmi = -0.519
)
),
# Ikeda 2013 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "ikeda_13", reference = "Ikeda, K., Fujimoto, S., Goto, M., Yamada, C., Hamasaki, A., Ida, M., ... & Inagaki, N. (2013). A new equation to estimate basal energy expenditure of patients with diabetes. Clinical nutrition, 32(5), 777-782.",
eq(name = "ikeda_13-m", outcome = "bee", strata = list(sex = "male", diabetic = TRUE),
intercept = (750 + 125), weight = 10, age = -3
),
eq(name = "ikeda_13-f", outcome = "bee", strata = list(sex = "female", diabetic = TRUE),
intercept = 750, weight = 10, age = -3
)
),
# IOM 2005 [CHECKED \(coef \+ udm\)] -------------------------------
eqs(name = "iom_05-am", reference = "Institute of Medicine (U.S.), & Institute of Medicine (U.S.) (Eds.). (2005). Dietary reference intakes for energy, carbohydrate, fiber, fat, fatty acids, cholesterol, protein, and amino acids. Washington, D.C: National Academies Press.",
eq(name = "iom_05-am-n-s", outcome = "eer", strata = list(sex = "male", bmi_class = "normal weight", pal = "sedentary"),
intercept = 661.8, age = -9.53, weight = 15.91, height = 539.6 * cm2m
),
eq(name = "iom_05-af-n-s", outcome = "eer", strata = list(sex = "female", bmi_class = "normal weight", pal = "sedentary"),
intercept = 354.1, age = -6.91, weight = 9.36, height = 726 * cm2m
),
eq(name = "iom_05-am-ow-s", outcome = "eer", strata = list(sex = "male", bmi_class = "overweight", pal = "sedentary"),
intercept = 1085.6, age = -10.08, weight = 13.7, height = 416 * cm2m
),
eq(name = "iom_05-af-ow-s", outcome = "eer", strata = list(sex = "female", bmi_class = "overweight", pal = "sedentary"),
intercept = 447.6, age = -7.95, weight = 11.4, height = 619 * cm2m
),
eq(name = "iom_05-am-n-l", outcome = "eer", strata = list(sex = "male", bmi_class = "normal weight", pal = "low-active"),
intercept = 661.8, age = -9.53, weight = 15.91 * 1.11, height = 539.6 * cm2m
),
eq(name = "iom_05-af-n-l", outcome = "eer", strata = list(sex = "female", bmi_class = "normal weight", pal = "low-active"),
intercept = 354.1, age = -6.91, weight = 9.36 * 1.12, height = 726 * cm2m
),
eq(name = "iom_05-am-ow-l", outcome = "eer", strata = list(sex = "male", bmi_class = "overweight", pal = "low-active"),
intercept = 1085.6, age = -10.08, weight = 13.7 * 1.11, height = 416 * cm2m
),
eq(name = "iom_05-af-ow-l", outcome = "eer", strata = list(sex = "female", bmi_class = "overweight", pal = "low-active"),
intercept = 447.6, age = -7.95, weight = 11.4 * 1.12, height = 619 * cm2m
),
eq(name = "iom_05-am-n-a", outcome = "eer", strata = list(sex = "male", bmi_class = "normal weight", pal = "active"),
intercept = 661.8, age = -9.53, weight = 15.91 * 1.25, height = 539.6 * cm2m
),
eq(name = "iom_05-af-n-a", outcome = "eer", strata = list(sex = "female", bmi_class = "normal weight", pal = "active"),
intercept = 354.1, age = -6.91, weight = 9.36 * 1.27, height = 726 * cm2m
),
eq(name = "iom_05-am-ow-a", outcome = "eer", strata = list(sex = "male", bmi_class = "overweight", pal = "active"),
intercept = 1085.6, age = -10.08, weight = 13.7 * 1.25, height = 416 * cm2m
),
eq(name = "iom_05-af-ow-a", outcome = "eer", strata = list(sex = "female", bmi_class = "overweight", pal = "active"),
intercept = 447.6, age = -7.95, weight = 11.4 * 1.27, height = 619 * cm2m
),
eq(name = "iom_05-am-n-va", outcome = "eer", strata = list(sex = "male", bmi_class = "normal weight", pal = "very-active"),
intercept = 661.8, age = -9.53, weight = 15.91 * 1.48, height = 539.6 * cm2m
),
eq(name = "iom_05-af-n-va", outcome = "eer", strata = list(sex = "female", bmi_class = "normal weight", pal = "very-active"),
intercept = 354.1, age = -6.91, weight = 9.36 * 1.45, height = 726 * cm2m
),
eq(name = "iom_05-am-ow-va", outcome = "eer", strata = list(sex = "male", bmi_class = "overweight", pal = "very-active"),
intercept = 1085.6, age = -10.08, weight = 13.7 * 1.45, height = 416 * cm2m
),
eq(name = "iom_05-af-ow-va", outcome = "eer", strata = list(sex = "female", bmi_class = "overweight", pal = "very-active"),
intercept = 447.6, age = -7.95, weight = 11.4 * 1.45, height = 619 * cm2m
)
),
# IOM 2005-b [CHECKED \(coef \+ udm\)] -------------------------------
eqs(name = "iom_05-bm-a", reference = "Institute of Medicine (U.S.), & Institute of Medicine (U.S.) (Eds.). (2005). Dietary reference intakes for energy, carbohydrate, fiber, fat, fatty acids, cholesterol, protein, and amino acids. Washington, D.C: National Academies Press.",
eq(name = "iom_05-m-n-s", outcome = "eer", strata = list(sex = "male", bmi_class = "normal weight"),
intercept = 204, age = -4, weight = 11.69, height = 450.5*cm2m
),
eq(name = "iom_05-f-n-s", outcome = "eer", strata = list(sex = "female", bmi_class = "normal weight"),
intercept = 255, age = -2.35, weight = 9.39, height = 361.6*cm2m
)
),
eqs(name = "iom_05-bm-b", reference = "Institute of Medicine (U.S.), & Institute of Medicine (U.S.) (Eds.). (2005). Dietary reference intakes for energy, carbohydrate, fiber, fat, fatty acids, cholesterol, protein, and amino acids. Washington, D.C: National Academies Press.",
eq(name = "iom_05-m-ow-s", outcome = "eer", strata = list(sex = "male"),
intercept = 293, age = -3.8, weight = 10.12, height = 456.4*cm2m
),
eq(name = "iom_05-f-ow-s", outcome = "eer", strata = list(sex = "female"),
intercept = 247, age = -2.67, weight = 8.6, height = 401.4*cm2m
)
),
eqs(name = "iom_05-bm-c", reference = "Institute of Medicine (U.S.), & Institute of Medicine (U.S.) (Eds.). (2005). Dietary reference intakes for energy, carbohydrate, fiber, fat, fatty acids, cholesterol, protein, and amino acids. Washington, D.C: National Academies Press.",
eq(name = "iom_05-m-n-l", outcome = "eer", strata = list(sex = "male", bmi_class = "normal weight", pal = "low-active"),
intercept = 661.8, age = -9.53, weight = 15.91 * 1.11, height = 539.6*cm2m
),
eq(name = "iom_05-f-n-l", outcome = "eer", strata = list(sex = "female", bmi_class = "normal weight", pal = "low-active"),
intercept = 354.1, age = -6.91, weight = 9.36 * 1.11, height = 726*cm2m
),
eq(name = "iom_05-m-ow-l", outcome = "eer", strata = list(sex = "male", bmi_class = "overweight", pal = "low-active"),
intercept = 1085.6, age = -10.08, weight = 13.7 * 1.11, height = 416*cm2m
),
eq(name = "iom_05-f-ow-l", outcome = "eer", strata = list(sex = "female", bmi_class = "overweight", pal = "low-active"),
intercept = 447.6, age = -7.95, weight = 11.4 * 1.11, height = 619*cm2m
),
eq(name = "iom_05-m-n-a", outcome = "eer", strata = list(sex = "male", bmi_class = "normal weight", pal = "active"),
intercept = 661.8, age = -9.53, weight = 15.91 * 1.25, height = 539.6*cm2m
),
eq(name = "iom_05-f-n-a", outcome = "eer", strata = list(sex = "female", bmi_class = "normal weight", pal = "active"),
intercept = 354.1, age = -6.91, weight = 9.36 * 1.25, height = 726*cm2m
),
eq(name = "iom_05-m-ow-a", outcome = "eer", strata = list(sex = "male", bmi_class = "overweight", pal = "active"),
intercept = 1085.6, age = -10.08, weight = 13.7 * 1.25, height = 416*cm2m
),
eq(name = "iom_05-f-ow-a", outcome = "eer", strata = list(sex = "female", bmi_class = "overweight", pal = "active"),
intercept = 447.6, age = -7.95, weight = 11.4 * 1.25, height = 6.19
),
eq(name = "iom_05-m-n-va", outcome = "eer", strata = list(sex = "male", bmi_class = "normal weight", pal = "very-active"),
intercept = 661.8, age = -9.53, weight = 15.91 * 1.48, height = 5.396
),
eq(name = "iom_05-f-n-va", outcome = "eer", strata = list(sex = "female", bmi_class = "normal weight", pal = "very-active"),
intercept = 354.1, age = -6.91, weight = 9.36 * 1.48, height = 7.26
),
eq(name = "iom_05-m-ow-va", outcome = "eer", strata = list(sex = "male", bmi_class = "overweight", pal = "very-active"),
intercept = 1085.6, age = -10.08, weight = 13.7 * 1.48, height = 4.16
),
eq(name = "iom_05-f-ow-va", outcome = "eer", strata = list(sex = "female", bmi_class = "overweight", pal = "very-active"),
intercept = 447.6, age = -7.95, weight = 11.4 * 1.48, height = 6.19
)
),
# Jia 1999 [CHECKED \(coef \+ udm\)] -------------------------------
eqs(name = "jia_99-a", reference = "JIA, MENG, and SHAN, Study on Energy Expenditure in Healthy Adults [J]. 1999",
eq(name = "jia_99-a-kcal-m", outcome = "bee", strata = list(sex = "male"),
intercept = 696, weight = 13.6, age = -6
)
),
# Jia 1999 [CHECKED \(coef \+ udm\)] -------------------------------
eqs(name = "jia_99-b", reference = "JIA, MENG, and SHAN, Study on Energy Expenditure in Healthy Adults [J]. 1999",
eq(name = "jia_99-b-f-bee", outcome = "bee", strata = list(sex = "female"),
intercept = 714, weight = 6.8
)
),
# Kashiwazaki 1988 [CHECKED \(coef \+ udm\)] -----------------------
eqs(name = "kashiwazaki_88", reference = "KASHIWAZAKI, H., SUZUKI, T., & INAOKA, T. (1988). Postprandial resting metabolic rate and body composition in the moderately obese and normal-weight adult subjects at sitting posture. Journal of nutritional science and vitaminology, 34(4), 399-411.",
eq(name = "kashiwazaki_88-n", outcome = "rmr", strata = list(bmi_class = "normal weight"),
intercept = 350.6, weight = 22.7, subscapular_skinfold = -13.6
)
),
# Korth 2007 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "korth_07-a", reference = "Korth, O., Bosy-Westphal, A., Zschoche, P., Gl?er, C. C., Heller, M., & M?ller, M. J. (2007). Influence of methods used in body composition analysis on the prediction of resting energy expenditure. European journal of clinical nutrition, 61(5), 582.",
eq(name = "korth_07-a-m", outcome = "ree", strata = list(sex = "male"),
intercept = (-1731.2 + 1107.4) * kj2kcal, weight = 41.5 * kj2kcal, age = -19.1 * kj2kcal, height = 35 * kj2kcal
),
eq(name = "korth_07-a-f", outcome = "ree", strata = list(sex = "female"),
intercept = (-1731.2 ) * kj2kcal, weight = 41.5 * kj2kcal, age = -19.1 * kj2kcal, height = 35 * kj2kcal
)
),
# Korth 2007 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "korth_07-b", reference = "Korth, O., Bosy-Westphal, A., Zschoche, P., Gl?er, C. C., Heller, M., & M?ller, M. J. (2007). Influence of methods used in body composition analysis on the prediction of resting energy expenditure. European journal of clinical nutrition, 61(5), 582.",
eq(name = "korth_07-b", outcome = "ree", strata = list(),
intercept = 2284 * kj2kcal, weight = 65.6 * kj2kcal
)
),
# Kruizenga 2016 [CHECKED \(coef \+ udm\)] -------------------------
eqs(name = "kruizenga_16", reference = "Kruizenga, H. M., Hofsteenge, G. H., & Weijs, P. J. (2016). Predicting resting energy expenditure in underweight, normal weight, overweight, and obese adult hospital patients. Nutrition & metabolism, 13(1), 85.",
eq(name = "kruizenga_16-m-n", outcome = "ree", strata = list(sex = "male", bmi_class = "normal weight", inpatients = TRUE),
intercept = (-137.475 + 135.265), weight = 11.355, height = 7.224, age = -4.649
),
eq(name = "kruizenga_16-f-n", outcome = "ree", strata = list(sex = "female", bmi_class = "normal weight", inpatients = TRUE),
intercept = (-137.475 ), weight = 11.355, height = 7.224, age = -4.649
),
eq(name = "kruizenga_16-m-u", outcome = "ree", strata = list(sex = "male", bmi_class = "underweight", inpatients = TRUE),
intercept = (-137.475 + 135.265), weight = 11.355, height = 7.224, age = -4.649
),
eq(name = "kruizenga_16-f-u", outcome = "ree", strata = list(sex = "female", bmi_class = "underweight", inpatients = TRUE),
intercept = (-137.475 ), weight = 11.355, height = 7.224, age = -4.649
)
),
# Lam 2014 [CHECKED \(coef \+ udm\)] -------------------------------
eqs(name = "lam_14-m", reference = "Lam, Y. Y., Redman, L. M., Smith, S. R., Bray, G. A., Greenway, F. L., Johannsen, D., & Ravussin, E. (2014). Determinants of sedentary 24-h energy expenditure: equations for energy prescription and adjustment in a respiratory chamber. The American journal of clinical nutrition, 99(4), 834-842.",
eq(name = "lam_14-m-a", outcome = "eee", strata = list(sex = "male", ethnicity = "african american"),
intercept = (-235 + 217 - 52), weight = 11.6, height = 8.03, age = -3.45
),
eq(name = "lam_14-m-w", outcome = "eee", strata = list(sex = "male", ethnicity = "white"),
intercept = (-235 + 217), weight = 11.6, height = 8.03, age = -3.45
),
eq(name = "lam_14-f-a", outcome = "eee", strata = list(sex = "female", ethnicity = "african american"),
intercept = (-235 - 52), weight = 11.6, height = 8.03, age = -3.45
),
eq(name = "lam_14-f-w", outcome = "eee", strata = list(sex = "female", ethnicity = "white"),
intercept = -235, weight = 11.6, height = 8.03, age = -3.45
)
),
# Lazzer 2007-a [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "lazzer_07-m", reference = "Lazzer, S., Agosti, F., Silvestri, P., Derumeaux-Burel, H., & Sartorio, A. (2007). Prediction of resting energy expenditure in severely obese Italian women. Journal of Endocrinological Investigation, 30(1), 20–27. https://doi.org/10.1007/BF03347391",
eq(name = "lazzer_07", outcome = "ree", strata = list(sex = "male", bmi_class = "obese"),
intercept = -3.605 * mj2kcal, weight = 0.048 * mj2kcal, height = 4.655 * mj2kcal, age = -0.020 * mj2kcal
)
),
# Lazzer 2007-b [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "lazzer_07-f", reference = "Lazzer, S., Agosti, F., Resnik, M., Marazzi, N., Mornati, D., & Sartorio, A. (2007). Prediction of resting energy expenditure in severely obese Italian males. Journal of Endocrinological Investigation, 30(9), 754–761. https://doi.org/10.1007/BF03350813",
eq(name = "lazzer_07", outcome = "ree", strata = list(sex = "female", bmi_class = "obese"),
intercept = -2.678 * mj2kcal, weight = 0.042 * mj2kcal, height = 3.619 * mj2kcal
)
),
# Lazzer 2010 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "lazzer_10", reference = "Lazzer, S., Bedogni, G., Lafortuna, C. L., Marazzi, N., Busti, C., Galli, R., … Sartorio, A. (2010). Relationship Between Basal Metabolic Rate, Gender, Age, and Body Composition in 8,780 White Obese Subjects. Obesity, 18(1), 71–78. https://doi.org/10.1038/oby.2009.162",
eq(name = "lazzer_10-m", outcome = "bmr", strata = list(sex = "male"),
intercept = (1140 + 3252) * kj2kcal, weight = 46 * kj2kcal, age = -14 * kj2kcal
),
eq(name = "lazzer_10-f", outcome = "bmr", strata = list(sex = "female"),
intercept = 3252 * kj2kcal, weight = 46 * kj2kcal, age = -14 * kj2kcal
)
),
# Leung 2000 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "leung_00", reference = "Leung, R., Woo, J., Chan, D., & Tang, N. (2000). Validation of prediction equations for basal metabolic rate in Chinese subjects. European journal of clinical nutrition, 54(7), 551.",
eq(name = "leung_00", outcome = "ree", strata = list(ethnicity = "chinese"),
intercept = 3340.2 * kj2kcal, weight = 57.562 * kj2kcal, age = -26.795 * kj2kcal
)
),
# Liu 1995-a [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "liu_95-a-weight-age", reference = "Liu, H. Y., Lu, Y. F., & Chen, W. J. (1995). Predictive equations for basal metabolic rate in Chinese adults: a cross-validation study. Journal of the American Dietetic Association, 95(12), 1403–1408. https://doi.org/10.1016/S0002-8223(95)00369-X",
eq(name = "liu_95-a-m", outcome = "bmr", strata = list(sex = "male", ethnicity = "chinese"),
intercept = (54.34 ), weight = 13.88, height = 4.16, age = -3.43
),
eq(name = "liu_95-a-f", outcome = "bmr", strata = list(sex = "female", ethnicity = "chinese"),
intercept = (54.34 + 112.40), weight = 13.88, height = 4.16, age = -3.43
)
),
# Liu 1995-b [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "liu_95-b-weight", reference = "Liu, H. Y., Lu, Y. F., & Chen, W. J. (1995). Predictive equations for basal metabolic rate in Chinese adults: a cross-validation study. Journal of the American Dietetic Association, 95(12), 1403–1408. https://doi.org/10.1016/S0002-8223(95)00369-X",
eq(name = "liu_95-b", outcome = "bmr", strata = list(ethnicity = "chinese"),
intercept = 29.34, weight = 20.29
)
),
# Liu 1995-c [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "liu_95-c", reference = "Liu, H. Y., Lu, Y. F., & Chen, W. J. (1995). Predictive equations for basal metabolic rate in Chinese adults: a cross-validation study. Journal of the American Dietetic Association, 95(12), 1403–1408. https://doi.org/10.1016/S0002-8223(95)00369-X",
eq(name = "liu_95-c", outcome = "bmr", strata = list(ethnicity = "chinese"),
intercept = -1506.60, weight = 13.51, height = 11.93
)
),
# Liu 1995-d [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "liu_95-d", reference = "Liu, H. Y., Lu, Y. F., & Chen, W. J. (1995). Predictive equations for basal metabolic rate in Chinese adults: a cross-validation study. Journal of the American Dietetic Association, 95(12), 1403–1408. https://doi.org/10.1016/S0002-8223(95)00369-X",
eq(name = "liu_95-d-m", outcome = "bmr", strata = list(sex = "male", ethnicity = "chinese"),
intercept = 755.30, weight = 14.73, age = -3.87
),
eq(name = "liu_95-d-f", outcome = "bmr", strata = list(sex = "female", ethnicity = "chinese"),
intercept = (755.30 - 150.90), weight = 14.73, age = -3.87
)
),
# Livingston & Kohlstadt 2005-a [CHECKED \(coef \+ udm\)] ---------
eqs(name = "livingston_05-f", reference = "Livingston, E. H., & Kohlstadt, I. (2005). Simplified resting metabolic rate—predicting formulas for normal‐sized and obese individuals. Obesity research, 13(7), 1255-1262.",
eq(name = "livingston_05-f-o", outcome = "rmr", strata = list(sex = "female", bmi_class = "obese"),
intercept = 0, livingston_weight_f = 248 , age = -5.09
),
eq(name = "livingston_05-f-ow", outcome = "rmr", strata = list(sex = "female", bmi_class = "overweight"),
intercept = 0, livingston_weight_f = 248 , age = -5.09
),
eq(name = "livingston_05-f-n", outcome = "rmr", strata = list(sex = "female", bmi_class = "normal weight"),
intercept = 0, livingston_weight_f = 248 , age = -5.09
)
),
eqs(name = "livingston_05-m", reference = "Livingston, E. H., & Kohlstadt, I. (2005). Simplified resting metabolic rate—predicting formulas for normal‐sized and obese individuals. Obesity research, 13(7), 1255-1262.",
eq(name = "livingston_05-m-o", outcome = "rmr", strata = list(sex = "male", bmi_class = "obese"),
intercept = 0, livingston_weight_m = 293 , age = -5.92
),
eq(name = "livingston_05-m-ow", outcome = "rmr", strata = list(sex = "male", bmi_class = "overweight"),
intercept = 0, livingston_weight_m = 293 , age = -5.92
),
eq(name = "livingston_05-m-n", outcome = "rmr", strata = list(sex = "male", bmi_class = "normal weight"),
intercept = 0, livingston_weight_m = 293 , age = -5.92
)
),
# Livingston & Kohlstadt 2005-b [CHECKED \(coef \+ udm\)] ---------
eqs(name = "livingston_05-f pure", reference = "Livingston, E. H., & Kohlstadt, I. (2005). Simplified resting metabolic rate—predicting formulas for normal‐sized and obese individuals. Obesity research, 13(7), 1255-1262.",
eq(name = "livingston_05-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 0, livingston_weight_f_alone = 196
)
),
eqs(name = "livingston_05-m pure", reference = "Livingston, E. H., & Kohlstadt, I. (2005). Simplified resting metabolic rate—predicting formulas for normal‐sized and obese individuals. Obesity research, 13(7), 1255-1262.",
eq(name = "livingston_05-m", outcome = "rmr", strata = list(sex = "male"),
intercept = 0, livingston_weight_m_alone = 246
)
),
# Livingston & Kohlstadt 2005-c [CHECKED \(coef \+ udm\)] ---------
eqs(name = "livingston_05-c", reference = "Livingston, E. H., & Kohlstadt, I. (2005). Simplified resting metabolic rate—predicting formulas for normal‐sized and obese individuals. Obesity research, 13(7), 1255-1262.",
eq(name = "livingston_05-c", outcome = "rmr", strata = list(),
intercept = 0, livingston_weight_alone = 202
)
),
# Livingston & Kohlstadt 2005-d [CHECKED \(coef \+ udm\)] ----------
eqs(name = "livingston_05-d", reference = "Livingston, E. H., & Kohlstadt, I. (2005). Simplified resting metabolic rate—predicting formulas for normal‐sized and obese individuals. Obesity research, 13(7), 1255-1262.",
eq(name = "livingston_05-d", outcome = "rmr", strata = list(),
intercept = 0, livingston_weight_age = 261, age = -6.52
)
),
# Lührmann 2002-a [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "lührmann_02-a", reference = "Lührmann, P. M., Herbert, B. M., Krems, C., & Neuhäuser-Berthold, M. (2002). A new equation especially developed for predicting resting metabolic rate in the elderly for easy use in practice. European Journal of Nutrition, 41(3), 108–113. https://doi.org/10.1007/s003940200016",
eq(name = "lührmann_02-a", outcome = "rmr", strata = list(),
intercept = 1238 * kj2kcal, weight = 66.4 * kj2kcal
)
),
# Lührmann 2002-b [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "lührmann_02-b", reference = "Lührmann, P. M., Herbert, B. M., Krems, C., & Neuhäuser-Berthold, M. (2002). A new equation especially developed for predicting resting metabolic rate in the elderly for easy use in practice. European Journal of Nutrition, 41(3), 108–113. https://doi.org/10.1007/s003940200016",
eq(name = "lührmann_02-b-m", outcome = "rmr", strata = list(sex = "male"),
intercept = (3169 + 746) * kj2kcal, weight = 50 * kj2kcal, age = -15.3 * kj2kcal
),
eq(name = "lührmann_02-a-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 3169 * kj2kcal, weight = 50 * kj2kcal, age = -15.3 * kj2kcal
)
),
# Lührmann 2002-c [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "lührmann_02-c", reference = "Lührmann, P. M., Herbert, B. M., Krems, C., & Neuhäuser-Berthold, M. (2002). A new equation especially developed for predicting resting metabolic rate in the elderly for easy use in practice. European Journal of Nutrition, 41(3), 108–113. https://doi.org/10.1007/s003940200016",
eq(name = "lührmann_02-c-m", outcome = "rmr", strata = list(sex = "male"),
intercept = (2078 + 751) * kj2kcal, weight = 50.8 * kj2kcal
),
eq(name = "lührmann_02-c-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 2078 * kj2kcal, weight = 50.8 * kj2kcal
)
),
# Metsios 2008 [CHECKED \(coef \+ udm\)] ---------------------------
eqs(name = "metsios_08", reference = "Metsios, G. S., Stavropoulos-Kalinoglou, A., Panoulas, V. F., Koutedakis, Y., Nevill, A. M., Douglas, K. M., ... & Kitas, G. D. (2008). New resting energy expenditure prediction equations for patients with rheumatoid arthritis. Rheumatology, 47(4), 500-506.",
eq(name = "metsios_08", outcome = "ree", strata = list(rheumatoid_arthritis = TRUE),
intercept = 0, var_metsios = 598.8
)
),
# Mifflin 1990-a [CHECKED \(coef \+ udm\)] ---------------------------
eqs(name = "mifflin_90-a", reference = "Mifflin, M. D., St Jeor, S. T., Hill, L. A., Scott, B. J., Daugherty, S. A., & Koh, Y. O. (1990). A new predictive equation for resting energy expenditure in healthy individuals. The American journal of clinical nutrition, 51(2), 241-247.",
eq(name = "mifflin_90-a-m", outcome = "rmr", strata = list(sex = "male"),
intercept = (-161 + 166), weight = 9.99, height = 6.25, age = -4.92
),
eq(name = "mifflin_90-a-f", outcome = "rmr", strata = list(sex = "female"),
intercept = -161, weight = 9.99, height = 6.25, age = -4.92
)
),
# Mifflin 1990-b [CHECKED \(coef \+ udm\)] ---------------------------
eqs(name = "mifflin_90-b", reference = "Mifflin, M. D., St Jeor, S. T., Hill, L. A., Scott, B. J., Daugherty, S. A., & Koh, Y. O. (1990). A new predictive equation for resting energy expenditure in healthy individuals. The American journal of clinical nutrition, 51(2), 241-247.",
eq(name = "mifflin_90-b-w", outcome = "rmr",
intercept = 371, weight = 15.1
)
),
# Mifflin 1990-c [CHECKED \(coef \+ udm\)] ---------------------------
eqs(name = "mifflin_90-c", reference = "Mifflin, M. D., St Jeor, S. T., Hill, L. A., Scott, B. J., Daugherty, S. A., & Koh, Y. O. (1990). A new predictive equation for resting energy expenditure in healthy individuals. The American journal of clinical nutrition, 51(2), 241-247.",
eq(name = "mifflin_90-c-m", outcome = "rmr", strata = list(sex = "male"),
intercept = 704, weight = 12.3
),
eq(name = "mifflin_90-c-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 586, weight = 10.9
)
),
# Moore & Angelillo 1988 [CHECKED \(coef \+ udm\)] -----------------
eqs(name = "moore_88", reference = "Moore, J. A., & Angelillo, V. A. (1988). Equations for the prediction of resting energy expenditure in chronic obstructive lung disease. Chest, 94(6), 1260-1263.",
eq(name = "moore_88-m", outcome = "ree", strata = list(sex = "male", copd = TRUE),
intercept = 952, weight = 11.5
),
eq(name = "moore_88-f", outcome = "ree", strata = list(sex = "female", copd = TRUE),
intercept = 515, weight = 14.1
)
),
# Muller 2004-a [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "muller_04-a", reference = "Manfred J Müller, Anja Bosy-Westphal, Susanne Klaus, Georg Kreymann, Petra M Lührmann, Monika Neuhäuser-Berthold, Rudolf Noack, Karl M Pirke, Petra Platte, Oliver Selberg, Jochen Steiniger, World Health Organization equations have shortcomings for predicting resting energy expenditure in persons from a modern, affluent population: generation of a new reference standard from a retrospective analysis of a German database of resting energy expenditure, The American Journal of Clinical Nutrition, Volume 80, Issue 5, November 2004, Pages 1379–1390, https://doi.org/10.1093/ajcn/80.5.1379",
eq(name = "muller_04-a-m", outcome = "ree", strata = list(sex = "male"),
intercept = (3.210 + 1.009) * mj2kcal, weight = 0.047 * mj2kcal, age = -0.01452 * mj2kcal
),
eq(name = "muller_04-a-f", outcome = "ree", strata = list(sex = "female"),
intercept = 3.210 * mj2kcal, weight = 0.047 * mj2kcal, age = -0.01452 * mj2kcal
)
),
# Muller 2004-b [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "muller_04-b", reference = "Manfred J Müller, Anja Bosy-Westphal, Susanne Klaus, Georg Kreymann, Petra M Lührmann, Monika Neuhäuser-Berthold, Rudolf Noack, Karl M Pirke, Petra Platte, Oliver Selberg, Jochen Steiniger, World Health Organization equations have shortcomings for predicting resting energy expenditure in persons from a modern, affluent population: generation of a new reference standard from a retrospective analysis of a German database of resting energy expenditure, The American Journal of Clinical Nutrition, Volume 80, Issue 5, November 2004, Pages 1379–1390, https://doi.org/10.1093/ajcn/80.5.1379",
eq(name = "muller_04-b-m-nw", outcome = "ree", strata = list(sex = "male", bmi_class = "normal weight"),
intercept = (1.233 + 0.884) * mj2kcal, weight = 0.02219 * mj2kcal, age = -0.01191 * mj2kcal, height = 0.02118 * mj2kcal
),
eq(name = "muller_04-b-f-nw", outcome = "ree", strata = list(sex = "female", bmi_class = "normal weight"),
intercept = 1.233 * mj2kcal, weight = 0.02219 * mj2kcal, age = -0.01191 * mj2kcal, height = 0.02118 * mj2kcal
)
),
# Muller 2004-c [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "muller_04-c", reference = "Manfred J Müller, Anja Bosy-Westphal, Susanne Klaus, Georg Kreymann, Petra M Lührmann, Monika Neuhäuser-Berthold, Rudolf Noack, Karl M Pirke, Petra Platte, Oliver Selberg, Jochen Steiniger, World Health Organization equations have shortcomings for predicting resting energy expenditure in persons from a modern, affluent population: generation of a new reference standard from a retrospective analysis of a German database of resting energy expenditure, The American Journal of Clinical Nutrition, Volume 80, Issue 5, November 2004, Pages 1379–1390, https://doi.org/10.1093/ajcn/80.5.1379",
eq(name = "muller_04-c-m-uw", outcome = "ree", strata = list(sex = "male", bmi_class = "underweight"),
intercept = (0.731 + 0.820) * mj2kcal, weight = 0.07122 * mj2kcal, age = -0.02149 * mj2kcal
),
eq(name = "muller_04-c-f-uw", outcome = "ree", strata = list(sex = "female", bmi_class = "underweight"),
intercept = 0.731 * mj2kcal, weight = 0.07122 * mj2kcal, age = -0.02149 * mj2kcal
),
eq(name = "muller_04-c-m-ow", outcome = "ree", strata = list(sex = "male", bmi_class = "overweight"),
intercept = (3.407 + 1.006) * mj2kcal, weight = 0.04507 * mj2kcal, age = -0.01553 * mj2kcal
),
eq(name = "muller_04-c-f-ow", outcome = "ree", strata = list(sex = "female", bmi_class = "overweight"),
intercept = 3.407 * mj2kcal, weight = 0.04507 * mj2kcal, age = -0.01553 * mj2kcal
),
eq(name = "muller_04-c-m-o", outcome = "ree", strata = list(sex = "male", bmi_class = "obese"),
intercept = (2.924 + 1.103) * mj2kcal, weight = 0.050 * mj2kcal, age = -0.01586 * mj2kcal
),
eq(name = "muller_04-c-f-o", outcome = "ree", strata = list(sex = "female", bmi_class = "obese"),
intercept = 2.924 * mj2kcal, weight = 0.050 * mj2kcal, age = -0.01586 * mj2kcal
)
),
# Obisesan 1997 [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "obisesan_97", reference = "Obisesan, T. O., Toth, M. J., & Poehlman, E. T. (1997). Prediction of resting energy needs in older men with heart failure. European Journal of Clinical Nutrition, 51(10), 678-681. https://doi.org/10.1038/sj.ejcn.1600462",
eq(name = "obisesan_97-hf", outcome = "rmr", strata = list(hf = FALSE),
intercept = 755, weight = 12.2, glucose_g_dl = 1.6, albumin_mg_dl = -144
),
eq(name = "obisesan_97-nhf", outcome = "rmr", strata = list(hf = TRUE),
intercept = 755 + 103, weight = 12.2, glucose_g_dl = 1.6, albumin_mg_dl = -144
)
),
# Orozco 2017 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "orozco_17", reference = "Orozco-Ruiz, X., Pichardo-Ontiveros, E., Tovar, A. R., Torres, N., Medina-Vera, I., Prinelli, F., . Guevara-Cruz, M. (2017). Development and validation of new predictive equation for resting energy expenditure in adults with overweight and obesity. Clinical Nutrition. https://doi.org/10.1016/j.clnu.2017.10.022",
eq(name = "orosco_17-f-ow", outcome = "ree", strata = list(sex = "female", ethnicity = "mexican", bmi_class = "overweight"),
intercept = 835.952, weight = 12.114, age = -6.541
),
eq(name = "orosco_17-m-ow", outcome = "ree", strata = list(sex = "male", ethnicity = "mexican", bmi_class = "overweight"),
intercept = 1094.991, weight = 12.114, age = -6.541
),
eq(name = "orosco_17-f-o", outcome = "ree", strata = list(sex = "female", ethnicity = "mexican", bmi_class = "obese"),
intercept = 835.952, weight = 12.114, age = -6.541
),
eq(name = "orosco_17-m-o", outcome = "ree", strata = list(sex = "male", ethnicity = "mexican", bmi_class = "obese"),
intercept = 1094.991, weight = 12.114, age = -6.541
)
),
# Owen 1987 [CHECKED \(coef \+ udm\)] ------------------------------
eqs(name = "owen_87", reference = "Owen, O. E. (1988). Resting Metabolic Requirements of Men and Women*. Mayo Clinic Proceedings, 63(5), 503–510. https://doi.org/10.1016/S0025-6196(12)65649-3",
eq(name = "owen_87-a-m", outcome = "rmr", strata = list(sex = "male", athletic = FALSE),
intercept = 879, weight = 10.2
),
eq(name = "owen_87-a-f", outcome = "rmr", strata = list(sex = "female", athletic = FALSE),
intercept = 795, weight = 7.18
)
),
# Owen 1986 [CHECKED \(coef \+ udm\)] ------------------------------
eqs(name = "owen_86", reference = "OOwen, O. E., Kavle, E., Owen, R. S., Polansky, M., Caprio, S., Mozzoli, M. A., ... & Boden, G. (1986). A reappraisal of caloric requirements in healthy women. The American journal of clinical nutrition, 44(1), 1-19.",
eq(name = "owen_86", outcome = "rmr", strata = list(sex = "female", athletic = TRUE, age_18_65 = TRUE),
intercept = 50.4, weight = 21.1
)
),
# Pavlidou 2018-a [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "pavlidou_18-a", reference = "Pavlidou, E., Petridis, D., Tolia, M., Tsoukalas, N., Poultsidi, A., Fasoulas, A., . Giaginis, C. (2018). Estimating the agreement between the metabolic rate calculated from prediction equations and from a portable indirect calorimetry device: an effort to develop a new equation for predicting resting metabolic rate. Nutrition & Metabolism, 15, 41. https://doi.org/10.1186/s12986-018-0278-7",
eq(name = "pavlidou_18-a", outcome = "rmr", strata = list(),
intercept = 0, bmi_pavlidou = 25.41
)
),
# Pavlidou 2018-a [CHECKED \(coef \+ udm\)] -----------------------
eqs(name = "pavlidou_18-m", reference = "Pavlidou, E., Petridis, D., Tolia, M., Tsoukalas, N., Poultsidi, A., Fasoulas, A., . Giaginis, C. (2018). Estimating the agreement between the metabolic rate calculated from prediction equations and from a portable indirect calorimetry device: an effort to develop a new equation for predicting resting metabolic rate. Nutrition & Metabolism, 15, 41. https://doi.org/10.1186/s12986-018-0278-7",
eq(name = "pavlidou_18-b-m", outcome = "rmr", strata = list(sex = "male"),
intercept = 0, bmi_pavlidou_m = 25.41
)
),
eqs(name = "pavlidou_18-f", reference = "Pavlidou, E., Petridis, D., Tolia, M., Tsoukalas, N., Poultsidi, A., Fasoulas, A., . Giaginis, C. (2018). Estimating the agreement between the metabolic rate calculated from prediction equations and from a portable indirect calorimetry device: an effort to develop a new equation for predicting resting metabolic rate. Nutrition & Metabolism, 15, 41. https://doi.org/10.1186/s12986-018-0278-7",
eq(name = "pavlidou_18-f", outcome = "rmr", strata = list(sex = 'female'),
intercept = 0, bmi_pavlidou_f = 21.09
)
),
# Quenouille 1951 [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "quenoille_51", reference = "Quenouille, M. H. (1951). Statistical studies of recorded energy expenditure of man.",
eq(name = "quenoille_51", outcome = "bmr", strata = list(),
intercept = 293.8, height = 2.975, weight = 8.90, body_surface_area = 11.7, air_humidity = 3.0, air_temperature = -4.0
)
),
# Quiroz-Olguin 2014 [CHECKED \(coef \+ udm\)] ---------------------
eqs(name = "quiroz_14", reference = "Quiroz-Olguin, G., Serralde-Zuniga, A. E., Saldana-Morales, M. V., Gulias-Herrero, A., & Guevara-Cruz, M. (2014). Validating an energy expenditure prediction equation in overweight and obese Mexican patients. Nutricion Hospitalaria, 30(4), 749-755. https://doi.org/10.3305/nh.2014.30.4.7639",
eq(name = "quiroz_14-m-ow", outcome = "ree", strata = list(sex = "male", bmi_class = "overweight"),
intercept = -402.204, weight = 12.204, wrist_circumference = 83.954
),
eq(name = "quiroz_14-f-ow", outcome = "ree", strata = list(sex = "female", bmi_class = "overweight"),
intercept = (-402.204 - 244.892), weight = 12.204, wrist_circumference = 83.954
),
eq(name = "quiroz_14-m-o", outcome = "ree", strata = list(sex = "male", bmi_class = "obese"),
intercept = -402.204, weight = 12.204, wrist_circumference = 83.954
),
eq(name = "quiroz_14-f-o", outcome = "ree", strata = list(sex = "female", bmi_class = "obese"),
intercept = (-402.204 - 244.892), weight = 12.204, wrist_circumference = 83.954
)
),
# Roza 1984-a [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "roza_84-a", reference = "Roza, A. M., & Shizgal, H. M. (1984). The Harris Benedict equation reevaluated: resting energy requirements and the body cell mass. The American journal of clinical nutrition, 40(1), 168-182.",
eq(name = "roza_84-a-m", outcome = "rmr", strata = list(sex = "male"),
intercept = 88.362, height = 4.799, weight = 13.397, age = -5.677
),
eq(name = "roza_84-a-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 447.593, height = 3.098, weight = 9.247, age = -4.330
)
),
# Roza 1984-b [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "roza_84-b", reference = "Roza, A. M., & Shizgal, H. M. (1984). The Harris Benedict equation reevaluated: resting energy requirements and the body cell mass. The American journal of clinical nutrition, 40(1), 168-182.",
eq(name = "roza_84-b-m", outcome = "rmr", strata = list(sex = "male"),
intercept = 77.607, height = 4.923, weight = 13.702, age = -6.673
),
eq(name = "roza_84-b-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 667.051, height = 1.729, weight = 9.74, age = -4.737
)
),
# Roza 1984-b [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "roza_84-c", reference = "Roza, A. M., & Shizgal, H. M. (1984). The Harris Benedict equation reevaluated: resting energy requirements and the body cell mass. The American journal of clinical nutrition, 40(1), 168-182.",
eq(name = "roza_84-c-m", outcome = "rmr", strata = list(sex = "male"),
intercept = 75.9, bmi = 53.7, age = 1.3
),
eq(name = "roza_84-c-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 490.8, bmi = 45.8, age = -1.5
)
),
# Sabounchi 2013 [CHECKED \(coef \+ udm\)] -------------------------
eqs(name = "sabounchi_13", reference = "Sabounchi, N. S., Rahmandad, H., & Ammerman, A. (2013). Best-fitting prediction equations for basal metabolic rate: informing obesity interventions in diverse populations. International Journal of Obesity (2005), 37(10), 1364-1370. https://doi.org/10.1038/ijo.2012.218",
eq(name = "sabounchi_13", outcome = "bmr", strata = list(),
intercept = 301, weight = 10.2, height = 3.09, age = -3.09
)
),
# Schoefild 1985-a [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "schoefild_85-a", reference = "Schofield, W. N. (1985). Predicting basal metabolic rate, new standards and review of previous work. Human Nutrition. Clinical Nutrition, 39 Suppl 1, 5-41.",
eq(name = "schoefild_85-a-m", outcome = "bmr", strata = list(sex = "male"),
intercept = 587.7, weight = 11.711
),
eq(name = "schoefild_85-a-f", outcome = "bmr", strata = list(sex = "female"),
intercept = 658.5, weight = 9.082
)
),
# Schoefild 1985-b [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "schoefild_85-b", reference = "Schofield, W. N. (1985). Predicting basal metabolic rate, new standards and review of previous work. Human Nutrition. Clinical Nutrition, 39 Suppl 1, 5-41.",
eq(name = "schoefild_85-b-m", outcome = "bmr", strata = list(sex = "male"),
intercept = 17.7, weight = 7.887, height = 4.582
),
eq(name = "schoefild_85-b-f", outcome = "bmr", strata = list(sex = "female"),
intercept = -834.4, weight = 9.082, height = 9.723
)
),
# Segura-Badilla 2018-a [CHECKED \(coef \+ udm\)] ------------------
eqs(name = "segura_18-a", reference = "",
eq(name = "segura_18-a-f", outcome = "ree", strata = list(sex = "female", ethnicity = "chilean"),
intercept = -35.95, weight = 11.701, height = 5.75, age = -7.824
),
eq(name = "segura_18-a-m", outcome = "ree", strata = list(sex = "male", ethnicity = "chilean"),
intercept = 346.867, weight = 4.317, height = 7.967, age = -10.16
)
),
# Segura-Badilla 2018-b [CHECKED \(coef \+ udm\)] ------------------
eqs(name = "segura_18-b", reference = "",
eq(name = "segura_18-b-f", outcome = "ree", strata = list(sex = "female"),
intercept = -817.918, weight = 11.774, height = 7.37
),
eq(name = "segura_18-b-m", outcome = "ree", strata = list(sex = "male"),
intercept = -316.398, weight = 4.255, height = 7.819
)
),
# Segura-Badilla 2018-c [CHECKED \(coef \+ udm\)] ------------------
eqs(name = "segura_18-c", reference = "",
eq(name = "segura_18-c-f", outcome = "ree", strata = list(sex = "female"),
intercept = 9427.775, weight = 84.689, height = -55.063, bmi = -174.811, age = -8.798
),
eq(name = "segura_18-c-m", outcome = "ree", strata = list(sex = "male"),
intercept = -5008.038, weight = -30.019, height = 41.687, bmi = 95.416, age = -13.978
)
),
# Segura-Badilla 2018-d [CHECKED \(coef \+ udm\)] ------------------
eqs(name = "segura_18-d", reference = "",
eq(name = "segura_18-d-f-nw", outcome = "ree", strata = list(sex = "female", bmi_class = "normal weight"),
intercept = 896.249, weight = 14.361, height = -0.055, age = -10.389
),
eq(name = "segura_18-e-m-nw", outcome = "ree", strata = list(sex = "male", bmi_class = "normal weight"),
intercept = -15817.35, weight = -137.022, height = 151.717, age = 24.108
),
eq(name = "segura_18-d-f-ow", outcome = "ree", strata = list(sex = "female", bmi_class = "overweight"),
intercept = -314.07, weight = 17.211, height = 4.437, age = -7.499
),
eq(name = "segura_18-d-m-ow", outcome = "ree", strata = list(sex = "male", bmi_class = "overweight"),
intercept = 19.995, weight = 3.252, height = 9.488, age = -7.61
),
eq(name = "segura_18-d-f-o", outcome = "ree", strata = list(sex = "female", bmi_class = "obese"),
intercept = -314.07, weight = 17.211, height = 4.437, age = -7.499
),
eq(name = "segura_18-d-m-o", outcome = "ree", strata = list(sex = "male", bmi_class = "obese"),
intercept = 19.995, weight = 3.252, height = 9.488, age = -7.61
)
),
# Siervo 2003 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "siervo_03", reference = "Siervo, M., Boschi, V., & Falconi, C. (2003). Which REE prediction equation should we use in normal-weight, overweight and obese women?. Clinical Nutrition, 22(2), 193-204.",
eq(name = "siervo_03-f-ow", outcome = "ree", strata = list(sex = "female", bmi_class = "overweight"),
intercept = 542.2, weight = 11.5
),
eq(name = "siervo_03-f-o", outcome = "ree", strata = list(sex = "female", bmi_class = "obese"),
intercept = 542.2, weight = 11.5
)
),
# Silver 2013 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "silver_13", reference = "Silver, H. J., Wall, R., Hollingsworth, E., Pruitt, A., Shotwell, M., & Simmons, S. (2013). Simple kcal/kg formula is comparable to prediction equations for estimating resting energy expenditure in older cognitively impaired long term care residents. The Journal of Nutrition, Health & Aging, 17(1), 39–44. https://doi.org/10.1007/s12603-012-0387-3",
eq(name = "silver_13-a", outcome = "rmr", strata = list(),
intercept = 0, weight = 21
),
eq(name = "silver_13-b", outcome = "rmr", strata = list(),
intercept = 0, weight = 22
),
eq(name = "silver_13-c", outcome = "rmr", strata = list(),
intercept = 0, weight = 23
)
),
# Soares 1993 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "soares_93", reference = "Soares, M. J., Francis, D. G., & Shetty, P. S. (1993). Predictive equations for basal metabolic rates of Indian males. European journal of clinical nutrition, 47(6), 389-394.",
eq(name = "soares_93", outcome = "bmr", strata = list(),
intercept = 3599*kj2kcal, weight = 48.7*kj2kcal, age = -14.1*kj2kcal
)
),
# Sridhar 1994 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "shridhar_93-a", reference = "Sridhar, M. K., Banham, S. W., & Lean, M. E. J. (1994). Predicting resting energy expenditure in patients with musculoskeletal deformities. Clinical Nutrition, 13(5), 286-290. https://doi.org/10.1016/0261-5614(94)90051-5",
eq(name = "shridhar_93-a", outcome = "ree", strata = list(),
intercept = -6.25*mj2kcal, age = -0.0324*mj2kcal, midarm_circumference = 0.295*mj2kcal, arm_span = 0.0483*mj2kcal # MAC = midarm circunference, MAMC = midarm muscle circumference, AS = armspan. MAMC = MAC -3.14 TSF (Triceps skinfold thickness)
)
),
# Sridhar 1994 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "shridhar_93-b", reference = "Sridhar, M. K., Banham, S. W., & Lean, M. E. J. (1994). Predicting resting energy expenditure in patients with musculoskeletal deformities. Clinical Nutrition, 13(5), 286-290. https://doi.org/10.1016/0261-5614(94)90051-5",
eq(name = "shridhar_93-b", outcome = "ree", strata = list(),
intercept = 2.38*mj2kcal, weight = 0.0553*mj2kcal
)
),
# Sridhar 1994 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "shridhar_93-c", reference = "Sridhar, M. K., Banham, S. W., & Lean, M. E. J. (1994). Predicting resting energy expenditure in patients with musculoskeletal deformities. Clinical Nutrition, 13(5), 286-290. https://doi.org/10.1016/0261-5614(94)90051-5",
eq(name = "shridhar_93-c", outcome = "ree", strata = list(),
intercept = 4.1*mj2kcal, weight = 0.0554*mj2kcal, age = -0.029*mj2kcal
)
),
# Sridhar 1994 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "shridhar_93-d", reference = "Sridhar, M. K., Banham, S. W., & Lean, M. E. J. (1994). Predicting resting energy expenditure in patients with musculoskeletal deformities. Clinical Nutrition, 13(5), 286-290. https://doi.org/10.1016/0261-5614(94)90051-5",
eq(name = "shridhar_93-d", outcome = "ree", strata = list(),
intercept = -0.26*mj2kcal, weight = 0.0436*mj2kcal, age = -0.0275*mj2kcal, arm_span = 0.0304*mj2kcal
)
),
# # Sridhar 1994 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "shridhar_93-e", reference = "Sridhar, M. K., Banham, S. W., & Lean, M. E. J. (1994). Predicting resting energy expenditure in patients with musculoskeletal deformities. Clinical Nutrition, 13(5), 286-290. https://doi.org/10.1016/0261-5614(94)90051-5",
eq(name = "shridhar_93-e", outcome = "ree", strata = list(),
intercept = -4.88*mj2kcal, weight = 0.0102*mj2kcal, age = -0.0318*mj2kcal, arm_span = 0.0427*mj2kcal, mean_chest_skinfold = 0.241*mj2kcal
)
),
# Sridhar 1994 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "shridhar_93-f", reference = "Sridhar, M. K., Banham, S. W., & Lean, M. E. J. (1994). Predicting resting energy expenditure in patients with musculoskeletal deformities. Clinical Nutrition, 13(5), 286-290. https://doi.org/10.1016/0261-5614(94)90051-5",
eq(name = "shridhar_93-f", outcome = "ree", strata = list(),
intercept = -2.27*mj2kcal, midarm_circumference = 0.399*mj2kcal
)
),
# # Sridhar 1994 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "shridhar_93-g", reference = "Sridhar, M. K., Banham, S. W., & Lean, M. E. J. (1994). Predicting resting energy expenditure in patients with musculoskeletal deformities. Clinical Nutrition, 13(5), 286-290. https://doi.org/10.1016/0261-5614(94)90051-5",
eq(name = "shridhar_93-g", outcome = "ree", strata = list(),
intercept = -170*mj2kcal, midarm_circumference = 0.393*mj2kcal, age = -0.247*mj2kcal
)
),
##### M: BCR (Kcal/h) = (43.66 - 0.1329 A)BSA
##### F: BCR (Kcal/h) = (38.65 - 0.0909 A)BSA
# # Staats 1988 [CHECKED \(coef \+ udm\)] --------------------------
#
# eqs(name = "staats_88", reference = "Staats, B. A., Gastineau, C. F., & Offord, K. P. (1988). Predictive Equations for Basal Caloric Requirement Derived From the Data of Boothby, Berkson, and Dunn. Mayo Clinic Proceedings, 63(4), 409-410. https://doi.org/10.1016/S0025-6196(12)64863-0",
#
# eq(name = "staats_88-f", outcome = "bmr", strata = list(sex = "female"),
# intercept = , body_surface_area =
# ),
# eq(name = "staats_88-m", outcome = "bmr", strata = list(sex = "male"),
# intercept = , body_surface_area =
# )
# ),
#
# M, 50-69, BMR = 21.5 (65.0)
# F, 50-69, BMR = 20.7 (53.6)
# Tabata 2012 [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "tabata_12a", reference = "Tabata, I., Ebine, N., Kawashima, Y., Ishikawa-Takata, K., Tanaka, S., Higuchi, M., & Yoshitake, Y. (2012). Dietary Reference Intakes for Japanese 2010: Energy. Journal of Nutritional Science and Vitaminology, 59(Supplement), S26-S35. https://doi.org/10.3177/jnsv.59.S26",
eq(name = "tabata_12a-f", outcome = "bmr", strata = list(sex = "male", ethnicity = "japanese", age_50_69 = TRUE),
intercept = 21.5*65
),
eq(name = "tabata_12a-m", outcome = "bmr", strata = list(sex = "female", ethnicity = "japanese", age_50_69 = TRUE),
intercept = 20.7*53.6
)
),
# M, ??? 70: BMR = 21.5 (59.7)
# F, ??? 70: BMR = 20.7 (49.0)
# Tabata 2012 [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "tabata_12b", reference = "Tabata, I., Ebine, N., Kawashima, Y., Ishikawa-Takata, K., Tanaka, S., Higuchi, M., & Yoshitake, Y. (2012). Dietary Reference Intakes for Japanese 2010: Energy. Journal of Nutritional Science and Vitaminology, 59(Supplement), S26-S35. https://doi.org/10.3177/jnsv.59.S26",
eq(name = "tabata_12b-m", outcome = "bmr", strata = list(sex = "male", ethnicity = "japanese", older_70 = TRUE),
intercept = 21.5*59.7
),
eq(name = "tabata_12b-f", outcome = "bmr", strata = list(sex = "female", ethnicity = "japanese", older_70 = TRUE),
intercept = 20.7*49.0
)
),
# Tabata 2018 [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "tabata_18a", reference = "Tabata, S., Kinoshita, N., Yamada, S., & Matsumoto, H. (2018). Accuracy of basal metabolic rate estimated by predictive equations in Japanese with type 2 diabetes. Asia Pacific journal of clinical nutrition, 27(4), 763.",
eq(name = "tabata_18a-m", outcome = "bmr", strata = list(sex = "male", ethnicity = "japanese"),
intercept = 957 + 200, bmi = 38.5, age = -11.6
),
eq(name = "tabata_18a-f", outcome = "bmr", strata = list(sex = "female", ethnicity = "japanese"),
intercept = 957, bmi = 38.5, age = -11.6
)
),
# Tabata 2018 [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "tabata_18b", reference = "Tabata, S., Kinoshita, N., Yamada, S., & Matsumoto, H. (2018). Accuracy of basal metabolic rate estimated by predictive equations in Japanese with type 2 diabetes. Asia Pacific journal of clinical nutrition, 27(4), 763.",
eq(name = "tabata_18b-m", outcome = "bmr", strata = list(sex = "male", ethnicity = "japanese"),
intercept = 797, weight = 15.7, age = -8.30
)
),
# Valencia 1994 [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "valencia_94", reference = "Valencia, M. E., Moya, S. Y., McNeill, G., & Haggarty, P. (1994). Basal metabolic rate and body fatness of adult men in northern Mexico. European Journal of Clinical Nutrition, 48(3), 205-211.",
eq(name = "valencia_94-f", outcome = "bmr", strata = list(sex = "female", ethnicity = "mexican"),
intercept = 520, weight = 10.98
),
eq(name = "valencia_94-m", outcome = "bmr", strata = list(sex = "male", ethnicity = "mexican"),
intercept = 42, weight = 14.21
)
),
# Vander Weg 2004 [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "vander_weg_04", reference = "Vander Weg, M. W., Watson, J. M., Klesges, R. C., Eck Clemens, L. H., Slawson, D. L., & McClanahan, B. S. (2004). Development and cross-validation of a prediction equation for estimating resting energy expenditure in healthy African-American and European-American women. European Journal of Clinical Nutrition, 58(3), 474-480. https://doi.org/10.1038/sj.ejcn.1601833",
eq(name = "vander_weg_04-aa", outcome = "ree", strata = list(sex = "female", ethnicity = "african american"),
intercept = (147.45 - 64.98), weight = 8.39, height = 4.74, age = -3.56
),
eq(name = "vander_weg_04-ea", outcome = "ree", strata = list(sex = "female", ethnicity = "european american"),
intercept = 147.45, weight = 8.39, height = 4.74, age = -3.56
)
),
# Weijs & Vansant 2010 [CHECKED \(coef \+ udm\)] -------------------
eqs(name = "weijs_10", reference = "",
eq(name = "weijs_10-m-ow", outcome = "ree", strata = list(sex = "male", bmi_class = "overweight"),
intercept = (-221.631 + 137.566), weight = 14.038, height = 4.498, age = -0.977
),
eq(name = "weijs_10-f-ow", outcome = "ree", strata = list(sex = "female", bmi_class = "overweight"),
intercept = -221.631, weight = 14.038, height = 4.498, age = -0.977
),
eq(name = "weijs_10-m-o", outcome = "ree", strata = list(sex = "male", bmi_class = "obese"),
intercept = (-221.631 + 137.566), weight = 14.038, height = 4.498, age = -0.977
),
eq(name = "weijs_10-f-o", outcome = "ree", strata = list(sex = "female", bmi_class = "obese"),
intercept = -221.631, weight = 14.038, height = 4.498, age = -0.977
)
),
# # Wells 2009 # dainserire!!!!!
#
# eqs(name = "wells", reference = "Wells JCK, Williams JE, Haroun D, Fewtrell MS, Colantuoni A, Siervo M. Aggregate predictions improve accuracy when calculating metabolic variables used to guide treatment. Am J Clin Nutr. 2009;89(2):491-499.",
#
# eq(name = "wells", outcome = "eer", strata = list(sex = "male", bmi_class = "normal weight"),
# intercept = 204, age = -4, weight = 11.69, height = 45050
# )
# ),
# Wilms 2010 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "wilms_10", reference = "",
eq(name = "wilms_10", outcome = "ree", strata = list(),
intercept = 816.714, weight = 11.035, age = -3.435
)
),
# WHO/FAO/UNU 1985 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "who_85", reference = "FAO/WHO/UNU. (1985). Energy and protein requirements. Report of a Joint FAO/WHO/UNU Expert Consultation (No. 724). Retrieved from http://www.fao.org/3/y5686e/y5686e00.htm#Contents",
eq(name = "who_85-m", outcome = "bee", strata = list(sex = "male", older_60 = TRUE),
intercept = -1071, weight = 8.8, height = 1128*cm2m
),
eq(name = "who_85-f", outcome = "bee", strata = list(sex = "female", older_60 = TRUE),
intercept = -302, weight = 9.2, height = 637*cm2m
)
),
# Wright 2016-a [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "wright_16-a", reference = "Wright, T. G., Dawson, B., Jalleh, G., & Guelfi, K. J. (2016). Accuracy of resting metabolic rate prediction in overweight and obese Australian adults. Obesity research & clinical practice, 10, S74-S83.",
eq(name = "wright_16-a-m", outcome = "bee", strata = list(sex = "male", ethnicity = "australian"),
intercept = 451.44, weight = 9.27, height = 4.58, age = -6.53
),
eq(name = "wright_16-a-f", outcome = "bee", strata = list(sex = "female", ethnicity = "australian"),
intercept = 110.76, weight = 9.02, height = 5.88, age = -7.47
)
),
# Wright 2016-b [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "wright_16-b", reference = "Wright, T. G., Dawson, B., Jalleh, G., & Guelfi, K. J. (2016). Accuracy of resting metabolic rate prediction in overweight and obese Australian adults. Obesity research & clinical practice, 10, S74-S83.",
eq(name = "wright_16-b-mow", outcome = "bee", strata = list(sex = "male", ethnicity = "australian", bmi_class = "overweight"),
intercept = 2372.11, weight = 2.91, height = -1.83, age = -11.12
),
eq(name = "wright_16-b-fow", outcome = "bee", strata = list(sex = "female", ethnicity = "australian", bmi_class = "overweight"),
intercept = -1295.89, weight = -4.28, height = 20.17, age = -7.50
),
eq(name = "wright_16-b-mo", outcome = "bee", strata = list(sex = "male", ethnicity = "australian", bmi_class = "obese"),
intercept = -1233.82, weight = 9.19, height = 12.96, age = -2.34
),
eq(name = "wright_16-b-fo", outcome = "bee", strata = list(sex = "female", ethnicity = "australian", bmi_class = "obese"),
intercept = 113.90, weight = 7.23, height = 6.83, age = -6.78
)
),
# Yang 2010-a [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "yang_10-a", reference = "Yang, X., Li, M., Mao, D., Zeng, G., Zhuo, Q., Hu, W., . Huang, C. (2010). Basal energy expenditure in southern Chinese healthy adults: measurement and development of a new equation. The British Journal of Nutrition, 104(12), 1817-1823. https://doi.org/10.1017/S0007114510002795",
eq(name = "yang_10-a-m", outcome = "bee", strata = list(sex = "male", ethnicity = "chinese"),
intercept = (277 + 600) * kj2kcal, weight = 89 * kj2kcal
),
eq(name = "yang_10-a-f", outcome = "bee", strata = list(sex = "female", ethnicity = "chinese"),
intercept = 277 * kj2kcal, weight = 89 * kj2kcal
)
),
# Yang 2010-b [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "yang_10-b", reference = "Yang, X., Li, M., Mao, D., Zeng, G., Zhuo, Q., Hu, W., . Huang, C. (2010). Basal energy expenditure in southern Chinese healthy adults: measurement and development of a new equation. The British Journal of Nutrition, 104(12), 1817-1823. https://doi.org/10.1017/S0007114510002795",
eq(name = "yang_10-b-m", outcome = "bee", strata = list(sex = "male", ethnicity = "chinese"),
intercept = -58 * kj2kcal, weight = 105 * kj2kcal
),
eq(name = "yang_10-b-f", outcome = "bee", strata = list(sex = "female", ethnicity = "chinese"),
intercept = 1355 * kj2kcal, weight = 69 * kj2kcal
)
),
# Yang 2010-c [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "yang_10-c", reference = "Yang, X., Li, M., Mao, D., Zeng, G., Zhuo, Q., Hu, W., . Huang, C. (2010). Basal energy expenditure in southern Chinese healthy adults: measurement and development of a new equation. The British Journal of Nutrition, 104(12), 1817-1823. https://doi.org/10.1017/S0007114510002795",
eq(name = "yang_10-c", outcome = "bee", strata = list(ethnicity = "chinese"),
intercept = -4611 * kj2kcal, body_surface_area = 6285 * kj2kcal
)
),
# Yang 2010-d [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "yang_10-d", reference = "Yang, X., Li, M., Mao, D., Zeng, G., Zhuo, Q., Hu, W., . Huang, C. (2010). Basal energy expenditure in southern Chinese healthy adults: measurement and development of a new equation. The British Journal of Nutrition, 104(12), 1817-1823. https://doi.org/10.1017/S0007114510002795",
eq(name = "yang_10-d", outcome = "bee", strata = list(ethnicity = "chinese"),
intercept = -11189 * kj2kcal, height = 103 * kj2kcal
)
),
# Yang 2010-e [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "yang_10-e", reference = "Yang, X., Li, M., Mao, D., Zeng, G., Zhuo, Q., Hu, W., . Huang, C. (2010). Basal energy expenditure in southern Chinese healthy adults: measurement and development of a new equation. The British Journal of Nutrition, 104(12), 1817-1823. https://doi.org/10.1017/S0007114510002795",
eq(name = "yang_10-e", outcome = "bee", strata = list(ethnicity = "chinese"),
intercept = -801 * kj2kcal, weight = 114 * kj2kcal
)
),
# Yangmei 2011-b [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "yang_10", reference = "Yang, X., Li, M., Mao, D., Zeng, G., Zhuo, Q., Hu, W., . Huang, C. (2010). Basal energy expenditure in southern Chinese healthy adults: measurement and development of a new equation. The British Journal of Nutrition, 104(12), 1817-1823. https://doi.org/10.1017/S0007114510002795",
eq(name = "yang_10-m-med", outcome = "eer", strata = list(sex = "male", ethnicity = "chinese", activity_intensity = "medium"),
intercept = (-13.5 + 0.623 + 0.215) * mj2kcal, weight = 105 * mj2kcal, age = -0.025, wrist_circumference = -0.006, body_temperature = 0.342, bmi = -0.268
),
eq(name = "yang_10-f-med", outcome = "eer", strata = list(sex = "female", ethnicity = "chinese", activity_intensity = "medium"),
intercept = (-13.5 * mj2kcal + 0.215), weight = 105 * mj2kcal, age = -0.025, wrist_circumference = -0.006, body_temperature = 0.342, bmi = -0.268
),
eq(name = "yang_10-m-low", outcome = "eer", strata = list(sex = "male", ethnicity = "chinese", activity_intensity = "low"),
intercept = (-13.5 + 0.623) * mj2kcal, weight = 105 * mj2kcal, age = -0.025, wrist_circumference = -0.006, body_temperature = 0.342, bmi = -0.268
),
eq(name = "yang_10-f-low", outcome = "eer", strata = list(sex = "female", ethnicity = "chinese", activity_intensity = "low"),
intercept = -13.5 * mj2kcal, weight = 105 * mj2kcal, age = -0.025, wrist_circumference = -0.006, body_temperature = 0.342, bmi = -0.268
)
)
)
usethis::use_data(reer, overwrite = TRUE)
UBESP-DCTV/equationer documentation built on Jan. 17, 2021, 6:30 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
# code to prepare `reer` dataset goes here
library(equationer)
mj2kcal <- 239.006
kj2kcal <- 0.239006
mcal2kcal <- 1000
cal2kcal <- 1/1000
m2cm <- 100
cm2m <- 1/100
reer <- eqs_bag(name = "reer", reference = "Gregori et.al 2019",
# Alemán-Mateo 2006 a [CHECKED \(coef \+ udm\)] -------------------------
eqs(name = "aleman_06", reference = "Alemán-Mateo, H., Salazar, G., Hernández-Triana, M., & Valencia, M. E. (2006). Total energy expenditure, resting metabolic rate and physical activity level in free-living rural elderly men and women from Cuba, Chile and Mexico. European journal of clinical nutrition, 60(11), 1258.",
eq(name = "aleman_06-a", outcome = "rmr", strata = list(sex = "male"),
intercept = (1.6447 + 0.449)*mj2kcal, weight = 0.05714*mj2kcal
),
eq(name = "aleman_06-b", outcome = "rmr", strata = list(sex = "female"),
intercept = 1.6447*mj2kcal, weight = 0.05714*mj2kcal
)
),
# Anjos 2014 a [CHECKED \(coef \+ udm\)] -------------------------
eqs(name = "anjos_14", reference = "Anjos, L. A., Wahrlich, V., & Vasconcellos, M. T. (2014). BMR in a Brazilian adult probability sample: the Nutrition, Physical Activity and Health Survey. Public health nutrition, 17(4), 853-860.",
eq(name = "anjos_14-a", outcome = "rmr", strata = list(sex = "male"),
intercept = -450.5*kj2kcal, weight = 9.99*kj2kcal, height = 7.14, age = -2.79 # l'altezza è in metri, lo converto in cm
),
eq(name = "anjos_14-b", outcome = "rmr", strata = list(sex = "female"),
intercept = -814.3*kj2kcal, weight = 8.95*kj2kcal, height = 8.87, age = -0.70
)
),
# Arciero 1993 a [CHECKED \(coef \+ udm\)] -------------------------
eqs(name = "arciero_93-a", reference = "Arciero, P. J., Goran, M. I., Gardner, A. M., Ades, P. A., Tyzbir, R. S., & Poehlman, E. T. (1993). A practical equation to predict resting metabolic rate in older females. Journal of the American Geriatrics Society, 41(4), 389-395.",
eq(name = "arciero_93-a", outcome = "rmr", strata = list(sex = "female"),
intercept = 143.5, weight = 7.8, height = 4.7, menopausal = -39.5
)
),
# Arciero 1993 b [CHECKED \(coef \+ udm\)] -------------------------
eqs(name = "arciero_93-b", reference = "Arciero, Paul J, Goran, I., Gardner, W., Ades, P. A., Tyzbir, R. S., & Poehlman, E. T. (n.d.). A Practical Equation to Predict Resting Metabolic Rate in Older Men, 8.",
eq(name = "arciero_93-b", outcome = "rmr", strata = list(sex = "male"),
intercept = 1060, weight = 9.7, mean_chest_skinfold = -6.1, age = -1.8, lta = 0.1
)
),
# Bernstein 1983 a [CHECKED \(coef \+ udm\)] -----------------------
eqs(name = "bernstein_83-a", reference = "Bernstein, R. S., Thornton, J. C., Yang, M. U., Wang, J., Redmond, A. M., Pierson Jr, R. N., ... & Van Itallie, T. B. (1983). Prediction of the resting metabolic rate in obese patients. The American journal of clinical nutrition, 37(4), 595-602.",
eq(name = "bernstein_83-a-m", outcome = "rmr", strata = list(sex = "male"),
intercept = -1032, weight = 11.02, height = 10.23, age = -5.8
),
eq(name = "bernstein_83-a-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 844, weight = 7.48, height = -0.42, age = -3
)
),
# Bernstein 1983 b [CHECKED \(coef \+ udm\)] -----------------------
eqs(name = "bernstein_83-b", reference = "Bernstein, R. S., Thornton, J. C., Yang, M. U., Wang, J., Redmond, A. M., Pierson Jr, R. N., ... & Van Itallie, T. B. (1983). Prediction of the resting metabolic rate in obese patients. The American journal of clinical nutrition, 37(4), 595-602.",
eq(name = "bernstein_83-b-m-sa", outcome = "rmr", strata = list(sex = "male"),
intercept = -1079, age = 6.2, body_surface_area = 1372
),
eq(name = "bernstein_83-b-f-sa", outcome = "rmr", strata = list(sex = "female"),
intercept = -53, age = -2.3, body_surface_area = 758
)
),
# Camps 2016 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "camps_16", reference = "Camps, S. G., Wang, N. X., Tan, W. S. K., & Henry, C. J. (2016). Estimation of basal metabolic rate in Chinese: are the current prediction equations applicable? Nutrition Journal, 15(1), 79. https://doi.org/10.1186/s12937-016-0197-2",
eq(name = "camps_16-m", outcome = "bmr", strata = list(sex = "male"),
intercept = (1960 + 828) * kj2kcal, weight = 52.6 * kj2kcal
),
eq(name = "camps_16-f", outcome = "bmr", strata = list(sex = "female"),
intercept = 1960 * kj2kcal, weight = 52.6 * kj2kcal
)
),
# Carrasco 2002 [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "carrasco_02 (age > = 30)", reference = "Carrasco, F., Reyes, E., Nunez, C., Riedemann, K., Rimler, O., Sanchez, G., & Sarrat, G. (2002). [Resting energy expenditure in obese and non-obese Chilean subjects: comparison with predictive equations for the Chilean population]. Revista medica de Chile, 130(1), 51–60.",
eq(name = "carrasco_02_30-m", outcome = "bmr", strata = list(sex = "male", older_29 = TRUE),
intercept = 753, weight = 11.2
),
eq(name = "carrasco_02_30-f", outcome = "bmr", strata = list(sex = "female", older_29 = TRUE),
intercept = 593, weight = 10.9
)
),
# Carrasco 2002 [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "carrasco_02 (18 <= age <= 74)", reference = "Carrasco, F., Reyes, E., Nunez, C., Riedemann, K., Rimler, O., Sanchez, G., & Sarrat, G. (2002). [Resting energy expenditure in obese and non-obese Chilean subjects: comparison with predictive equations for the Chilean population]. Revista medica de Chile, 130(1), 51–60.",
eq(name = "carrasco_02-m", outcome = "bmr", strata = list(sex = "male", age_18_74 = TRUE),
intercept = 864, weight = 11.1, age = -2.5
),
eq(name = "carrasco_02-f", outcome = "bmr", strata = list(sex = "female", age_18_74 = TRUE),
intercept = 716, weight = 10.9, age = -2.85
)
),
# Cioffi 2018 --------------------------
eqs(name = "cioffi", reference = "Cioffi I., Marra M., Speranza E., et al. New predictive equation in a large cohort of italian adults with severe obesity. Eating Weight Disord. 2018;23(5):718.",
eq(name = "cioffi-m", outcome = "ree", strata = list(sex = "male", bmi_class = "obese"),
intercept = 854, weight = 13.4, age = -2.5
),
eq(name = "cioffi-f", outcome = "ree", strata = list(sex = "female", bmi_class = "obese"),
intercept = 931, weight = 14, age = -2.6
)
),
# # Cole 2005 [CHECKED \(coef \+ udm\)] --------------------------
#
# eqs(name = "cole_05", reference = "Cole, T. J., & Henry, C. J. K. (2005). The Oxford Brookes basal metabolic rate database-a reanalysis. Public health nutrition, 8(7a), 1202-1212.",
#
# eq(name = "cole_05", outcome = "bmr", strata = list(sex = "male"),
# intercept = 0.73, weight =
# ),
# eq(name = "cole_05", outcome = "bmr", strata = list(sex = "female"),
# intercept =
# )
#
# ),
# Cunningham 1980 (no age) [CHECKED \(coef \+ udm\)] --------------
eqs(name = "cunningham_80-noage", reference = "Cunningham, J. J. (1980). A reanalysis of the factors influencing basal metabolic rate in normal adults. The American journal of clinical nutrition, 33(11), 2372-2374.",
eq(name = "cunningham_80-noage", outcome = "bmr", strata = list(),
intercept = 500, lbm = 22
)
),
# Cunningham 1980 [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "cunningham_80", reference = "Cunningham, J. J. (1980). A reanalysis of the factors influencing basal metabolic rate in normal adults. The American journal of clinical nutrition, 33(11), 2372-2374.",
eq(name = "cunningham_80", outcome = "bmr", strata = list(),
intercept = 601.2, lbm = 21, age = -2.6
)
),
# De la Cruz 2015 [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "delacruz_15", reference = "",
eq(name = "delacruz_15-m", outcome = "ree", strata = list(sex = "male"),
intercept = 1376.4, weight = 11.1, age = -8
),
eq(name = "delacruz_15-f", outcome = "ree", strata = list(sex = "female"),
intercept = 1376.4 - 308, weight = 11.1, age = -8
)
),
# De Lorenzo 2001 [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "delorenzo_01", reference = "De Lorenzo, A., Tagliabue, A., Andreoli, A., Testolin, G., Comelli, M., & Deurenberg, P. (2001). Measured and predicted resting metabolic rate in Italian males and females, aged 18-59 y. European Journal of Clinical Nutrition, 55(3), 208.",
eq(name = "delorenzo_01-m", outcome = "rmr", strata = list(sex = "male"),
intercept = 487 * kj2kcal, weight = 53.284 * kj2kcal, height = 20.957 * kj2kcal, age = -23.859 * kj2kcal
),
eq(name = "delorenzo_01-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 944 * kj2kcal, weight = 46.322 * kj2kcal, height = 15.744 * kj2kcal, age = -16.66 * kj2kcal
)
),
# De Luis 2016 [CHECKED \(coef \+ udm\)] ---------------------------
eqs(name = "deluis_16", reference = "De Luis, D. A., Aller, R., Izaola, O., & Romero, E. (2006). Prediction equation of resting energy expenditure in an adult Spanish population of obese adult population. Annals of Nutrition and Metabolism, 50(3), 193-196.",
eq(name = "deluis_16-m", outcome = "ree", strata = list(sex = "male"),
intercept = 58.6, weight = 6.1, height = 1023.7*cm2m, age = -9.5
),
eq(name = "deluis_16-f", outcome = "ree", strata = list(sex = "female"),
intercept = 1272.5, weight = 9.8, height = -61.6*cm2m, age = -8.2
)
),
# European Communities 1993 [CHECKED \(coef \+ udm\)] --------------
eqs(name = "eu_93 (age >= 75)", reference = "SCF (Scientific Committee for Food). (1993). Nutrient and energy intakes for the European Community. Reports of the Scientific Committee for Food, 31st Series, 248.",
eq(name = "eu_93_75-m", outcome = "bmr", strata = list(sex = "male", older_74 = TRUE),
intercept = 3.43 * mj2kcal, weight = 0.035 * mj2kcal
),
eq(name = "eu_93_75-f", outcome = "bmr", strata = list(sex = "female", older_74 = TRUE),
intercept = 2.61 * mj2kcal, weight = 0.041 * mj2kcal
)
),
eqs(name = "eu_93 (64 <= age <= 74)", reference = "SCF (Scientific Committee for Food). (1993). Nutrient and energy intakes for the European Community. Reports of the Scientific Committee for Food, 31st Series, 248.",
eq(name = "eu_93_60-74-m", outcome = "bmr", strata = list(sex = "male", age_60_74 = TRUE),
intercept = 2.93 * mj2kcal, weight = 0.0499 * mj2kcal
),
eq(name = "eu_93_60-74-f", outcome = "bmr", strata = list(sex = "female", age_60_74 = TRUE),
intercept = 2.88 * mj2kcal, weight = 0.0386 * mj2kcal
)
),
# Frankenfield 2003 [CHECKED \(coef \+ udm\)] ----------------------
eqs(name = "frankenfield_03", reference = "Frankenfield, D. C., Rowe, W. A., Smith, J. S., & Cooney, R. N. (2003). Validation of several established equations for resting metabolic rate in obese and nonobese people. Journal of the American Dietetic Association, 103(9), 1152-1159.",
eq(name = "frankenfield_m", outcome = "rmr", strata = list(sex = "male", bmi_class = "obese"),
intercept = 66 , adjusted_weight = 13.75, height = 5, age = -6.76
),
eq(name = "frankenfield_f", outcome = "rmr", strata = list(sex = "female", bmi_class = "obese"),
intercept = 655, adjusted_weight = 9.56, height = 1.85, age = -4.68
)
),
## adjusted weight lo calcolo Adjusted_weight= [(actual body weight - ideal weight)x0.25]+ideal weight
## deal Body Weight (in kilograms) = 45.5 kg + 2.2 kg for each inch over 5 feet. If the wrist is 7 inches,
## the IBW remains the way it is. However, if the wrist size is more or less than 7 inches, you add or
## subtract 10% of ideal body weight respectively.
# Frankenfield 2013-a [CHECKED \(coef \+ udm\)] --------------------
eqs(name = "frankenfield_13-a", reference = "Frankenfield, D. C. (2013). Bias and accuracy of resting metabolic rate equations in non-obese and obese adults. Clinical nutrition, 32(6), 976-982.",
eq(name = "frankenfield_13-a-m-o", outcome = "rmr", strata = list(sex = "male", bmi_class = "obese"),
intercept = 440 + 244, weight = 10, height = 3, age = -5
),
eq(name = "frankenfield_13-a-m-no", outcome = "rmr", strata = list(sex = "male", bmi_class = "normal weight"),
intercept = 454 + 207, weight = 10, height = 3, age = -5
),
eq(name = "frankenfield_13-a-f-o", outcome = "rmr", strata = list(sex = "female", bmi_class = "obese"),
intercept = 440, weight = 10, height = 3, age = -5
),
eq(name = "frankenfield_13-a-f-no", outcome = "rmr", strata = list(sex = "female", bmi_class = "normal weight"),
intercept = 454, weight = 10, height = 3, age = -6
)
),
# Frankenfield 2013-b [CHECKED \(coef \+ udm\)] --------------------
eqs(name = "frankenfield_13-b", reference = "Frankenfield, D. C. (2013). Bias and accuracy of resting metabolic rate equations in non-obese and obese adults. Clinical nutrition, 32(6), 976-982.",
eq(name = "frankenfield_13-b-m-no", outcome = "rmr", strata = list(sex = "male", bmi_class = "obese"),
intercept = 865 + 274, weight = 10, age = -5
),
eq(name = "frankenfield_13-b-m-o", outcome = "rmr", strata = list(sex = "male", bmi_class = "normal weight"),
intercept = 838 + 230, weight = 11, age = -6
),
eq(name = "frankenfield_13-b-f-no", outcome = "rmr", strata = list(sex = "female", bmi_class = "obese"),
intercept = 865, weight = 10, age = -5
),
eq(name = "frankenfield_13-b-f-o", outcome = "rmr", strata = list(sex = "female", bmi_class = "normal weight"),
intercept = 838, weight = 11, age = 6
)
),
# Fredrix 1990 [CHECKED \(coef \+ udm\)] ---------------------------
eqs(name = "fredrix_90", reference = "Fredrix, E. W., Soeters, P. B., Deerenberg, I. M., Kester, A. D., von Meyenfeldt, M. F., & Saris, W. H. (1990). Resting and sleeping energy expenditure in the elderly. European Journal of Clinical Nutrition, 44(10), 741–747.",
eq(name = "fredrix_90-f", outcome = "ree", strata = list(sex = "male"),
intercept = (1641 - 203), weight = 10.7, age = -9
),
eq(name = "fredrix_90-m", outcome = "ree", strata = list(sex = "female"),
intercept = (1641 - 2*203), weight = 10.7, age = -9
)
),
# Freni 2000-w [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "freni_00-w", reference = "Freni, S. C., Lewis, S. M., Mayhugh, M. A., Jairaj, K., Arani, R. B., Turturro, A., & Hart, R. W. (2000). Improved equations for estimating the resting metabolic rate. Human and Ecological Risk Assessment, 6(6), 1039-1054.",
eq(name = "freni_00-w-m", outcome = "ree", strata = list(sex = "male"),
intercept = 635.8, weight = 12.98
),
eq(name = "freni_00-w-f", outcome = "ree", strata = list(sex = "female"),
intercept = 681.5, weight = 9.16
)
),
# Freni 2000-wa [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "freni_00-wa", reference = "Freni, S. C., Lewis, S. M., Mayhugh, M. A., Jairaj, K., Arani, R. B., Turturro, A., & Hart, R. W. (2000). Improved equations for estimating the resting metabolic rate. Human and Ecological Risk Assessment, 6(6), 1039-1054.",
eq(name = "freni_00-wa-m", outcome = "ree", strata = list(sex = "male"),
intercept = 1007.5, weight = 12.48, age = -7.84
),
eq(name = "freni_00-wa-f", outcome = "ree", strata = list(sex = "female"),
intercept = 785.2, weight = 9.36, age = -2.48
)
),
# Freni 2000-was [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "freni_00-was", reference = "Freni, S. C., Lewis, S. M., Mayhugh, M. A., Jairaj, K., Arani, R. B., Turturro, A., & Hart, R. W. (2000). Improved equations for estimating the resting metabolic rate. Human and Ecological Risk Assessment, 6(6), 1039-1054.",
eq(name = "freni_00-was-1-m", outcome = "ree", strata = list(sex = "male", smoke = FALSE),
intercept = 1002.8, weight = 12.15, age = -7.35
),
eq(name = "freni_00-was-2-m", outcome = "ree", strata = list(sex = "male", smoke = TRUE),
intercept = 1002.8 + 154.56, weight = 12.15, age = -7.35
),
eq(name = "freni_00-was-1-f", outcome = "ree", strata = list(sex = "female", smoke = FALSE),
intercept = 771.1, weight = 9.95, age = -2.58
),
eq(name = "freni_00-was-2-f", outcome = "ree", strata = list(sex = "female", smoke = TRUE),
intercept = 771.1 + 110.54, weight = 9.95, age = -2.58
)
),
# Freni 2000-wasbp [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "freni_00-wasbp", reference = "Freni, S. C., Lewis, S. M., Mayhugh, M. A., Jairaj, K., Arani, R. B., Turturro, A., & Hart, R. W. (2000). Improved equations for estimating the resting metabolic rate. Human and Ecological Risk Assessment, 6(6), 1039-1054.",
eq(name = "freni_00-wasbp-1", outcome = "ree", strata = list(sex = "male", smoke = TRUE),
intercept = 687.2 + 162.00, weight = 11.08, age = -6.84, blood_pressure_gradient = 7.48
),
eq(name = "freni_00-wasbp-2", outcome = "ree", strata = list(sex = "male", smoke = FALSE),
intercept = 635.8, weight = 12.48, age = 7.84, blood_pressure_gradient = 7.48
),
eq(name = "freni_00-wasbp-1-f", outcome = "ree", strata = list(sex = "female", smoke = TRUE),
intercept = 711.4 + 112.56, weight = 9.15, age = -3.88, blood_pressure_gradient = 3.07
),
eq(name = "freni_00-wasbp-2-f", outcome = "ree", strata = list(sex = "female", smoke = FALSE),
intercept = 711.4, weight = 9.15, age = -3.88, blood_pressure_gradient = 3.07
)
),
# Freni 2000-wasbpm [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "freni_00-wasbpm-m", reference = "Freni, S. C., Lewis, S. M., Mayhugh, M. A., Jairaj, K., Arani, R. B., Turturro, A., & Hart, R. W. (2000). Improved equations for estimating the resting metabolic rate. Human and Ecological Risk Assessment, 6(6), 1039-1054.",
eq(name = "freni_00-wasbpm-1-m", outcome = "ree", strata = list(sex = "male", smoke = TRUE, race = "black", meal = "fasting"),
intercept = 1138.2 + 228.62, weight = 11.44, age = -7.13, blood_pressure_gradient = 5.79, hour = -67.85
),
eq(name = "freni_00-wasbpm-2-m", outcome = "ree", strata = list(sex = "male", smoke = TRUE, race = "white", meal = "fasting"),
intercept = 1138.2 + 137.93 + 228.62, weight = 11.44, age = -7.13, blood_pressure_gradient = 5.79, hour = -67.85
),
eq(name = "freni_00-wasbpm-3-m", outcome = "ree", strata = list(sex = "male", smoke = TRUE, race = "white", meal = "breakfast prior to calorimetry"),
intercept = 1138.2 + 137.93 + 228.62 + 163.923, weight = 11.44, age = -7.13, blood_pressure_gradient = 5.79, hour = -67.85
),
eq(name = "freni_00-wasbpm-4-m", outcome = "ree", strata = list(sex = "male", smoke = TRUE, race = "black", meal = "breakfast prior to calorimetry"),
intercept = 1138.2 + 228.62 + 163.923, weight = 11.44, age = -7.13, blood_pressure_gradient = 5.79, hour = -67.85
),
eq(name = "freni_00-wasbpm-5-m", outcome = "ree", strata = list(sex = "male", smoke = FALSE, race = "black", meal = "fasting"),
intercept = 1138.2, weight = 11.44, age = -7.13, blood_pressure_gradient = 5.79, hour = -67.85
),
eq(name = "freni_00-wasbpm-6-m", outcome = "ree", strata = list(sex = "male", smoke = FALSE, race = "white", meal = "fasting"),
intercept = 1138.2 + 137.93, weight = 11.44, age = -7.13, blood_pressure_gradient = 5.79, hour = -67.85
),
eq(name = "freni_00-wasbpm-7-m", outcome = "ree", strata = list(sex = "male", smoke = FALSE, race = "white", meal = "breakfast prior to calorimetry"),
intercept = 1138.2 + 137.93 + 163.923, weight = 11.44, age = -7.13, blood_pressure_gradient = 5.79, hour = -67.85
),
eq(name = "freni_00-wasbpm-8-m", outcome = "ree", strata = list(sex = "male", smoke = FALSE, race = "black", meal = "breakfast prior to calorimetry"),
intercept = 1138.2 + 163.923, weight = 11.44, age = -7.13, blood_pressure_gradient = 5.79, hour = -67.85
)
),
eqs(name = "freni_00-wasbpm-f", reference = "Freni, S. C., Lewis, S. M., Mayhugh, M. A., Jairaj, K., Arani, R. B., Turturro, A., & Hart, R. W. (2000). Improved equations for estimating the resting metabolic rate. Human and Ecological Risk Assessment, 6(6), 1039-1054.",
eq(name = "freni_00-wasbpm-1-f", outcome = "ree", strata = list(sex = "female", smoke = TRUE, race = "black"),
intercept = -1492.0 + 81.00, weight = 9.58, age = -3.55, blood_pressure_gradient = 1.94, pulse = 4.19, body_temperature = 51.93
),
eq(name = "freni_00-wasbpm-2-f", outcome = "ree", strata = list(sex = "female", smoke = TRUE, race = "white"),
intercept = -1492.0 + 78.31 + 81.00, weight = 9.58, age = -3.55, blood_pressure_gradient = 1.94, pulse = 4.19, body_temperature = 51.93
),
eq(name = "freni_00-wasbpm-5-f", outcome = "ree", strata = list(sex = "female", smoke = FALSE, race = "black"),
intercept = -1492.0, weight = 9.58, age = -3.55, blood_pressure_gradient = 1.94, pulse = 4.19, body_temperature = 51.93
),
eq(name = "freni_00-wasbpm-6-f", outcome = "ree", strata = list(sex = "female", smoke = FALSE, race = "white"),
intercept = -1492.0 + 78.31, weight = 9.58, age = -3.55, blood_pressure_gradient = 1.94, pulse = 4.19, body_temperature = 51.93
)
),
# Gaillard 2008-a [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "gaillard_08-a", reference = "Gaillard, C., Alix, E., Sallé, A., Berrut, G., & Ritz, P. (2008). A practical approach to estimate resting energy expenditure in frail elderly people. The Journal of Nutrition Health and Aging, 12(4), 277.",
eq(name = "gaillard_08-a-bmig21", outcome = "ree", strata = list(bmi_greater_21 = TRUE),
intercept = 0, weight = 18.84
),
eq(name = "gaillard_08-a-nbmig21", outcome = "ree", strata = list(bmi_greater_21 = FALSE),
intercept = 0, weight = 22.29
)
),
# Gaillard 2008-b [CHECKED \(coef \+ udm\)] ------------------------
#
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
# NOTA: IL WEIGHT ERA CON SEGNO "MENO" MA PORTA A RISULTATI INVEROSIMILI (OLTRE CHE CONTRARI SIA ALL'INTUIZIONE CHE A TUTTE LE LORO ALTRE STESSE EQUAZIONI... ABBIAMO MESSO IL PIÙ E I RISULTATI SEMBRANO RAGIONEVOLI, DA COPNTATTARE gAILLARD PER CONFERMA)
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
eqs(name = "gaillard_08-b", reference = "Gaillard, C., Alix, E., Sallé, A., Berrut, G., & Ritz, P. (2008). A practical approach to estimate resting energy expenditure in frail elderly people. The Journal of Nutrition Health and Aging, 12(4), 277.",
eq(name = "gaillard_08-b", outcome = "ree", strata = list(),
intercept = 82.6, weight = 9.5, height = 6.5, age = -6.1
)
),
# Gaillard 2008-c [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "gaillard_08-c", reference = "Gaillard, C., Alix, E., Sallé, A., Berrut, G., & Ritz, P. (2008). A practical approach to estimate resting energy expenditure in frail elderly people. The Journal of Nutrition Health and Aging, 12(4), 277.",
eq(name = "gaillard_08-c", outcome = "ree", strata = list(),
intercept = 497, weight = 11.6
)
),
# Ganpule 2007 [CHECKED \(coef \+ udm\)] ---------------------------
eqs(name = "ganpule_07", reference = "Ganpule, A. A., Tanaka, S., Ishikawa-Takata, K., & Tabata, I. (2007). Interindividual variability in sleeping metabolic rate in Japanese subjects. European Journal of Clinical Nutrition, 61(11), 1256.",
eq(name = "ganpule_07-m", outcome = "rmr", strata = list(sex = "male", ethnicity = "japanese"),
intercept = 0.1238*mj2kcal, weight = 0.0481*mj2kcal, height = 0.0234*mj2kcal, age = -0.0138*mj2kcal
),
eq(name = "ganpule_07-f", outcome = "rmr", strata = list(sex = "female", ethnicity = "japanese"),
intercept = (0.1238 - 0.5473)*mj2kcal, weight = 0.0481*mj2kcal, height = 0.0234*mj2kcal, age = -0.0138*mj2kcal
)
),
# Gougeon 2002 [CHECKED \(coef \+ udm\)] ---------------------------
eqs(name = "gougeon_02", reference = "Gougeon, R., Lamarche, M., Yale, J. F., & Venuta, T. (2002). The prediction of resting energy expenditure in type 2 diabetes mellitus is improved by factoring for glycemia. International journal of obesity, 26(12), 1547.",
eq(name = "gougeon_02", outcome = "rmr", strata = list(sex = "male", ethnicity = "japanese"), # FPG = Fasting plasma glucose in mM, HC = Hip Circumference
intercept = 4044, weight = 79, fasting_plasma_glucose = 78, hip_circumference = -43
)
),
# Harris Benedict 1918 [CHECKED \(coef \+ udm\)] -------------------
eqs(name = "harris_benedict_918", reference = "Harris, J. A., & Benedict, F. G. (1918). A biometric study of human basal metabolism. Proceedings of the National Academy of Sciences of the United States of America, 4(12), 370.",
eq(name = "harris_benedict_918-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 655.0955, weight = 9.5634, height = 1.8496, age = -4.6756
),
eq(name = "harris_benedict_918-m", outcome = "rmr", strata = list(sex = "male"),
intercept = 66.4730, weight = 13.7516, height = 5.0033, age = -6.7550
)
),
# Henry 2005 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "henry_05-a", reference = "Henry, C. J. K. (2005). Basal metabolic rate studies in humans: measurement and development of new equations. Public health nutrition, 8(7a), 1133-1152.",
eq(name = "henry_05-a-m", outcome = "rmr", strata = list(sex = "male", older_60 = TRUE),
intercept = 514, weight = 13.5
),
eq(name = "henry_05-a-f", outcome = "rmr", strata = list(sex = "female", older_60 = TRUE),
intercept = 569, weight = 10.1
)
),
# Henry 2005 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "henry_05-b", reference = "Henry, C. J. K. (2005). Basal metabolic rate studies in humans: measurement and development of new equations. Public health nutrition, 8(7a), 1133-1152.",
eq(name = "henry_05-b-m", outcome = "rmr", strata = list(sex = "male", age_60_70 = TRUE),
intercept = 567, weight = 13.0
),
eq(name = "henry_05-b-f", outcome = "rmr", strata = list(sex = "female", age_60_70 = TRUE),
intercept = 572, weight = 10.2
)
),
# Henry 2005 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "henry_05-c", reference = "Henry, C. J. K. (2005). Basal metabolic rate studies in humans: measurement and development of new equations. Public health nutrition, 8(7a), 1133-1152.",
eq(name = "henry_05-c-m", outcome = "rmr", strata = list(sex = "male", older_70 = TRUE),
intercept = 481, weight = 13.7
),
eq(name = "henry_05-c-f", outcome = "rmr", strata = list(sex = "female", older_70 = TRUE),
intercept = 577, weight = 10.0
)
),
# Huang 2014 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "huang_14", reference = "Huang, K. C., Kormas, N., Steinbeck, K., Loughnan, G., & Caterson, I. D. (2004). Resting metabolic rate in severely obese diabetic and nondiabetic subjects. Obesity research, 12(5), 840-845.",
eq(name = "huang_14-m-d", outcome = "rmr", strata = list(sex = "male", diabetic = TRUE, bmi_class = "obese"),
intercept = (71.767 + 257.293 + 145.959), age = -2.337, height = 4.132, weight = 9.996
),
eq(name = "huang_14-m-nd", outcome = "rmr", strata = list(sex = "male", diabetic = FALSE, bmi_class = "obese"),
intercept = (71.767 + 257.293 ), age = -2.337, height = 4.132, weight = 9.996
),
eq(name = "huang_14-f-nd", outcome = "rmr", strata = list(sex = "female", diabetic = FALSE, bmi_class = "obese"),
intercept = (71.767 ), age = -2.337, height = 4.132, weight = 9.996
),
eq(name = "huang_14-f-d", outcome = "rmr", strata = list(sex = "female", diabetic = TRUE, bmi_class = "obese"),
intercept = (71.767 + 145.959), age = -2.337, height = 4.132, weight = 9.996
)
),
# Hedayati 2011 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "hedayati_11-a", reference = "Hedayati, K. K., & Dittmar, M. (2011). Body circumferences are predictors of weight adjusted resting energy expenditure in older people. The journal of nutrition, health & aging, 15(10), 803-808.",
eq(name = "hedayati_11-m", outcome = "rmr", strata = list(sex = "male"),
intercept = 41.567, abdomen_circ = -0.226
)
),
eqs(name = "hedayati_11-b", reference = "Hedayati, K. K., & Dittmar, M. (2011). Body circumferences are predictors of weight adjusted resting energy expenditure in older people. The journal of nutrition, health & aging, 15(10), 803-808.",
eq(name = "hedayati_11-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 46.155, hip_circumference = -0.273
)
),
eqs(name = "hedayati_11-c", reference = "Hedayati, K. K., & Dittmar, M. (2011). Body circumferences are predictors of weight adjusted resting energy expenditure in older people. The journal of nutrition, health & aging, 15(10), 803-808.",
eq(name = "hedayati_11-f-nd", outcome = "rmr", strata = list(sex = "female", diabetic = FALSE, bmi_class = "obese"),
intercept = 69.865, hip_circumference = -0.229, height = -0.173 * m2cm
)
),
eqs(name = "hedayati_11-d", reference = "Hedayati, K. K., & Dittmar, M. (2011). Body circumferences are predictors of weight adjusted resting energy expenditure in older people. The journal of nutrition, health & aging, 15(10), 803-808.",
eq(name = "hedayati_11-f-d", outcome = "rmr", strata = list(sex = "female", diabetic = TRUE, bmi_class = "obese"),
intercept = 68.143, hip_circumference = -0.025, height = -0.210 * m2cm, bmi = -0.519
)
),
# Ikeda 2013 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "ikeda_13", reference = "Ikeda, K., Fujimoto, S., Goto, M., Yamada, C., Hamasaki, A., Ida, M., ... & Inagaki, N. (2013). A new equation to estimate basal energy expenditure of patients with diabetes. Clinical nutrition, 32(5), 777-782.",
eq(name = "ikeda_13-m", outcome = "bee", strata = list(sex = "male", diabetic = TRUE),
intercept = (750 + 125), weight = 10, age = -3
),
eq(name = "ikeda_13-f", outcome = "bee", strata = list(sex = "female", diabetic = TRUE),
intercept = 750, weight = 10, age = -3
)
),
# IOM 2005 [CHECKED \(coef \+ udm\)] -------------------------------
eqs(name = "iom_05-am", reference = "Institute of Medicine (U.S.), & Institute of Medicine (U.S.) (Eds.). (2005). Dietary reference intakes for energy, carbohydrate, fiber, fat, fatty acids, cholesterol, protein, and amino acids. Washington, D.C: National Academies Press.",
eq(name = "iom_05-am-n-s", outcome = "eer", strata = list(sex = "male", bmi_class = "normal weight", pal = "sedentary"),
intercept = 661.8, age = -9.53, weight = 15.91, height = 539.6 * cm2m
),
eq(name = "iom_05-af-n-s", outcome = "eer", strata = list(sex = "female", bmi_class = "normal weight", pal = "sedentary"),
intercept = 354.1, age = -6.91, weight = 9.36, height = 726 * cm2m
),
eq(name = "iom_05-am-ow-s", outcome = "eer", strata = list(sex = "male", bmi_class = "overweight", pal = "sedentary"),
intercept = 1085.6, age = -10.08, weight = 13.7, height = 416 * cm2m
),
eq(name = "iom_05-af-ow-s", outcome = "eer", strata = list(sex = "female", bmi_class = "overweight", pal = "sedentary"),
intercept = 447.6, age = -7.95, weight = 11.4, height = 619 * cm2m
),
eq(name = "iom_05-am-n-l", outcome = "eer", strata = list(sex = "male", bmi_class = "normal weight", pal = "low-active"),
intercept = 661.8, age = -9.53, weight = 15.91 * 1.11, height = 539.6 * cm2m
),
eq(name = "iom_05-af-n-l", outcome = "eer", strata = list(sex = "female", bmi_class = "normal weight", pal = "low-active"),
intercept = 354.1, age = -6.91, weight = 9.36 * 1.12, height = 726 * cm2m
),
eq(name = "iom_05-am-ow-l", outcome = "eer", strata = list(sex = "male", bmi_class = "overweight", pal = "low-active"),
intercept = 1085.6, age = -10.08, weight = 13.7 * 1.11, height = 416 * cm2m
),
eq(name = "iom_05-af-ow-l", outcome = "eer", strata = list(sex = "female", bmi_class = "overweight", pal = "low-active"),
intercept = 447.6, age = -7.95, weight = 11.4 * 1.12, height = 619 * cm2m
),
eq(name = "iom_05-am-n-a", outcome = "eer", strata = list(sex = "male", bmi_class = "normal weight", pal = "active"),
intercept = 661.8, age = -9.53, weight = 15.91 * 1.25, height = 539.6 * cm2m
),
eq(name = "iom_05-af-n-a", outcome = "eer", strata = list(sex = "female", bmi_class = "normal weight", pal = "active"),
intercept = 354.1, age = -6.91, weight = 9.36 * 1.27, height = 726 * cm2m
),
eq(name = "iom_05-am-ow-a", outcome = "eer", strata = list(sex = "male", bmi_class = "overweight", pal = "active"),
intercept = 1085.6, age = -10.08, weight = 13.7 * 1.25, height = 416 * cm2m
),
eq(name = "iom_05-af-ow-a", outcome = "eer", strata = list(sex = "female", bmi_class = "overweight", pal = "active"),
intercept = 447.6, age = -7.95, weight = 11.4 * 1.27, height = 619 * cm2m
),
eq(name = "iom_05-am-n-va", outcome = "eer", strata = list(sex = "male", bmi_class = "normal weight", pal = "very-active"),
intercept = 661.8, age = -9.53, weight = 15.91 * 1.48, height = 539.6 * cm2m
),
eq(name = "iom_05-af-n-va", outcome = "eer", strata = list(sex = "female", bmi_class = "normal weight", pal = "very-active"),
intercept = 354.1, age = -6.91, weight = 9.36 * 1.45, height = 726 * cm2m
),
eq(name = "iom_05-am-ow-va", outcome = "eer", strata = list(sex = "male", bmi_class = "overweight", pal = "very-active"),
intercept = 1085.6, age = -10.08, weight = 13.7 * 1.45, height = 416 * cm2m
),
eq(name = "iom_05-af-ow-va", outcome = "eer", strata = list(sex = "female", bmi_class = "overweight", pal = "very-active"),
intercept = 447.6, age = -7.95, weight = 11.4 * 1.45, height = 619 * cm2m
)
),
# IOM 2005-b [CHECKED \(coef \+ udm\)] -------------------------------
eqs(name = "iom_05-bm-a", reference = "Institute of Medicine (U.S.), & Institute of Medicine (U.S.) (Eds.). (2005). Dietary reference intakes for energy, carbohydrate, fiber, fat, fatty acids, cholesterol, protein, and amino acids. Washington, D.C: National Academies Press.",
eq(name = "iom_05-m-n-s", outcome = "eer", strata = list(sex = "male", bmi_class = "normal weight"),
intercept = 204, age = -4, weight = 11.69, height = 450.5*cm2m
),
eq(name = "iom_05-f-n-s", outcome = "eer", strata = list(sex = "female", bmi_class = "normal weight"),
intercept = 255, age = -2.35, weight = 9.39, height = 361.6*cm2m
)
),
eqs(name = "iom_05-bm-b", reference = "Institute of Medicine (U.S.), & Institute of Medicine (U.S.) (Eds.). (2005). Dietary reference intakes for energy, carbohydrate, fiber, fat, fatty acids, cholesterol, protein, and amino acids. Washington, D.C: National Academies Press.",
eq(name = "iom_05-m-ow-s", outcome = "eer", strata = list(sex = "male"),
intercept = 293, age = -3.8, weight = 10.12, height = 456.4*cm2m
),
eq(name = "iom_05-f-ow-s", outcome = "eer", strata = list(sex = "female"),
intercept = 247, age = -2.67, weight = 8.6, height = 401.4*cm2m
)
),
eqs(name = "iom_05-bm-c", reference = "Institute of Medicine (U.S.), & Institute of Medicine (U.S.) (Eds.). (2005). Dietary reference intakes for energy, carbohydrate, fiber, fat, fatty acids, cholesterol, protein, and amino acids. Washington, D.C: National Academies Press.",
eq(name = "iom_05-m-n-l", outcome = "eer", strata = list(sex = "male", bmi_class = "normal weight", pal = "low-active"),
intercept = 661.8, age = -9.53, weight = 15.91 * 1.11, height = 539.6*cm2m
),
eq(name = "iom_05-f-n-l", outcome = "eer", strata = list(sex = "female", bmi_class = "normal weight", pal = "low-active"),
intercept = 354.1, age = -6.91, weight = 9.36 * 1.11, height = 726*cm2m
),
eq(name = "iom_05-m-ow-l", outcome = "eer", strata = list(sex = "male", bmi_class = "overweight", pal = "low-active"),
intercept = 1085.6, age = -10.08, weight = 13.7 * 1.11, height = 416*cm2m
),
eq(name = "iom_05-f-ow-l", outcome = "eer", strata = list(sex = "female", bmi_class = "overweight", pal = "low-active"),
intercept = 447.6, age = -7.95, weight = 11.4 * 1.11, height = 619*cm2m
),
eq(name = "iom_05-m-n-a", outcome = "eer", strata = list(sex = "male", bmi_class = "normal weight", pal = "active"),
intercept = 661.8, age = -9.53, weight = 15.91 * 1.25, height = 539.6*cm2m
),
eq(name = "iom_05-f-n-a", outcome = "eer", strata = list(sex = "female", bmi_class = "normal weight", pal = "active"),
intercept = 354.1, age = -6.91, weight = 9.36 * 1.25, height = 726*cm2m
),
eq(name = "iom_05-m-ow-a", outcome = "eer", strata = list(sex = "male", bmi_class = "overweight", pal = "active"),
intercept = 1085.6, age = -10.08, weight = 13.7 * 1.25, height = 416*cm2m
),
eq(name = "iom_05-f-ow-a", outcome = "eer", strata = list(sex = "female", bmi_class = "overweight", pal = "active"),
intercept = 447.6, age = -7.95, weight = 11.4 * 1.25, height = 6.19
),
eq(name = "iom_05-m-n-va", outcome = "eer", strata = list(sex = "male", bmi_class = "normal weight", pal = "very-active"),
intercept = 661.8, age = -9.53, weight = 15.91 * 1.48, height = 5.396
),
eq(name = "iom_05-f-n-va", outcome = "eer", strata = list(sex = "female", bmi_class = "normal weight", pal = "very-active"),
intercept = 354.1, age = -6.91, weight = 9.36 * 1.48, height = 7.26
),
eq(name = "iom_05-m-ow-va", outcome = "eer", strata = list(sex = "male", bmi_class = "overweight", pal = "very-active"),
intercept = 1085.6, age = -10.08, weight = 13.7 * 1.48, height = 4.16
),
eq(name = "iom_05-f-ow-va", outcome = "eer", strata = list(sex = "female", bmi_class = "overweight", pal = "very-active"),
intercept = 447.6, age = -7.95, weight = 11.4 * 1.48, height = 6.19
)
),
# Jia 1999 [CHECKED \(coef \+ udm\)] -------------------------------
eqs(name = "jia_99-a", reference = "JIA, MENG, and SHAN, Study on Energy Expenditure in Healthy Adults [J]. 1999",
eq(name = "jia_99-a-kcal-m", outcome = "bee", strata = list(sex = "male"),
intercept = 696, weight = 13.6, age = -6
)
),
# Jia 1999 [CHECKED \(coef \+ udm\)] -------------------------------
eqs(name = "jia_99-b", reference = "JIA, MENG, and SHAN, Study on Energy Expenditure in Healthy Adults [J]. 1999",
eq(name = "jia_99-b-f-bee", outcome = "bee", strata = list(sex = "female"),
intercept = 714, weight = 6.8
)
),
# Kashiwazaki 1988 [CHECKED \(coef \+ udm\)] -----------------------
eqs(name = "kashiwazaki_88", reference = "KASHIWAZAKI, H., SUZUKI, T., & INAOKA, T. (1988). Postprandial resting metabolic rate and body composition in the moderately obese and normal-weight adult subjects at sitting posture. Journal of nutritional science and vitaminology, 34(4), 399-411.",
eq(name = "kashiwazaki_88-n", outcome = "rmr", strata = list(bmi_class = "normal weight"),
intercept = 350.6, weight = 22.7, subscapular_skinfold = -13.6
)
),
# Korth 2007 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "korth_07-a", reference = "Korth, O., Bosy-Westphal, A., Zschoche, P., Gl?er, C. C., Heller, M., & M?ller, M. J. (2007). Influence of methods used in body composition analysis on the prediction of resting energy expenditure. European journal of clinical nutrition, 61(5), 582.",
eq(name = "korth_07-a-m", outcome = "ree", strata = list(sex = "male"),
intercept = (-1731.2 + 1107.4) * kj2kcal, weight = 41.5 * kj2kcal, age = -19.1 * kj2kcal, height = 35 * kj2kcal
),
eq(name = "korth_07-a-f", outcome = "ree", strata = list(sex = "female"),
intercept = (-1731.2 ) * kj2kcal, weight = 41.5 * kj2kcal, age = -19.1 * kj2kcal, height = 35 * kj2kcal
)
),
# Korth 2007 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "korth_07-b", reference = "Korth, O., Bosy-Westphal, A., Zschoche, P., Gl?er, C. C., Heller, M., & M?ller, M. J. (2007). Influence of methods used in body composition analysis on the prediction of resting energy expenditure. European journal of clinical nutrition, 61(5), 582.",
eq(name = "korth_07-b", outcome = "ree", strata = list(),
intercept = 2284 * kj2kcal, weight = 65.6 * kj2kcal
)
),
# Kruizenga 2016 [CHECKED \(coef \+ udm\)] -------------------------
eqs(name = "kruizenga_16", reference = "Kruizenga, H. M., Hofsteenge, G. H., & Weijs, P. J. (2016). Predicting resting energy expenditure in underweight, normal weight, overweight, and obese adult hospital patients. Nutrition & metabolism, 13(1), 85.",
eq(name = "kruizenga_16-m-n", outcome = "ree", strata = list(sex = "male", bmi_class = "normal weight", inpatients = TRUE),
intercept = (-137.475 + 135.265), weight = 11.355, height = 7.224, age = -4.649
),
eq(name = "kruizenga_16-f-n", outcome = "ree", strata = list(sex = "female", bmi_class = "normal weight", inpatients = TRUE),
intercept = (-137.475 ), weight = 11.355, height = 7.224, age = -4.649
),
eq(name = "kruizenga_16-m-u", outcome = "ree", strata = list(sex = "male", bmi_class = "underweight", inpatients = TRUE),
intercept = (-137.475 + 135.265), weight = 11.355, height = 7.224, age = -4.649
),
eq(name = "kruizenga_16-f-u", outcome = "ree", strata = list(sex = "female", bmi_class = "underweight", inpatients = TRUE),
intercept = (-137.475 ), weight = 11.355, height = 7.224, age = -4.649
)
),
# Lam 2014 [CHECKED \(coef \+ udm\)] -------------------------------
eqs(name = "lam_14-m", reference = "Lam, Y. Y., Redman, L. M., Smith, S. R., Bray, G. A., Greenway, F. L., Johannsen, D., & Ravussin, E. (2014). Determinants of sedentary 24-h energy expenditure: equations for energy prescription and adjustment in a respiratory chamber. The American journal of clinical nutrition, 99(4), 834-842.",
eq(name = "lam_14-m-a", outcome = "eee", strata = list(sex = "male", ethnicity = "african american"),
intercept = (-235 + 217 - 52), weight = 11.6, height = 8.03, age = -3.45
),
eq(name = "lam_14-m-w", outcome = "eee", strata = list(sex = "male", ethnicity = "white"),
intercept = (-235 + 217), weight = 11.6, height = 8.03, age = -3.45
),
eq(name = "lam_14-f-a", outcome = "eee", strata = list(sex = "female", ethnicity = "african american"),
intercept = (-235 - 52), weight = 11.6, height = 8.03, age = -3.45
),
eq(name = "lam_14-f-w", outcome = "eee", strata = list(sex = "female", ethnicity = "white"),
intercept = -235, weight = 11.6, height = 8.03, age = -3.45
)
),
# Lazzer 2007-a [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "lazzer_07-m", reference = "Lazzer, S., Agosti, F., Silvestri, P., Derumeaux-Burel, H., & Sartorio, A. (2007). Prediction of resting energy expenditure in severely obese Italian women. Journal of Endocrinological Investigation, 30(1), 20–27. https://doi.org/10.1007/BF03347391",
eq(name = "lazzer_07", outcome = "ree", strata = list(sex = "male", bmi_class = "obese"),
intercept = -3.605 * mj2kcal, weight = 0.048 * mj2kcal, height = 4.655 * mj2kcal, age = -0.020 * mj2kcal
)
),
# Lazzer 2007-b [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "lazzer_07-f", reference = "Lazzer, S., Agosti, F., Resnik, M., Marazzi, N., Mornati, D., & Sartorio, A. (2007). Prediction of resting energy expenditure in severely obese Italian males. Journal of Endocrinological Investigation, 30(9), 754–761. https://doi.org/10.1007/BF03350813",
eq(name = "lazzer_07", outcome = "ree", strata = list(sex = "female", bmi_class = "obese"),
intercept = -2.678 * mj2kcal, weight = 0.042 * mj2kcal, height = 3.619 * mj2kcal
)
),
# Lazzer 2010 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "lazzer_10", reference = "Lazzer, S., Bedogni, G., Lafortuna, C. L., Marazzi, N., Busti, C., Galli, R., … Sartorio, A. (2010). Relationship Between Basal Metabolic Rate, Gender, Age, and Body Composition in 8,780 White Obese Subjects. Obesity, 18(1), 71–78. https://doi.org/10.1038/oby.2009.162",
eq(name = "lazzer_10-m", outcome = "bmr", strata = list(sex = "male"),
intercept = (1140 + 3252) * kj2kcal, weight = 46 * kj2kcal, age = -14 * kj2kcal
),
eq(name = "lazzer_10-f", outcome = "bmr", strata = list(sex = "female"),
intercept = 3252 * kj2kcal, weight = 46 * kj2kcal, age = -14 * kj2kcal
)
),
# Leung 2000 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "leung_00", reference = "Leung, R., Woo, J., Chan, D., & Tang, N. (2000). Validation of prediction equations for basal metabolic rate in Chinese subjects. European journal of clinical nutrition, 54(7), 551.",
eq(name = "leung_00", outcome = "ree", strata = list(ethnicity = "chinese"),
intercept = 3340.2 * kj2kcal, weight = 57.562 * kj2kcal, age = -26.795 * kj2kcal
)
),
# Liu 1995-a [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "liu_95-a-weight-age", reference = "Liu, H. Y., Lu, Y. F., & Chen, W. J. (1995). Predictive equations for basal metabolic rate in Chinese adults: a cross-validation study. Journal of the American Dietetic Association, 95(12), 1403–1408. https://doi.org/10.1016/S0002-8223(95)00369-X",
eq(name = "liu_95-a-m", outcome = "bmr", strata = list(sex = "male", ethnicity = "chinese"),
intercept = (54.34 ), weight = 13.88, height = 4.16, age = -3.43
),
eq(name = "liu_95-a-f", outcome = "bmr", strata = list(sex = "female", ethnicity = "chinese"),
intercept = (54.34 + 112.40), weight = 13.88, height = 4.16, age = -3.43
)
),
# Liu 1995-b [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "liu_95-b-weight", reference = "Liu, H. Y., Lu, Y. F., & Chen, W. J. (1995). Predictive equations for basal metabolic rate in Chinese adults: a cross-validation study. Journal of the American Dietetic Association, 95(12), 1403–1408. https://doi.org/10.1016/S0002-8223(95)00369-X",
eq(name = "liu_95-b", outcome = "bmr", strata = list(ethnicity = "chinese"),
intercept = 29.34, weight = 20.29
)
),
# Liu 1995-c [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "liu_95-c", reference = "Liu, H. Y., Lu, Y. F., & Chen, W. J. (1995). Predictive equations for basal metabolic rate in Chinese adults: a cross-validation study. Journal of the American Dietetic Association, 95(12), 1403–1408. https://doi.org/10.1016/S0002-8223(95)00369-X",
eq(name = "liu_95-c", outcome = "bmr", strata = list(ethnicity = "chinese"),
intercept = -1506.60, weight = 13.51, height = 11.93
)
),
# Liu 1995-d [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "liu_95-d", reference = "Liu, H. Y., Lu, Y. F., & Chen, W. J. (1995). Predictive equations for basal metabolic rate in Chinese adults: a cross-validation study. Journal of the American Dietetic Association, 95(12), 1403–1408. https://doi.org/10.1016/S0002-8223(95)00369-X",
eq(name = "liu_95-d-m", outcome = "bmr", strata = list(sex = "male", ethnicity = "chinese"),
intercept = 755.30, weight = 14.73, age = -3.87
),
eq(name = "liu_95-d-f", outcome = "bmr", strata = list(sex = "female", ethnicity = "chinese"),
intercept = (755.30 - 150.90), weight = 14.73, age = -3.87
)
),
# Livingston & Kohlstadt 2005-a [CHECKED \(coef \+ udm\)] ---------
eqs(name = "livingston_05-f", reference = "Livingston, E. H., & Kohlstadt, I. (2005). Simplified resting metabolic rate—predicting formulas for normal‐sized and obese individuals. Obesity research, 13(7), 1255-1262.",
eq(name = "livingston_05-f-o", outcome = "rmr", strata = list(sex = "female", bmi_class = "obese"),
intercept = 0, livingston_weight_f = 248 , age = -5.09
),
eq(name = "livingston_05-f-ow", outcome = "rmr", strata = list(sex = "female", bmi_class = "overweight"),
intercept = 0, livingston_weight_f = 248 , age = -5.09
),
eq(name = "livingston_05-f-n", outcome = "rmr", strata = list(sex = "female", bmi_class = "normal weight"),
intercept = 0, livingston_weight_f = 248 , age = -5.09
)
),
eqs(name = "livingston_05-m", reference = "Livingston, E. H., & Kohlstadt, I. (2005). Simplified resting metabolic rate—predicting formulas for normal‐sized and obese individuals. Obesity research, 13(7), 1255-1262.",
eq(name = "livingston_05-m-o", outcome = "rmr", strata = list(sex = "male", bmi_class = "obese"),
intercept = 0, livingston_weight_m = 293 , age = -5.92
),
eq(name = "livingston_05-m-ow", outcome = "rmr", strata = list(sex = "male", bmi_class = "overweight"),
intercept = 0, livingston_weight_m = 293 , age = -5.92
),
eq(name = "livingston_05-m-n", outcome = "rmr", strata = list(sex = "male", bmi_class = "normal weight"),
intercept = 0, livingston_weight_m = 293 , age = -5.92
)
),
# Livingston & Kohlstadt 2005-b [CHECKED \(coef \+ udm\)] ---------
eqs(name = "livingston_05-f pure", reference = "Livingston, E. H., & Kohlstadt, I. (2005). Simplified resting metabolic rate—predicting formulas for normal‐sized and obese individuals. Obesity research, 13(7), 1255-1262.",
eq(name = "livingston_05-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 0, livingston_weight_f_alone = 196
)
),
eqs(name = "livingston_05-m pure", reference = "Livingston, E. H., & Kohlstadt, I. (2005). Simplified resting metabolic rate—predicting formulas for normal‐sized and obese individuals. Obesity research, 13(7), 1255-1262.",
eq(name = "livingston_05-m", outcome = "rmr", strata = list(sex = "male"),
intercept = 0, livingston_weight_m_alone = 246
)
),
# Livingston & Kohlstadt 2005-c [CHECKED \(coef \+ udm\)] ---------
eqs(name = "livingston_05-c", reference = "Livingston, E. H., & Kohlstadt, I. (2005). Simplified resting metabolic rate—predicting formulas for normal‐sized and obese individuals. Obesity research, 13(7), 1255-1262.",
eq(name = "livingston_05-c", outcome = "rmr", strata = list(),
intercept = 0, livingston_weight_alone = 202
)
),
# Livingston & Kohlstadt 2005-d [CHECKED \(coef \+ udm\)] ----------
eqs(name = "livingston_05-d", reference = "Livingston, E. H., & Kohlstadt, I. (2005). Simplified resting metabolic rate—predicting formulas for normal‐sized and obese individuals. Obesity research, 13(7), 1255-1262.",
eq(name = "livingston_05-d", outcome = "rmr", strata = list(),
intercept = 0, livingston_weight_age = 261, age = -6.52
)
),
# Lührmann 2002-a [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "lührmann_02-a", reference = "Lührmann, P. M., Herbert, B. M., Krems, C., & Neuhäuser-Berthold, M. (2002). A new equation especially developed for predicting resting metabolic rate in the elderly for easy use in practice. European Journal of Nutrition, 41(3), 108–113. https://doi.org/10.1007/s003940200016",
eq(name = "lührmann_02-a", outcome = "rmr", strata = list(),
intercept = 1238 * kj2kcal, weight = 66.4 * kj2kcal
)
),
# Lührmann 2002-b [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "lührmann_02-b", reference = "Lührmann, P. M., Herbert, B. M., Krems, C., & Neuhäuser-Berthold, M. (2002). A new equation especially developed for predicting resting metabolic rate in the elderly for easy use in practice. European Journal of Nutrition, 41(3), 108–113. https://doi.org/10.1007/s003940200016",
eq(name = "lührmann_02-b-m", outcome = "rmr", strata = list(sex = "male"),
intercept = (3169 + 746) * kj2kcal, weight = 50 * kj2kcal, age = -15.3 * kj2kcal
),
eq(name = "lührmann_02-a-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 3169 * kj2kcal, weight = 50 * kj2kcal, age = -15.3 * kj2kcal
)
),
# Lührmann 2002-c [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "lührmann_02-c", reference = "Lührmann, P. M., Herbert, B. M., Krems, C., & Neuhäuser-Berthold, M. (2002). A new equation especially developed for predicting resting metabolic rate in the elderly for easy use in practice. European Journal of Nutrition, 41(3), 108–113. https://doi.org/10.1007/s003940200016",
eq(name = "lührmann_02-c-m", outcome = "rmr", strata = list(sex = "male"),
intercept = (2078 + 751) * kj2kcal, weight = 50.8 * kj2kcal
),
eq(name = "lührmann_02-c-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 2078 * kj2kcal, weight = 50.8 * kj2kcal
)
),
# Metsios 2008 [CHECKED \(coef \+ udm\)] ---------------------------
eqs(name = "metsios_08", reference = "Metsios, G. S., Stavropoulos-Kalinoglou, A., Panoulas, V. F., Koutedakis, Y., Nevill, A. M., Douglas, K. M., ... & Kitas, G. D. (2008). New resting energy expenditure prediction equations for patients with rheumatoid arthritis. Rheumatology, 47(4), 500-506.",
eq(name = "metsios_08", outcome = "ree", strata = list(rheumatoid_arthritis = TRUE),
intercept = 0, var_metsios = 598.8
)
),
# Mifflin 1990-a [CHECKED \(coef \+ udm\)] ---------------------------
eqs(name = "mifflin_90-a", reference = "Mifflin, M. D., St Jeor, S. T., Hill, L. A., Scott, B. J., Daugherty, S. A., & Koh, Y. O. (1990). A new predictive equation for resting energy expenditure in healthy individuals. The American journal of clinical nutrition, 51(2), 241-247.",
eq(name = "mifflin_90-a-m", outcome = "rmr", strata = list(sex = "male"),
intercept = (-161 + 166), weight = 9.99, height = 6.25, age = -4.92
),
eq(name = "mifflin_90-a-f", outcome = "rmr", strata = list(sex = "female"),
intercept = -161, weight = 9.99, height = 6.25, age = -4.92
)
),
# Mifflin 1990-b [CHECKED \(coef \+ udm\)] ---------------------------
eqs(name = "mifflin_90-b", reference = "Mifflin, M. D., St Jeor, S. T., Hill, L. A., Scott, B. J., Daugherty, S. A., & Koh, Y. O. (1990). A new predictive equation for resting energy expenditure in healthy individuals. The American journal of clinical nutrition, 51(2), 241-247.",
eq(name = "mifflin_90-b-w", outcome = "rmr",
intercept = 371, weight = 15.1
)
),
# Mifflin 1990-c [CHECKED \(coef \+ udm\)] ---------------------------
eqs(name = "mifflin_90-c", reference = "Mifflin, M. D., St Jeor, S. T., Hill, L. A., Scott, B. J., Daugherty, S. A., & Koh, Y. O. (1990). A new predictive equation for resting energy expenditure in healthy individuals. The American journal of clinical nutrition, 51(2), 241-247.",
eq(name = "mifflin_90-c-m", outcome = "rmr", strata = list(sex = "male"),
intercept = 704, weight = 12.3
),
eq(name = "mifflin_90-c-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 586, weight = 10.9
)
),
# Moore & Angelillo 1988 [CHECKED \(coef \+ udm\)] -----------------
eqs(name = "moore_88", reference = "Moore, J. A., & Angelillo, V. A. (1988). Equations for the prediction of resting energy expenditure in chronic obstructive lung disease. Chest, 94(6), 1260-1263.",
eq(name = "moore_88-m", outcome = "ree", strata = list(sex = "male", copd = TRUE),
intercept = 952, weight = 11.5
),
eq(name = "moore_88-f", outcome = "ree", strata = list(sex = "female", copd = TRUE),
intercept = 515, weight = 14.1
)
),
# Muller 2004-a [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "muller_04-a", reference = "Manfred J Müller, Anja Bosy-Westphal, Susanne Klaus, Georg Kreymann, Petra M Lührmann, Monika Neuhäuser-Berthold, Rudolf Noack, Karl M Pirke, Petra Platte, Oliver Selberg, Jochen Steiniger, World Health Organization equations have shortcomings for predicting resting energy expenditure in persons from a modern, affluent population: generation of a new reference standard from a retrospective analysis of a German database of resting energy expenditure, The American Journal of Clinical Nutrition, Volume 80, Issue 5, November 2004, Pages 1379–1390, https://doi.org/10.1093/ajcn/80.5.1379",
eq(name = "muller_04-a-m", outcome = "ree", strata = list(sex = "male"),
intercept = (3.210 + 1.009) * mj2kcal, weight = 0.047 * mj2kcal, age = -0.01452 * mj2kcal
),
eq(name = "muller_04-a-f", outcome = "ree", strata = list(sex = "female"),
intercept = 3.210 * mj2kcal, weight = 0.047 * mj2kcal, age = -0.01452 * mj2kcal
)
),
# Muller 2004-b [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "muller_04-b", reference = "Manfred J Müller, Anja Bosy-Westphal, Susanne Klaus, Georg Kreymann, Petra M Lührmann, Monika Neuhäuser-Berthold, Rudolf Noack, Karl M Pirke, Petra Platte, Oliver Selberg, Jochen Steiniger, World Health Organization equations have shortcomings for predicting resting energy expenditure in persons from a modern, affluent population: generation of a new reference standard from a retrospective analysis of a German database of resting energy expenditure, The American Journal of Clinical Nutrition, Volume 80, Issue 5, November 2004, Pages 1379–1390, https://doi.org/10.1093/ajcn/80.5.1379",
eq(name = "muller_04-b-m-nw", outcome = "ree", strata = list(sex = "male", bmi_class = "normal weight"),
intercept = (1.233 + 0.884) * mj2kcal, weight = 0.02219 * mj2kcal, age = -0.01191 * mj2kcal, height = 0.02118 * mj2kcal
),
eq(name = "muller_04-b-f-nw", outcome = "ree", strata = list(sex = "female", bmi_class = "normal weight"),
intercept = 1.233 * mj2kcal, weight = 0.02219 * mj2kcal, age = -0.01191 * mj2kcal, height = 0.02118 * mj2kcal
)
),
# Muller 2004-c [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "muller_04-c", reference = "Manfred J Müller, Anja Bosy-Westphal, Susanne Klaus, Georg Kreymann, Petra M Lührmann, Monika Neuhäuser-Berthold, Rudolf Noack, Karl M Pirke, Petra Platte, Oliver Selberg, Jochen Steiniger, World Health Organization equations have shortcomings for predicting resting energy expenditure in persons from a modern, affluent population: generation of a new reference standard from a retrospective analysis of a German database of resting energy expenditure, The American Journal of Clinical Nutrition, Volume 80, Issue 5, November 2004, Pages 1379–1390, https://doi.org/10.1093/ajcn/80.5.1379",
eq(name = "muller_04-c-m-uw", outcome = "ree", strata = list(sex = "male", bmi_class = "underweight"),
intercept = (0.731 + 0.820) * mj2kcal, weight = 0.07122 * mj2kcal, age = -0.02149 * mj2kcal
),
eq(name = "muller_04-c-f-uw", outcome = "ree", strata = list(sex = "female", bmi_class = "underweight"),
intercept = 0.731 * mj2kcal, weight = 0.07122 * mj2kcal, age = -0.02149 * mj2kcal
),
eq(name = "muller_04-c-m-ow", outcome = "ree", strata = list(sex = "male", bmi_class = "overweight"),
intercept = (3.407 + 1.006) * mj2kcal, weight = 0.04507 * mj2kcal, age = -0.01553 * mj2kcal
),
eq(name = "muller_04-c-f-ow", outcome = "ree", strata = list(sex = "female", bmi_class = "overweight"),
intercept = 3.407 * mj2kcal, weight = 0.04507 * mj2kcal, age = -0.01553 * mj2kcal
),
eq(name = "muller_04-c-m-o", outcome = "ree", strata = list(sex = "male", bmi_class = "obese"),
intercept = (2.924 + 1.103) * mj2kcal, weight = 0.050 * mj2kcal, age = -0.01586 * mj2kcal
),
eq(name = "muller_04-c-f-o", outcome = "ree", strata = list(sex = "female", bmi_class = "obese"),
intercept = 2.924 * mj2kcal, weight = 0.050 * mj2kcal, age = -0.01586 * mj2kcal
)
),
# Obisesan 1997 [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "obisesan_97", reference = "Obisesan, T. O., Toth, M. J., & Poehlman, E. T. (1997). Prediction of resting energy needs in older men with heart failure. European Journal of Clinical Nutrition, 51(10), 678-681. https://doi.org/10.1038/sj.ejcn.1600462",
eq(name = "obisesan_97-hf", outcome = "rmr", strata = list(hf = FALSE),
intercept = 755, weight = 12.2, glucose_g_dl = 1.6, albumin_mg_dl = -144
),
eq(name = "obisesan_97-nhf", outcome = "rmr", strata = list(hf = TRUE),
intercept = 755 + 103, weight = 12.2, glucose_g_dl = 1.6, albumin_mg_dl = -144
)
),
# Orozco 2017 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "orozco_17", reference = "Orozco-Ruiz, X., Pichardo-Ontiveros, E., Tovar, A. R., Torres, N., Medina-Vera, I., Prinelli, F., . Guevara-Cruz, M. (2017). Development and validation of new predictive equation for resting energy expenditure in adults with overweight and obesity. Clinical Nutrition. https://doi.org/10.1016/j.clnu.2017.10.022",
eq(name = "orosco_17-f-ow", outcome = "ree", strata = list(sex = "female", ethnicity = "mexican", bmi_class = "overweight"),
intercept = 835.952, weight = 12.114, age = -6.541
),
eq(name = "orosco_17-m-ow", outcome = "ree", strata = list(sex = "male", ethnicity = "mexican", bmi_class = "overweight"),
intercept = 1094.991, weight = 12.114, age = -6.541
),
eq(name = "orosco_17-f-o", outcome = "ree", strata = list(sex = "female", ethnicity = "mexican", bmi_class = "obese"),
intercept = 835.952, weight = 12.114, age = -6.541
),
eq(name = "orosco_17-m-o", outcome = "ree", strata = list(sex = "male", ethnicity = "mexican", bmi_class = "obese"),
intercept = 1094.991, weight = 12.114, age = -6.541
)
),
# Owen 1987 [CHECKED \(coef \+ udm\)] ------------------------------
eqs(name = "owen_87", reference = "Owen, O. E. (1988). Resting Metabolic Requirements of Men and Women*. Mayo Clinic Proceedings, 63(5), 503–510. https://doi.org/10.1016/S0025-6196(12)65649-3",
eq(name = "owen_87-a-m", outcome = "rmr", strata = list(sex = "male", athletic = FALSE),
intercept = 879, weight = 10.2
),
eq(name = "owen_87-a-f", outcome = "rmr", strata = list(sex = "female", athletic = FALSE),
intercept = 795, weight = 7.18
)
),
# Owen 1986 [CHECKED \(coef \+ udm\)] ------------------------------
eqs(name = "owen_86", reference = "OOwen, O. E., Kavle, E., Owen, R. S., Polansky, M., Caprio, S., Mozzoli, M. A., ... & Boden, G. (1986). A reappraisal of caloric requirements in healthy women. The American journal of clinical nutrition, 44(1), 1-19.",
eq(name = "owen_86", outcome = "rmr", strata = list(sex = "female", athletic = TRUE, age_18_65 = TRUE),
intercept = 50.4, weight = 21.1
)
),
# Pavlidou 2018-a [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "pavlidou_18-a", reference = "Pavlidou, E., Petridis, D., Tolia, M., Tsoukalas, N., Poultsidi, A., Fasoulas, A., . Giaginis, C. (2018). Estimating the agreement between the metabolic rate calculated from prediction equations and from a portable indirect calorimetry device: an effort to develop a new equation for predicting resting metabolic rate. Nutrition & Metabolism, 15, 41. https://doi.org/10.1186/s12986-018-0278-7",
eq(name = "pavlidou_18-a", outcome = "rmr", strata = list(),
intercept = 0, bmi_pavlidou = 25.41
)
),
# Pavlidou 2018-a [CHECKED \(coef \+ udm\)] -----------------------
eqs(name = "pavlidou_18-m", reference = "Pavlidou, E., Petridis, D., Tolia, M., Tsoukalas, N., Poultsidi, A., Fasoulas, A., . Giaginis, C. (2018). Estimating the agreement between the metabolic rate calculated from prediction equations and from a portable indirect calorimetry device: an effort to develop a new equation for predicting resting metabolic rate. Nutrition & Metabolism, 15, 41. https://doi.org/10.1186/s12986-018-0278-7",
eq(name = "pavlidou_18-b-m", outcome = "rmr", strata = list(sex = "male"),
intercept = 0, bmi_pavlidou_m = 25.41
)
),
eqs(name = "pavlidou_18-f", reference = "Pavlidou, E., Petridis, D., Tolia, M., Tsoukalas, N., Poultsidi, A., Fasoulas, A., . Giaginis, C. (2018). Estimating the agreement between the metabolic rate calculated from prediction equations and from a portable indirect calorimetry device: an effort to develop a new equation for predicting resting metabolic rate. Nutrition & Metabolism, 15, 41. https://doi.org/10.1186/s12986-018-0278-7",
eq(name = "pavlidou_18-f", outcome = "rmr", strata = list(sex = 'female'),
intercept = 0, bmi_pavlidou_f = 21.09
)
),
# Quenouille 1951 [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "quenoille_51", reference = "Quenouille, M. H. (1951). Statistical studies of recorded energy expenditure of man.",
eq(name = "quenoille_51", outcome = "bmr", strata = list(),
intercept = 293.8, height = 2.975, weight = 8.90, body_surface_area = 11.7, air_humidity = 3.0, air_temperature = -4.0
)
),
# Quiroz-Olguin 2014 [CHECKED \(coef \+ udm\)] ---------------------
eqs(name = "quiroz_14", reference = "Quiroz-Olguin, G., Serralde-Zuniga, A. E., Saldana-Morales, M. V., Gulias-Herrero, A., & Guevara-Cruz, M. (2014). Validating an energy expenditure prediction equation in overweight and obese Mexican patients. Nutricion Hospitalaria, 30(4), 749-755. https://doi.org/10.3305/nh.2014.30.4.7639",
eq(name = "quiroz_14-m-ow", outcome = "ree", strata = list(sex = "male", bmi_class = "overweight"),
intercept = -402.204, weight = 12.204, wrist_circumference = 83.954
),
eq(name = "quiroz_14-f-ow", outcome = "ree", strata = list(sex = "female", bmi_class = "overweight"),
intercept = (-402.204 - 244.892), weight = 12.204, wrist_circumference = 83.954
),
eq(name = "quiroz_14-m-o", outcome = "ree", strata = list(sex = "male", bmi_class = "obese"),
intercept = -402.204, weight = 12.204, wrist_circumference = 83.954
),
eq(name = "quiroz_14-f-o", outcome = "ree", strata = list(sex = "female", bmi_class = "obese"),
intercept = (-402.204 - 244.892), weight = 12.204, wrist_circumference = 83.954
)
),
# Roza 1984-a [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "roza_84-a", reference = "Roza, A. M., & Shizgal, H. M. (1984). The Harris Benedict equation reevaluated: resting energy requirements and the body cell mass. The American journal of clinical nutrition, 40(1), 168-182.",
eq(name = "roza_84-a-m", outcome = "rmr", strata = list(sex = "male"),
intercept = 88.362, height = 4.799, weight = 13.397, age = -5.677
),
eq(name = "roza_84-a-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 447.593, height = 3.098, weight = 9.247, age = -4.330
)
),
# Roza 1984-b [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "roza_84-b", reference = "Roza, A. M., & Shizgal, H. M. (1984). The Harris Benedict equation reevaluated: resting energy requirements and the body cell mass. The American journal of clinical nutrition, 40(1), 168-182.",
eq(name = "roza_84-b-m", outcome = "rmr", strata = list(sex = "male"),
intercept = 77.607, height = 4.923, weight = 13.702, age = -6.673
),
eq(name = "roza_84-b-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 667.051, height = 1.729, weight = 9.74, age = -4.737
)
),
# Roza 1984-b [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "roza_84-c", reference = "Roza, A. M., & Shizgal, H. M. (1984). The Harris Benedict equation reevaluated: resting energy requirements and the body cell mass. The American journal of clinical nutrition, 40(1), 168-182.",
eq(name = "roza_84-c-m", outcome = "rmr", strata = list(sex = "male"),
intercept = 75.9, bmi = 53.7, age = 1.3
),
eq(name = "roza_84-c-f", outcome = "rmr", strata = list(sex = "female"),
intercept = 490.8, bmi = 45.8, age = -1.5
)
),
# Sabounchi 2013 [CHECKED \(coef \+ udm\)] -------------------------
eqs(name = "sabounchi_13", reference = "Sabounchi, N. S., Rahmandad, H., & Ammerman, A. (2013). Best-fitting prediction equations for basal metabolic rate: informing obesity interventions in diverse populations. International Journal of Obesity (2005), 37(10), 1364-1370. https://doi.org/10.1038/ijo.2012.218",
eq(name = "sabounchi_13", outcome = "bmr", strata = list(),
intercept = 301, weight = 10.2, height = 3.09, age = -3.09
)
),
# Schoefild 1985-a [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "schoefild_85-a", reference = "Schofield, W. N. (1985). Predicting basal metabolic rate, new standards and review of previous work. Human Nutrition. Clinical Nutrition, 39 Suppl 1, 5-41.",
eq(name = "schoefild_85-a-m", outcome = "bmr", strata = list(sex = "male"),
intercept = 587.7, weight = 11.711
),
eq(name = "schoefild_85-a-f", outcome = "bmr", strata = list(sex = "female"),
intercept = 658.5, weight = 9.082
)
),
# Schoefild 1985-b [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "schoefild_85-b", reference = "Schofield, W. N. (1985). Predicting basal metabolic rate, new standards and review of previous work. Human Nutrition. Clinical Nutrition, 39 Suppl 1, 5-41.",
eq(name = "schoefild_85-b-m", outcome = "bmr", strata = list(sex = "male"),
intercept = 17.7, weight = 7.887, height = 4.582
),
eq(name = "schoefild_85-b-f", outcome = "bmr", strata = list(sex = "female"),
intercept = -834.4, weight = 9.082, height = 9.723
)
),
# Segura-Badilla 2018-a [CHECKED \(coef \+ udm\)] ------------------
eqs(name = "segura_18-a", reference = "",
eq(name = "segura_18-a-f", outcome = "ree", strata = list(sex = "female", ethnicity = "chilean"),
intercept = -35.95, weight = 11.701, height = 5.75, age = -7.824
),
eq(name = "segura_18-a-m", outcome = "ree", strata = list(sex = "male", ethnicity = "chilean"),
intercept = 346.867, weight = 4.317, height = 7.967, age = -10.16
)
),
# Segura-Badilla 2018-b [CHECKED \(coef \+ udm\)] ------------------
eqs(name = "segura_18-b", reference = "",
eq(name = "segura_18-b-f", outcome = "ree", strata = list(sex = "female"),
intercept = -817.918, weight = 11.774, height = 7.37
),
eq(name = "segura_18-b-m", outcome = "ree", strata = list(sex = "male"),
intercept = -316.398, weight = 4.255, height = 7.819
)
),
# Segura-Badilla 2018-c [CHECKED \(coef \+ udm\)] ------------------
eqs(name = "segura_18-c", reference = "",
eq(name = "segura_18-c-f", outcome = "ree", strata = list(sex = "female"),
intercept = 9427.775, weight = 84.689, height = -55.063, bmi = -174.811, age = -8.798
),
eq(name = "segura_18-c-m", outcome = "ree", strata = list(sex = "male"),
intercept = -5008.038, weight = -30.019, height = 41.687, bmi = 95.416, age = -13.978
)
),
# Segura-Badilla 2018-d [CHECKED \(coef \+ udm\)] ------------------
eqs(name = "segura_18-d", reference = "",
eq(name = "segura_18-d-f-nw", outcome = "ree", strata = list(sex = "female", bmi_class = "normal weight"),
intercept = 896.249, weight = 14.361, height = -0.055, age = -10.389
),
eq(name = "segura_18-e-m-nw", outcome = "ree", strata = list(sex = "male", bmi_class = "normal weight"),
intercept = -15817.35, weight = -137.022, height = 151.717, age = 24.108
),
eq(name = "segura_18-d-f-ow", outcome = "ree", strata = list(sex = "female", bmi_class = "overweight"),
intercept = -314.07, weight = 17.211, height = 4.437, age = -7.499
),
eq(name = "segura_18-d-m-ow", outcome = "ree", strata = list(sex = "male", bmi_class = "overweight"),
intercept = 19.995, weight = 3.252, height = 9.488, age = -7.61
),
eq(name = "segura_18-d-f-o", outcome = "ree", strata = list(sex = "female", bmi_class = "obese"),
intercept = -314.07, weight = 17.211, height = 4.437, age = -7.499
),
eq(name = "segura_18-d-m-o", outcome = "ree", strata = list(sex = "male", bmi_class = "obese"),
intercept = 19.995, weight = 3.252, height = 9.488, age = -7.61
)
),
# Siervo 2003 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "siervo_03", reference = "Siervo, M., Boschi, V., & Falconi, C. (2003). Which REE prediction equation should we use in normal-weight, overweight and obese women?. Clinical Nutrition, 22(2), 193-204.",
eq(name = "siervo_03-f-ow", outcome = "ree", strata = list(sex = "female", bmi_class = "overweight"),
intercept = 542.2, weight = 11.5
),
eq(name = "siervo_03-f-o", outcome = "ree", strata = list(sex = "female", bmi_class = "obese"),
intercept = 542.2, weight = 11.5
)
),
# Silver 2013 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "silver_13", reference = "Silver, H. J., Wall, R., Hollingsworth, E., Pruitt, A., Shotwell, M., & Simmons, S. (2013). Simple kcal/kg formula is comparable to prediction equations for estimating resting energy expenditure in older cognitively impaired long term care residents. The Journal of Nutrition, Health & Aging, 17(1), 39–44. https://doi.org/10.1007/s12603-012-0387-3",
eq(name = "silver_13-a", outcome = "rmr", strata = list(),
intercept = 0, weight = 21
),
eq(name = "silver_13-b", outcome = "rmr", strata = list(),
intercept = 0, weight = 22
),
eq(name = "silver_13-c", outcome = "rmr", strata = list(),
intercept = 0, weight = 23
)
),
# Soares 1993 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "soares_93", reference = "Soares, M. J., Francis, D. G., & Shetty, P. S. (1993). Predictive equations for basal metabolic rates of Indian males. European journal of clinical nutrition, 47(6), 389-394.",
eq(name = "soares_93", outcome = "bmr", strata = list(),
intercept = 3599*kj2kcal, weight = 48.7*kj2kcal, age = -14.1*kj2kcal
)
),
# Sridhar 1994 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "shridhar_93-a", reference = "Sridhar, M. K., Banham, S. W., & Lean, M. E. J. (1994). Predicting resting energy expenditure in patients with musculoskeletal deformities. Clinical Nutrition, 13(5), 286-290. https://doi.org/10.1016/0261-5614(94)90051-5",
eq(name = "shridhar_93-a", outcome = "ree", strata = list(),
intercept = -6.25*mj2kcal, age = -0.0324*mj2kcal, midarm_circumference = 0.295*mj2kcal, arm_span = 0.0483*mj2kcal # MAC = midarm circunference, MAMC = midarm muscle circumference, AS = armspan. MAMC = MAC -3.14 TSF (Triceps skinfold thickness)
)
),
# Sridhar 1994 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "shridhar_93-b", reference = "Sridhar, M. K., Banham, S. W., & Lean, M. E. J. (1994). Predicting resting energy expenditure in patients with musculoskeletal deformities. Clinical Nutrition, 13(5), 286-290. https://doi.org/10.1016/0261-5614(94)90051-5",
eq(name = "shridhar_93-b", outcome = "ree", strata = list(),
intercept = 2.38*mj2kcal, weight = 0.0553*mj2kcal
)
),
# Sridhar 1994 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "shridhar_93-c", reference = "Sridhar, M. K., Banham, S. W., & Lean, M. E. J. (1994). Predicting resting energy expenditure in patients with musculoskeletal deformities. Clinical Nutrition, 13(5), 286-290. https://doi.org/10.1016/0261-5614(94)90051-5",
eq(name = "shridhar_93-c", outcome = "ree", strata = list(),
intercept = 4.1*mj2kcal, weight = 0.0554*mj2kcal, age = -0.029*mj2kcal
)
),
# Sridhar 1994 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "shridhar_93-d", reference = "Sridhar, M. K., Banham, S. W., & Lean, M. E. J. (1994). Predicting resting energy expenditure in patients with musculoskeletal deformities. Clinical Nutrition, 13(5), 286-290. https://doi.org/10.1016/0261-5614(94)90051-5",
eq(name = "shridhar_93-d", outcome = "ree", strata = list(),
intercept = -0.26*mj2kcal, weight = 0.0436*mj2kcal, age = -0.0275*mj2kcal, arm_span = 0.0304*mj2kcal
)
),
# # Sridhar 1994 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "shridhar_93-e", reference = "Sridhar, M. K., Banham, S. W., & Lean, M. E. J. (1994). Predicting resting energy expenditure in patients with musculoskeletal deformities. Clinical Nutrition, 13(5), 286-290. https://doi.org/10.1016/0261-5614(94)90051-5",
eq(name = "shridhar_93-e", outcome = "ree", strata = list(),
intercept = -4.88*mj2kcal, weight = 0.0102*mj2kcal, age = -0.0318*mj2kcal, arm_span = 0.0427*mj2kcal, mean_chest_skinfold = 0.241*mj2kcal
)
),
# Sridhar 1994 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "shridhar_93-f", reference = "Sridhar, M. K., Banham, S. W., & Lean, M. E. J. (1994). Predicting resting energy expenditure in patients with musculoskeletal deformities. Clinical Nutrition, 13(5), 286-290. https://doi.org/10.1016/0261-5614(94)90051-5",
eq(name = "shridhar_93-f", outcome = "ree", strata = list(),
intercept = -2.27*mj2kcal, midarm_circumference = 0.399*mj2kcal
)
),
# # Sridhar 1994 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "shridhar_93-g", reference = "Sridhar, M. K., Banham, S. W., & Lean, M. E. J. (1994). Predicting resting energy expenditure in patients with musculoskeletal deformities. Clinical Nutrition, 13(5), 286-290. https://doi.org/10.1016/0261-5614(94)90051-5",
eq(name = "shridhar_93-g", outcome = "ree", strata = list(),
intercept = -170*mj2kcal, midarm_circumference = 0.393*mj2kcal, age = -0.247*mj2kcal
)
),
##### M: BCR (Kcal/h) = (43.66 - 0.1329 A)BSA
##### F: BCR (Kcal/h) = (38.65 - 0.0909 A)BSA
# # Staats 1988 [CHECKED \(coef \+ udm\)] --------------------------
#
# eqs(name = "staats_88", reference = "Staats, B. A., Gastineau, C. F., & Offord, K. P. (1988). Predictive Equations for Basal Caloric Requirement Derived From the Data of Boothby, Berkson, and Dunn. Mayo Clinic Proceedings, 63(4), 409-410. https://doi.org/10.1016/S0025-6196(12)64863-0",
#
# eq(name = "staats_88-f", outcome = "bmr", strata = list(sex = "female"),
# intercept = , body_surface_area =
# ),
# eq(name = "staats_88-m", outcome = "bmr", strata = list(sex = "male"),
# intercept = , body_surface_area =
# )
# ),
#
# M, 50-69, BMR = 21.5 (65.0)
# F, 50-69, BMR = 20.7 (53.6)
# Tabata 2012 [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "tabata_12a", reference = "Tabata, I., Ebine, N., Kawashima, Y., Ishikawa-Takata, K., Tanaka, S., Higuchi, M., & Yoshitake, Y. (2012). Dietary Reference Intakes for Japanese 2010: Energy. Journal of Nutritional Science and Vitaminology, 59(Supplement), S26-S35. https://doi.org/10.3177/jnsv.59.S26",
eq(name = "tabata_12a-f", outcome = "bmr", strata = list(sex = "male", ethnicity = "japanese", age_50_69 = TRUE),
intercept = 21.5*65
),
eq(name = "tabata_12a-m", outcome = "bmr", strata = list(sex = "female", ethnicity = "japanese", age_50_69 = TRUE),
intercept = 20.7*53.6
)
),
# M, ??? 70: BMR = 21.5 (59.7)
# F, ??? 70: BMR = 20.7 (49.0)
# Tabata 2012 [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "tabata_12b", reference = "Tabata, I., Ebine, N., Kawashima, Y., Ishikawa-Takata, K., Tanaka, S., Higuchi, M., & Yoshitake, Y. (2012). Dietary Reference Intakes for Japanese 2010: Energy. Journal of Nutritional Science and Vitaminology, 59(Supplement), S26-S35. https://doi.org/10.3177/jnsv.59.S26",
eq(name = "tabata_12b-m", outcome = "bmr", strata = list(sex = "male", ethnicity = "japanese", older_70 = TRUE),
intercept = 21.5*59.7
),
eq(name = "tabata_12b-f", outcome = "bmr", strata = list(sex = "female", ethnicity = "japanese", older_70 = TRUE),
intercept = 20.7*49.0
)
),
# Tabata 2018 [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "tabata_18a", reference = "Tabata, S., Kinoshita, N., Yamada, S., & Matsumoto, H. (2018). Accuracy of basal metabolic rate estimated by predictive equations in Japanese with type 2 diabetes. Asia Pacific journal of clinical nutrition, 27(4), 763.",
eq(name = "tabata_18a-m", outcome = "bmr", strata = list(sex = "male", ethnicity = "japanese"),
intercept = 957 + 200, bmi = 38.5, age = -11.6
),
eq(name = "tabata_18a-f", outcome = "bmr", strata = list(sex = "female", ethnicity = "japanese"),
intercept = 957, bmi = 38.5, age = -11.6
)
),
# Tabata 2018 [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "tabata_18b", reference = "Tabata, S., Kinoshita, N., Yamada, S., & Matsumoto, H. (2018). Accuracy of basal metabolic rate estimated by predictive equations in Japanese with type 2 diabetes. Asia Pacific journal of clinical nutrition, 27(4), 763.",
eq(name = "tabata_18b-m", outcome = "bmr", strata = list(sex = "male", ethnicity = "japanese"),
intercept = 797, weight = 15.7, age = -8.30
)
),
# Valencia 1994 [CHECKED \(coef \+ udm\)] --------------------------
eqs(name = "valencia_94", reference = "Valencia, M. E., Moya, S. Y., McNeill, G., & Haggarty, P. (1994). Basal metabolic rate and body fatness of adult men in northern Mexico. European Journal of Clinical Nutrition, 48(3), 205-211.",
eq(name = "valencia_94-f", outcome = "bmr", strata = list(sex = "female", ethnicity = "mexican"),
intercept = 520, weight = 10.98
),
eq(name = "valencia_94-m", outcome = "bmr", strata = list(sex = "male", ethnicity = "mexican"),
intercept = 42, weight = 14.21
)
),
# Vander Weg 2004 [CHECKED \(coef \+ udm\)] ------------------------
eqs(name = "vander_weg_04", reference = "Vander Weg, M. W., Watson, J. M., Klesges, R. C., Eck Clemens, L. H., Slawson, D. L., & McClanahan, B. S. (2004). Development and cross-validation of a prediction equation for estimating resting energy expenditure in healthy African-American and European-American women. European Journal of Clinical Nutrition, 58(3), 474-480. https://doi.org/10.1038/sj.ejcn.1601833",
eq(name = "vander_weg_04-aa", outcome = "ree", strata = list(sex = "female", ethnicity = "african american"),
intercept = (147.45 - 64.98), weight = 8.39, height = 4.74, age = -3.56
),
eq(name = "vander_weg_04-ea", outcome = "ree", strata = list(sex = "female", ethnicity = "european american"),
intercept = 147.45, weight = 8.39, height = 4.74, age = -3.56
)
),
# Weijs & Vansant 2010 [CHECKED \(coef \+ udm\)] -------------------
eqs(name = "weijs_10", reference = "",
eq(name = "weijs_10-m-ow", outcome = "ree", strata = list(sex = "male", bmi_class = "overweight"),
intercept = (-221.631 + 137.566), weight = 14.038, height = 4.498, age = -0.977
),
eq(name = "weijs_10-f-ow", outcome = "ree", strata = list(sex = "female", bmi_class = "overweight"),
intercept = -221.631, weight = 14.038, height = 4.498, age = -0.977
),
eq(name = "weijs_10-m-o", outcome = "ree", strata = list(sex = "male", bmi_class = "obese"),
intercept = (-221.631 + 137.566), weight = 14.038, height = 4.498, age = -0.977
),
eq(name = "weijs_10-f-o", outcome = "ree", strata = list(sex = "female", bmi_class = "obese"),
intercept = -221.631, weight = 14.038, height = 4.498, age = -0.977
)
),
# # Wells 2009 # dainserire!!!!!
#
# eqs(name = "wells", reference = "Wells JCK, Williams JE, Haroun D, Fewtrell MS, Colantuoni A, Siervo M. Aggregate predictions improve accuracy when calculating metabolic variables used to guide treatment. Am J Clin Nutr. 2009;89(2):491-499.",
#
# eq(name = "wells", outcome = "eer", strata = list(sex = "male", bmi_class = "normal weight"),
# intercept = 204, age = -4, weight = 11.69, height = 45050
# )
# ),
# Wilms 2010 [CHECKED \(coef \+ udm\)] -----------------------------
eqs(name = "wilms_10", reference = "",
eq(name = "wilms_10", outcome = "ree", strata = list(),
intercept = 816.714, weight = 11.035, age = -3.435
)
),
# WHO/FAO/UNU 1985 [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "who_85", reference = "FAO/WHO/UNU. (1985). Energy and protein requirements. Report of a Joint FAO/WHO/UNU Expert Consultation (No. 724). Retrieved from http://www.fao.org/3/y5686e/y5686e00.htm#Contents",
eq(name = "who_85-m", outcome = "bee", strata = list(sex = "male", older_60 = TRUE),
intercept = -1071, weight = 8.8, height = 1128*cm2m
),
eq(name = "who_85-f", outcome = "bee", strata = list(sex = "female", older_60 = TRUE),
intercept = -302, weight = 9.2, height = 637*cm2m
)
),
# Wright 2016-a [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "wright_16-a", reference = "Wright, T. G., Dawson, B., Jalleh, G., & Guelfi, K. J. (2016). Accuracy of resting metabolic rate prediction in overweight and obese Australian adults. Obesity research & clinical practice, 10, S74-S83.",
eq(name = "wright_16-a-m", outcome = "bee", strata = list(sex = "male", ethnicity = "australian"),
intercept = 451.44, weight = 9.27, height = 4.58, age = -6.53
),
eq(name = "wright_16-a-f", outcome = "bee", strata = list(sex = "female", ethnicity = "australian"),
intercept = 110.76, weight = 9.02, height = 5.88, age = -7.47
)
),
# Wright 2016-b [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "wright_16-b", reference = "Wright, T. G., Dawson, B., Jalleh, G., & Guelfi, K. J. (2016). Accuracy of resting metabolic rate prediction in overweight and obese Australian adults. Obesity research & clinical practice, 10, S74-S83.",
eq(name = "wright_16-b-mow", outcome = "bee", strata = list(sex = "male", ethnicity = "australian", bmi_class = "overweight"),
intercept = 2372.11, weight = 2.91, height = -1.83, age = -11.12
),
eq(name = "wright_16-b-fow", outcome = "bee", strata = list(sex = "female", ethnicity = "australian", bmi_class = "overweight"),
intercept = -1295.89, weight = -4.28, height = 20.17, age = -7.50
),
eq(name = "wright_16-b-mo", outcome = "bee", strata = list(sex = "male", ethnicity = "australian", bmi_class = "obese"),
intercept = -1233.82, weight = 9.19, height = 12.96, age = -2.34
),
eq(name = "wright_16-b-fo", outcome = "bee", strata = list(sex = "female", ethnicity = "australian", bmi_class = "obese"),
intercept = 113.90, weight = 7.23, height = 6.83, age = -6.78
)
),
# Yang 2010-a [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "yang_10-a", reference = "Yang, X., Li, M., Mao, D., Zeng, G., Zhuo, Q., Hu, W., . Huang, C. (2010). Basal energy expenditure in southern Chinese healthy adults: measurement and development of a new equation. The British Journal of Nutrition, 104(12), 1817-1823. https://doi.org/10.1017/S0007114510002795",
eq(name = "yang_10-a-m", outcome = "bee", strata = list(sex = "male", ethnicity = "chinese"),
intercept = (277 + 600) * kj2kcal, weight = 89 * kj2kcal
),
eq(name = "yang_10-a-f", outcome = "bee", strata = list(sex = "female", ethnicity = "chinese"),
intercept = 277 * kj2kcal, weight = 89 * kj2kcal
)
),
# Yang 2010-b [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "yang_10-b", reference = "Yang, X., Li, M., Mao, D., Zeng, G., Zhuo, Q., Hu, W., . Huang, C. (2010). Basal energy expenditure in southern Chinese healthy adults: measurement and development of a new equation. The British Journal of Nutrition, 104(12), 1817-1823. https://doi.org/10.1017/S0007114510002795",
eq(name = "yang_10-b-m", outcome = "bee", strata = list(sex = "male", ethnicity = "chinese"),
intercept = -58 * kj2kcal, weight = 105 * kj2kcal
),
eq(name = "yang_10-b-f", outcome = "bee", strata = list(sex = "female", ethnicity = "chinese"),
intercept = 1355 * kj2kcal, weight = 69 * kj2kcal
)
),
# Yang 2010-c [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "yang_10-c", reference = "Yang, X., Li, M., Mao, D., Zeng, G., Zhuo, Q., Hu, W., . Huang, C. (2010). Basal energy expenditure in southern Chinese healthy adults: measurement and development of a new equation. The British Journal of Nutrition, 104(12), 1817-1823. https://doi.org/10.1017/S0007114510002795",
eq(name = "yang_10-c", outcome = "bee", strata = list(ethnicity = "chinese"),
intercept = -4611 * kj2kcal, body_surface_area = 6285 * kj2kcal
)
),
# Yang 2010-d [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "yang_10-d", reference = "Yang, X., Li, M., Mao, D., Zeng, G., Zhuo, Q., Hu, W., . Huang, C. (2010). Basal energy expenditure in southern Chinese healthy adults: measurement and development of a new equation. The British Journal of Nutrition, 104(12), 1817-1823. https://doi.org/10.1017/S0007114510002795",
eq(name = "yang_10-d", outcome = "bee", strata = list(ethnicity = "chinese"),
intercept = -11189 * kj2kcal, height = 103 * kj2kcal
)
),
# Yang 2010-e [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "yang_10-e", reference = "Yang, X., Li, M., Mao, D., Zeng, G., Zhuo, Q., Hu, W., . Huang, C. (2010). Basal energy expenditure in southern Chinese healthy adults: measurement and development of a new equation. The British Journal of Nutrition, 104(12), 1817-1823. https://doi.org/10.1017/S0007114510002795",
eq(name = "yang_10-e", outcome = "bee", strata = list(ethnicity = "chinese"),
intercept = -801 * kj2kcal, weight = 114 * kj2kcal
)
),
# Yangmei 2011-b [CHECKED \(coef \+ udm\)] ----------------------------
eqs(name = "yang_10", reference = "Yang, X., Li, M., Mao, D., Zeng, G., Zhuo, Q., Hu, W., . Huang, C. (2010). Basal energy expenditure in southern Chinese healthy adults: measurement and development of a new equation. The British Journal of Nutrition, 104(12), 1817-1823. https://doi.org/10.1017/S0007114510002795",
eq(name = "yang_10-m-med", outcome = "eer", strata = list(sex = "male", ethnicity = "chinese", activity_intensity = "medium"),
intercept = (-13.5 + 0.623 + 0.215) * mj2kcal, weight = 105 * mj2kcal, age = -0.025, wrist_circumference = -0.006, body_temperature = 0.342, bmi = -0.268
),
eq(name = "yang_10-f-med", outcome = "eer", strata = list(sex = "female", ethnicity = "chinese", activity_intensity = "medium"),
intercept = (-13.5 * mj2kcal + 0.215), weight = 105 * mj2kcal, age = -0.025, wrist_circumference = -0.006, body_temperature = 0.342, bmi = -0.268
),
eq(name = "yang_10-m-low", outcome = "eer", strata = list(sex = "male", ethnicity = "chinese", activity_intensity = "low"),
intercept = (-13.5 + 0.623) * mj2kcal, weight = 105 * mj2kcal, age = -0.025, wrist_circumference = -0.006, body_temperature = 0.342, bmi = -0.268
),
eq(name = "yang_10-f-low", outcome = "eer", strata = list(sex = "female", ethnicity = "chinese", activity_intensity = "low"),
intercept = -13.5 * mj2kcal, weight = 105 * mj2kcal, age = -0.025, wrist_circumference = -0.006, body_temperature = 0.342, bmi = -0.268
)
)
)
usethis::use_data(reer, overwrite = TRUE)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.