R/OrderByLocus.R

In kkeenan02/MsatAllele: Visualizes the scoring and binning of microsatellite fragment sizes

OrderByLocus <- function(DataBase, marker){
  # LocusDB <- DataBase[DataBase$Marker == marker, ]
  o <- order(DataBase$Fragment[DataBase$Marker == marker])
  out <- data.frame(Sample = DataBase$Sample[o],
                    Read = DataBase$Fragment[o])
  return(out)
}