# NOT RUN {
## LOAD THE DATA
data(hands)
## VISUALIZE 6 HANDS OF PERSON 1
opar <- par(no.readonly=TRUE)
par(mfrow=c(2,3))
for (i in 1:6){
xx = hands$data[,1,i]
yy = hands$data[,2,i]
plot(xx,yy,"b", cex=0.9)
}
par(opar)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab