Logistic Benchmark

library(data.table)
library(dplyr)
library(dtplyr)

# Load data
events <- fread( '../training.csv' )

x <- events %>% select( -c( EventId, Weight ) )
y <- as.numeric( as.factor( events$Label ) ) - 1

log_mod <- glm( Label ~ ., 
                data = cbind(
                  events %>% select( -c( EventId, Weight, Label ) ),
                  Label = y
                  ),
                family = 'binomial' )