> age <- c(1,3,5,2,11,9,3,9,12,3)
> weight <- c(4.4,5.3,7.2,5.2,8.5,7.3,6.0,10.4,10.2,6.1)
> mean(weight) #算数平均数
[1] 7.06
> sd(weight) #标准差
[1] 2.077498
> cor(age,weight) # 月龄和体重线性相关系数
[1] 0.9075655
> plot(age,weight)
> age <- c(1,3,5,2,11,9,3,9,12,3)
> weight <- c(4.4,5.3,7.2,5.2,8.5,7.3,6.0,10.4,10.2,6.1)
> mean(weight) #算数平均数
[1] 7.06
> sd(weight) #标准差
[1] 2.077498
> cor(age,weight) # 月龄和体重线性相关系数
[1] 0.9075655
> plot(age,weight)