trainData <- read.csv("../input/train.csv")