Exercise 4-8

or…

list(x = x, y = y, unlist(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
## 
## [[3]]
##          z1          z2          z3          z4          z5          z6 
##  0.49711745  0.37325187  0.60553712 -1.10908978  1.26169609  0.28415036 
##          z7          z8          z9         z10          w1          w2 
##  0.78798377  1.20405732 -0.99276989  0.39511677  1.12544834  0.93648782 
##          w3          w4          w5          w6          w7          w8 
## -0.40601422  1.08054532 -1.09388656 -0.01681238  0.88087428 -0.98589263 
##          w9         w10 
## -0.04030774 -1.91535669