# NOT RUN {
## Load the data
data(household, package="T4cluster")
## Visualize the data in pairs
opar <- par(no.readonly=TRUE)
scatterplot3d::scatterplot3d(household$data, color=rep(c("red","blue"), each=20),
pch=19, main="household expenditure on the 2-dimensional sphere",
xlim=c(0,1.2), ylim=c(0,1.2), zlim=c(0,1.2), angle=45)
par(opar)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab