Validation set is everything not included in training set
valid <- !(train) ; DataValid <- cbind(Data, random, valid)