system("ls ../input")

library(readr)

train <- read_csv("../input/training.csv")

print(train)