## LOAD THE DATA
data(digits)
## SHOW A FEW
# Select 9 random images
subimgs = digits$image[sample(1:5000, 9)]
opar <- par(no.readonly=TRUE)
par(mfrow=c(3,3), pty="s")
for (i in 1:9){
image(subimgs[[i]])
}
par(opar)
Run the code above in your browser using DataLab