##' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.