4-poissonCNN.R

# Check processing on second cat
par(mar = rep(0, 4))
testCat <- t(matrix(as.numeric(trainData$X[2,]),
                    nrow = width, ncol = height, T))
image(t(apply(testCat, 2, rev)), col = gray.colors(12),
      axes = F)

# Save / load
save(trainData, testData, file = "catdogData.RData")
# load("catdogData.RData")