Untitled

height <- c(80,30,60,50)
weight <- c(70,20,50,70)

mean(height)

## [1] 55

median(height)

## [1] 55

min(height)

## [1] 30

max(height)

## [1] 80

sd(height) # 標準差

## [1] 20.81666

var(height) # 變異數

## [1] 433.3333

plot(height,weight,
     pch = 11,
     col= "brown",
main="班上的體重與身高",
xlab="體重",
ylab="身高")

hist(height,
     col= "brown",
main="體重",
xlab="體重",
ylab="身高")