# NOT RUN {
data(OA131)
# centering and reducing to [0,1]^3
OA <- (OA131 + 0.5)/7
pairs(OA, xlim=c(0,1), ylim=c(0,1))
# }
# NOT RUN {
library(lattice)
cloud(x3~x1+x2, data=OA, xlim=c(0,1), ylim=c(0,1), zlim=c(0,1),
screen = list(z = 50, x = -70, y = 0))
# }
Run the code above in your browser using DataLab