R script for higgs challenge