## Not run:
# library(asymLD)
# data(snp.freqs)
#
# # sort snp.freqs by "locus1" (ascending) and "allele1" (descending)
# newdata <- lsort(snp.freqs, by=c("locus1","allele1"), asc=c(T,F))
# head(newdata)
# # sort snp.freqs by the fourth and the second variable (ascending)
# newdata <- lsort(snp.freqs, by=c(4,2))
# # sort "snp.freqs" by "locus1" and the 5th variable (ascending)
# newdata <- lsort(snp.freqs, by=list("locus1",5))
#
# ## End(Not run)
Run the code above in your browser using DataLab