Yuliang Wang
May 23 2015
Suppose a user is 1.83 meters tall and weighs 92 kilograms. Let's go through the BMI calculation.
weight <- 92; height <- 1.83
BMI_original <- 92/1.83^2
round(BMI_original,digits=2)
[1] 27.47
BMI_new <- 1.3*92/1.83^2.5
round(BMI_new,digits=2)
[1] 26.4
It is clear that the new formula yields a smaller BMI - good news!?
The user's BMI falls within the overweight range (25 - 30). How much weight does he need to lose? Let's calculate the minimum weight loss to be within the upper limit of normal BMI - 25.
round(weight - 24.99*1.83^2,digits=2)
[1] 8.31
round(weight_loss_new<- weight - 24.99*1.83^2.5/1.3,digits=2)
[1] 4.91
My Shiny app provides all the information based on both formula - BMI, BMI category, and minimum weight loss required.