Untitled

weight<- c(46,51,66,68,77,88)
tall<- c(160,165,172,173,177,179)

mean(weight)

## [1] 66

median(tall)

## [1] 172.5

mean(tall)

## [1] 171

sd(weight)  #標準差

## [1] 15.70987

var(weight) #變異數

## [1] 246.8

plot(weight,tall,
pch=17,
col="skyblue")