Read MNIST data

http://yann.lecun.com/exdb/mnist/.

to.read = file("D:/R_Files/MNIST_data/t10k-images-idx3-ubyte", "rb")

readBin(to.read, integer(), n=1, endian="big")
## [1] 2051
readBin(to.read, integer(), n=1, endian="big")
## [1] 10000
readBin(to.read, integer(), n=1, endian="big")
## [1] 28
readBin(to.read, integer(), n=1, endian="big")
## [1] 28
to.read = file("D:/R_Files/MNIST_data/t10k-images-idx3-ubyte", "rb")
readBin(to.read, integer(), n=4, endian="big")
## [1]  2051 10000    28    28
m = matrix(readBin(to.read,integer(), size=1, n=28*28, endian="big"),28,28)
image(m)

par(mfrow=c(5,5))
par(mar=c(0,0,0,0))
for(i in 1:25){m = matrix(readBin(to.read,integer(), size=1, n=28*28, endian="big"),28,28);image(m[,28:1])}

par(mfrow=c(3,3))

rawfile<-read.csv("D:/R_Files/mnist_train.csv",header=T) #Reading the csv file
## Warning: closing unused connection 5 (D:/R_Files/MNIST_data/t10k-images-
## idx3-ubyte)
im<-matrix((rawfile[1,2:ncol(rawfile)]), nrow=28, ncol=28) #For the 1st Image
im_numbers <- apply(im, 2, as.numeric)
image(1:28, 1:28, im_numbers, col=gray((0:255)/255))
im<-matrix((rawfile[2,2:ncol(rawfile)]), nrow=28, ncol=28) #For the 2nd Image
im_numbers <- apply(im, 2, as.numeric)
image(1:28, 1:28, im_numbers, col=gray((0:255)/255))
im<-matrix((rawfile[3,2:ncol(rawfile)]), nrow=28, ncol=28) #For the 2nd Image
im_numbers <- apply(im, 2, as.numeric)
image(1:28, 1:28, im_numbers, col=gray((0:255)/255))
im<-matrix((rawfile[4,2:ncol(rawfile)]), nrow=28, ncol=28) #For the 2nd Image
im_numbers <- apply(im, 2, as.numeric)
image(1:28, 1:28, im_numbers, col=gray((0:255)/255))

im<-matrix((rawfile[5,2:ncol(rawfile)]), nrow=28, ncol=28) #For the 1st Image
im_numbers <- apply(im, 2, as.numeric)
image(1:28, 1:28, im_numbers, col=gray((0:255)/255))
im<-matrix((rawfile[6,2:ncol(rawfile)]), nrow=28, ncol=28) #For the 2nd Image
im_numbers <- apply(im, 2, as.numeric)
image(1:28, 1:28, im_numbers, col=gray((0:255)/255))
im<-matrix((rawfile[7,2:ncol(rawfile)]), nrow=28, ncol=28) #For the 2nd Image
im_numbers <- apply(im, 2, as.numeric)
image(1:28, 1:28, im_numbers, col=gray((0:255)/255))
im<-matrix((rawfile[8,2:ncol(rawfile)]), nrow=28, ncol=28) #For the 2nd Image
im_numbers <- apply(im, 2, as.numeric)
image(1:28, 1:28, im_numbers, col=gray((0:255)/255))
im<-matrix((rawfile[9,2:ncol(rawfile)]), nrow=28, ncol=28) #For the 2nd Image
im_numbers <- apply(im, 2, as.numeric)
image(1:28, 1:28, im_numbers, col=gray((0:255)/255))