# NOT RUN {
# this can take several seconds, depending on internet speed.
# }
# NOT RUN {
mnist <- read_mnist()
i <- 5
image(1:28, 1:28, matrix(mnist$test$images[i,], nrow=28)[ , 28:1],
col = gray(seq(0, 1, 0.05)), xlab = "", ylab="")
## the labels for this image is:
mnist$test$labels[i]
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab