library(warbleR)
data("selec.table")
# mess column order
selec.table <- selec.table[, sample(seq_len(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