Untitled

wei <- c(50,55,57,60,78)

hei <- c(155,156,160,170,181)

mean(wei) #平均數 median(wei) #中位數 min(wei0 max(wei) as.numberic(names(table(wei)))[which.max(table(wei))]

## [1] 60

sd(wei) #標準差 var(wei) #變異數

## [1] 10.70047

plot(wei,hei, pch = 15, col = "red", main = "班上的身高體重", xlab = "體重", ylab = "身高")

hist(wei,col = "lightyellow", main="班上的身高體重",xlab = "體重",ylab = "人數")