Exercise 4-8

c(list(x = x, y = y), zw)

## $x
##  [1]  1.2053394 -2.6491687 -1.5114299 -1.9728076  0.5304457 -0.4632518
##  [7]  0.7040600  1.4026619  0.3824650  0.5770727
## 
## $y
##  [1] -2.3583452  0.8780615 -1.0052583 -1.3369567  1.0983691 -0.1163385
##  [7]  0.1260185  0.2181504  0.6321705 -0.3976644
## 
## $z
##  [1]  0.4971175  0.3732519  0.6055371 -1.1090898  1.2616961  0.2841504
##  [7]  0.7879838  1.2040573 -0.9927699  0.3951168
## 
## $w
##  [1]  1.12544834  0.93648782 -0.40601422  1.08054532 -1.09388656 -0.01681238
##  [7]  0.88087428 -0.98589263 -0.04030774 -1.91535669