if (FALSE) {
ds <- mnist_dataset(download = TRUE)
item <- ds[1]
item$x # image
item$y # label
qmnist <- qmnist_dataset(split = "train", download = TRUE)
item <- qmnist[1]
item$x
item$y
emnist <- emnist_dataset(split = "balanced", download = TRUE)
item <- emnist[1]
item$x
item$y
kmnist <- kmnist_dataset(download = TRUE)
fmnist <- fashion_mnist_dataset(download = TRUE)
}
Run the code above in your browser using DataLab