R/add_names.R

In cibiobcg/abemus: Adaptive Base Error Model in Ultra-Deep Sequencing Data

add_names <- function(pm,
                      name.patient,
                      name.plasma,
                      name.germline){
  pm$PatientID = name.patient
  pm$CaseID = name.plasma
  pm$GermlineID = name.germline
  pm = pm[with(pm,order(chr,pos)),]
  return(pm)
}