0128_bmi.R

74/1.75^2

## [1] 24.16327

h <- 1.75
w <- 74
bmi <- w/h^2
H <- c(1.63, 1.82, 1.73, 1.68)
W <- c(54, 88, 67, 55)
BMI <- W/H^2
mean(BMI)

## [1] 22.19114

BMI_m <- mean(BMI)
round(BMI_m, 2)

## [1] 22.19

NAMES <- c("A", "B", "C", "D")
names(BMI) <- NAMES
BMI

##        A        B        C        D 
## 20.32444 26.56684 22.38631 19.48696

barplot(BMI, xlab = "NAME", ylab = "BMI",col = "purple")

barplot(BMI, xlab = "NAME", ylab = "BMI",col = c("blue", "purple", "yellow", "green"))

barplot(sort(BMI), xlab = "NAME", ylab = "BMI",col = c("blue", "purple", "yellow", "green"))