| 내용 | 
		oldPar = par(mfrow=c(5,5), mar=c(1,1,1,1))
to.read = file("~/Downloads/train-images.idx3-ubyte", "rb")
readBin(to.read, integer(), n=4, endian="big")  # skip header 2051 60000    28    28
for(i in 1:25){
  m = matrix(readBin(to.read, integer(), n=28*28, size=1, signed=F), 28, 28);
  image(m[,28:1])
}
par(oldPar)
 |