R/add.pheno.R

In jianan/qtlpvl: Test of Pleiotropy vs. Close Linkage of QTL

##' for each transband, add the phenotypes "Y".
##'
##' @inheritParams add.effect
##' @inheritParams make.transbands
add.pheno <- function(transbands, mlratio){
  for(i in 1:length(transbands)){
    phenos <- transbands[[i]]
    Y <- mlratio[, phenos]
    attr(transbands[[i]], "Y") <- Y
  }
  return(transbands)
}