Calculates a calorie budget

budget(wt_delta_per_week, bmr)

Arguments

wt_delta_per_week

expected change in weight per week

bmr

Basal Metabolic Rate, in kilocalories

Value

Calorie targets per day

References

https://help.loseit.com/hc/en-us/articles/115007245847-How-the-Calorie-Budget-is-Calculated

Author

Waldir Leoncio

Examples

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 
#>