New R

two Rscripts, one with prediction and the other with validation