0128_bmi.R

68/1.65^2

## [1] 24.97704

h <- 1.65
w <- 68
bmi <- w/h^2
H <- c(1.8,1.75,1.70,1.65)
W <- c(60,90,65,60)
BMI <- W/H^2
mean(BMI)

## [1] 23.10905

BMI_m <- mean(BMI)
BMI_m

## [1] 23.10905

round(BMI_m,2)

## [1] 23.11

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

##        A        B        C        D 
## 18.51852 29.38776 22.49135 22.03857

W

## [1] 60 90 65 60

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"))