# 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") |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment