NN
10th Feb 2018
bmi = round(weight/(height/100)^2, 1)
Your BMI will be presented in a barplot as follows. The categories are per Wikipedia. Here, we present a BMI of 23:
dat<-matrix(c(15, 1, 2.5 ,6.5 , 5, 5, 5), ncol = 1, nrow = 7)
barplot(dat, horiz = TRUE, yaxt="n", xlab = "BMI", main="BMI Scale", col=c("darkred", "red", "orange", "green", "orange", "red", "darkred", "darkred")); lines(x=c(23, 23), y=c(0,1.2), col="blue", lwd=5)