0128–BMI.R

72/1.72^2

## [1] 24.33748

h <- 1.72
w <- 72
bmi <- w/h^2
H <- c(1.8,2.0,1.72,1.5)
W <- c(100,87,76,45)
BMI <- W/H^2
mean(BMI)

## [1] 24.57594

BMI_m <- mean(BMI)
BMI_m

## [1] 24.57594

round(BMI_m,2)

## [1] 24.58

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

##        A        B        C        D 
## 30.86420 21.75000 25.68956 20.00000

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

barplot(sort(BMI), xlab = "NAME", ylab = "BMI",col=c("green","red","blue","black"))