allstate-purchase-prediction.R

library(dplyr)

#train <- read.csv("train.csv")
test <- read.csv("test_v2.csv")

last_items <- test %.%
  group_by(customer_ID) %.%
  filter(shopping_pt==max(shopping_pt)) %.%
  mutate(plan=paste(A,B,C,D,E,F,G,sep='')) %.%
  select(customer_ID,plan)

write.csv(last_items,"submit.csv",
          row.names=F,quote=F)