| # 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