# Plots 49 random handwritten digits drawn from the training set

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

print(train)