Training set is our data <<0.6
train <- random < 0.6
DataTrain <- cbind(Data, random, train)