## https://www.kaggle.com/c/bosch-production-line-performance/forums/t/23546/why-all-responses-in-train-numeric-csv-are-0

library(data.table)

# Load just the Id and Response fields
dt_TrainResponse <- fread("../input/train_numeric.csv",select=c('Id','Response'))

#Show counts by Response
table(dt_TrainResponse$Response)