library(ggplot2) # Data visualization
library(readr) # CSV file I/O, e.g. the read_csv function
require(data.table)

system("ls ../input/train_sm")
samp <- fread("../input/sample_submission.csv")
#samp <- fread("../input/train_sm/")

summary(samp)
head(samp)
class(samp$day)