내용

글번호 796
작성자 허진경
작성일 2018-01-19 06:10:16
제목 MNIST 데이터 확인하기
내용 코드와 결과
oldPar = par(mfrow=c(5,5), mar=c(1,1,1,1))
to.read = file("./Data/MNIST/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)