Kaggle Submission 1

train_rpart <- rpart(click ~ dayofweek + dayhour + banner_pos +
site_category + app_category + device_type
+ device_conn_type + c1 + c15 + c16 + c18 + c20,
data =trainData, method = "class")