R/reformat.reference.path.R

In zhangh12/SCAT: Summary Based Conditional Association Test

reformat.reference.path <- function(reference){

  reference <- as.data.frame(reference)

  if("bed" %in% colnames(reference)){
    reference$bed <- as.character(reference$bed)
  }

  if("bim" %in% colnames(reference)){
    reference$bim <- as.character(reference$bim)
  }

  if("fam" %in% colnames(reference)){
    reference$fam <- as.character(reference$fam)
  }

  reference

}