Calculates a calorie budget
budget(wt_delta_per_week, bmr)
expected change in weight per week
Basal Metabolic Rate, in kilocalories
Calorie targets per day
https://help.loseit.com/hc/en-us/articles/115007245847-How-the-Calorie-Budget-is-Calculated
BMR <- bmr(66, 40, .12, 178, method = "kma")
budget(0, BMR) # for weight maintenance with a weekend bonus
#> $constant
#> kcal per day
#> 2355.566
#>
#> $flexible
#> weekdays.kcal per day weekend.kcal per day
#> 2261.343 2591.122
#>
budget(.25, BMR) # for a slight weight gain
#> $constant
#> kcal per day
#> 2631.143
#>
#> $flexible
#> weekdays.kcal per day weekend.kcal per day
#> 2525.898 2894.258
#>