R/addMarkerNames.R

In mckaylab/TSPmap: A tool making use of traveling salesperson problem solvers in the efficient and accurate construction of high-density genetic linkage maps

#' add marker names
#'
#' @description  function to add marker names
#' @usage addMarkerNames(mymatrix, rawdata)
#' @param mymatrix - rfmatrix
#' @param rawdata raw marker data file to get names from
#' @return pretty rf matrix
#' @export
#'
addMarkerNames = function(mymatrix, rawdata){
  # add row names after making df
  mydf = as.data.frame(mymatrix)
  # add colnames
  colnames(mydf) = names(rawdata)
  mydf$marker = names(rawdata)

  # swap col order
  mydf = cbind(mydf[,ncol(mydf)], mydf[,1:ncol(mydf) - 1])
  colnames(mydf)[colnames(mydf) == colnames(mydf)[1]] = "marker"
  return(mydf)
}