Untitled

weight <- c(70,80,80)
height <- c(80,80,80)

mean(weight)

## [1] 76.66667

median(weight)

## [1] 80

min(weight)

## [1] 70

max(weight)

## [1] 80

var(weight) 

## [1] 33.33333

sd(weight) ^ 

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

## numeric(0)

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