######################################################################
if(1) { ##read in data
x = read.csv("kdd-upsell-x.csv")
y = read.csv("kdd-upselllabs-y.csv")
yf = as.factor(y$upselllabs)

cat("dim(x): ",dim(x),"\n")
cat("length(y): ",length(y),"\n")

print(table(y$upselllabs,yf))
}
######################################################################
if(1) {### look at data
par(mfrow=c(1,2))
for(i in 1:ncol(x)) {
   cat("on var i",i,"\n")
   nna = sum(is.na(x[[i]]))
   ngood = nrow(x)-nna
   cat("num na: ",nna,"\n")
   cat("ngood : ",ngood,"\n")
   if(ngood >0) {
      print(summary(x[[i]]))
      plot(x[[i]])
      plot(yf,x[[i]])
      readline("go?")
   } else {
      cat("NO GOOD ONES !!!! \n")
   }
}
}