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
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)
calculate_rmr( weight = weight, height = height, age = age, sex = sex, bfp = bfp, equation = "revised-harris-benedict" )
( mean_rmr <- calculate_mean_rmr( weight = weight, height = height, age = age, sex = sex, bfp = bfp ) )
# Use the mean calculate_tdee( rmr = mean_rmr[[7,2]], objective = objective, effort = effort )
(mean_tdee <- calculate_mean_tdee(weight, height, age, sex, bfp, objective, effort))
(cals <- merge(mean_rmr, mean_tdee, by = "Equation"))
# Take the mean out of the mean_tdee table. Which is row 7, column 2. calculate_water_intake(tdee = mean_tdee[[7,2]])
calculate_macros(mean_tdee[[7,2]], balance = c(c = 0.5, p = 0.25, f = 0.25))
keto <- c(c = 0.05, p = 0.25, f = 0.7) calculate_macros(mean_tdee[[7,2]], balance = keto)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.