library(data.table)
test <- fread("../input/train_numeric.csv", header = TRUE, sep = ",", stringsAsFactors = TRUE, nrows = 10)
print(dim(test))
print(colnames(test))

test <- fread("../input/train_categorical.csv", header = TRUE, sep = ",", stringsAsFactors = TRUE, nrows = 10)
print(dim(test))
print(colnames(test))
print(test)