Creating training and validation datasets
set.seed(123567)
random <- runif(dim(Data)[1])