# Plots 49 random handwritten digits drawn from the training set

library(ggplot2)
library(grid)
library(readr)
train <- data.frame(read_csv("../input/train.csv"))

labels   <- train[,1]
features <- train[,-1]

dim(features)