data(anscombe)
lapply(anscombe,mean)
## $x1
## [1] 9
## 
## $x2
## [1] 9
## 
## $x3
## [1] 9
## 
## $x4
## [1] 9
## 
## $y1
## [1] 7.500909
## 
## $y2
## [1] 7.500909
## 
## $y3
## [1] 7.5
## 
## $y4
## [1] 7.500909
lapply(anscombe,sd)
## $x1
## [1] 3.316625
## 
## $x2
## [1] 3.316625
## 
## $x3
## [1] 3.316625
## 
## $x4
## [1] 3.316625
## 
## $y1
## [1] 2.031568
## 
## $y2
## [1] 2.031657
## 
## $y3
## [1] 2.030424
## 
## $y4
## [1] 2.030579
attach(anscombe)
par(mfrow=c(2,2))
plot(x1,y1)
plot(x2,y2)
plot(x3,y3)
plot(x4,y4)