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