R/parse_loc.R

In susjoh/crimaptools: Tools for preparing files and parsing output for the programme Cri-MAP

#' parse_loc: Parse output from CriMAP .loc files
#' @param locfile .loc file
#' @export


parse_loc <- function(locfile){

  loc.tab <- read.table(locfile, skip = 5)
  names(loc.tab) <- c("CrimapOrder", "SNP.Name", "inf.mei", "inf.mei.PK", "tot_f", "tot_m", "pk_f", "pk_m")
  loc.tab

}