0201.R

74/1.75^2

## [1] 24.16327

h <- 1.74
w <- 74
bmi <- w/h^2
H <- c(1.65, 1.89, 1.74, 1.70)
W <- c(77, 80, 75, 68)
BMI <- W/H^2
mean(BMI)

## [1] 24.74503

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

## [1] 24.75

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

##        A        B        C        D 
## 28.28283 22.39579 24.77210 23.52941

W

## [1] 77 80 75 68

barplot(BMI)

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

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

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

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