In MarijnJABoer/befitteR: A bundle of health, fitness, food and body related equations, formula's and more, so you can become fit

library(befitteR)

name <- params$name
weight <- params$weight
height <- params$height
sex <- params$sex
age <- params$age
bfp <- params$bfp
objective <- params$objective
effort <- params$effort

Settings

print(data.frame(
  settings = c(
    "Name",
    "Weight (kg)",
    "Height (cm)",
    "Sex",
    "Age (years)",
    "Body fat (%)",
    "Objective",
    "Effort"
  ),
  input = c(name, weight, height, sex, age, bfp, objective, effort)
), row.names = FALSE)

Metabolism

BMR

calculate_rmr(
  weight = weight,
  height = height,
  age = age,
  sex = sex,
  bfp = bfp,
  equation = "revised-harris-benedict"
)

Mean RMR

(
  mean_rmr <- calculate_mean_rmr(
    weight = weight,
    height = height,
    age = age,
    sex = sex,
    bfp = bfp
  )
)

TDEE

# Use the mean
calculate_tdee(
  rmr = mean_rmr[[7,2]],
  objective =  objective,
  effort = effort
)

Mean TDEE

(mean_tdee <-
  calculate_mean_tdee(weight, height, age, sex, bfp, objective, effort))

BMR + TDEE

(cals <- merge(mean_rmr, mean_tdee, by = "Equation"))

Water intake

# Take the mean out of the mean_tdee table. Which is row 7, column 2.
calculate_water_intake(tdee = mean_tdee[[7,2]])

Nutritional information

Macro balance

calculate_macros(mean_tdee[[7,2]], balance = c(c = 0.5, p = 0.25, f = 0.25))

Keto diet

keto <- c(c = 0.05, p = 0.25, f = 0.7)
calculate_macros(mean_tdee[[7,2]], balance = keto)

MarijnJABoer/befitteR documentation built on April 24, 2020, 5:43 a.m.