# it is testing
library(data.table)
library(dplyr)
library(tidyverse) 


train_vars  <- fread("../input/train.csv", nrows = 100)