R/normalizeQuantiles.list.R

In drmjc/microarrays: A collection of microarray and genomic helper code.

#' Function to qnorm a list of matrices It joins the list elements into one
#' large data.frame, then quantile normalizes this large data.frame. This then
#' gets deconstructed back into a list with the same properties as the supplied
#' list
#' 
#' @param x a \code{list} which can be converted to a \code{data.frame}
#' 
#' @return a \code{data.frame} of quantile normalised data
#' 
#' @author Mark Cowley, 23 Nov 2005
#' @export
#' @importFrom limma normalizeQuantiles
normalizeQuantiles.list <- function(x) {
    require(limma)

    tmp <- normalizeQuantiles( as.data.frame(x) )

    res <- list()
    for(i in 1:length(x)) {
        res[[i]] <- tmp[, 1:ncol(x[[i]])]
        tmp <- tmp[, -c(1:ncol(x[[i]]))]
        colnames(res[[i]]) <- colnames(x[[i]])
    }
    names(res) <- names(x)

    return(res)
}