loading validation set
DataValid <- read.csv("DataValid.csv", header = TRUE)
DataValid$claim_amount[DataValid$claim_amount < 30] <- 0
DataValid$claim_nb <- DataValid$claim_nb * (DataValid$claim_amount > 0)
#
DataValid$pol_coverage_r <- DataValid$pol_coverage
DataValid$vh_fuel_r <- DataValid$vh_fuel
DataValid$vh_type_r <- DataValid$vh_type
DataValid$pol_pay_freq_r <- DataValid$pol_pay_freq
DataValid$pol_payd_r <- DataValid$pol_payd
DataValid$drv_drv2_r <- DataValid$drv_drv2
DataValid$pol_usage_r <- DataValid$pol_usage
DataValid$drv_sex1_r <- DataValid$drv_sex1
DataValid$y[DataValid$claim_nb==0] <- 0
DataValid$y[DataValid$claim_nb > 0] <- 1