## load libraries library(splitTools) library(ranger) library(tidyr) library(xlsx) ##enter file for split split<-"whitetaileddeer_1819.xlsx" ##enter file to write to write<-"whitetaileddeer_train_test.xlsx" data<-read.xlsx(split,1,header=FALSE) full<-read.xlsx(write,1,header=FALSE) ## run test-train split (70/30) data <- tidyr::drop_na(data) inds <- partition(data[,2], p = c(train = 0.7, test = 0.3)) test<-c() for (i in 1:length(inds$test)){ test<-cbind(test,full[,inds$test[i]]) } train<-c() for (i in 1:length(inds$train)){ train<-cbind(train,full[,inds$train[i]]) } ## append split data write.xlsx(train, file = write, sheetName="train_data", append=TRUE) write.xlsx(test, file = write, sheetName="test_data", append=TRUE)