library(warbleR)
data("selec.table")
# mess column order
selec.table <- selec.table[, sample(1:ncol(selec.table))]
#check names
names(selec.table)
selec.table <- sort_colms(X = selec.table)
#check names again
names(selec.table)
Run the code above in your browser using DataLab