### R code for Exercise 8.3.14 (a)

data <- c(-0.38982,  -1.06716,
          -2.17746,  -0.57712,
          0.81368,   0.36138,
          -0.00072,  -0.68037,
          -0.11032,  -0.63445,
          -0.70976,  -0.99624,
          0.45664,   -0.18128,
          0.13583,   0.23957,
          0.76384,   -0.77576,
          -0.57041,  -1.42159,
          -2.56511,  -0.81898,
          -1.73311,  0.32863,
          0.40363,  0.21390,
          0.77812,  1.42551,
          -0.11548,  -0.16589)
n <- length(data)/2  # number of observations
dim(data) <- c(2, n) # format "data" into 2 by n matrix
X <- data[1,]        # 1st row is X
Y <- data[2,]        # 2nd row is Y
boxplot(X,Y)         # boxplot X and Y