R/pumaPCAUpdateCinv.R

In puma: Propagating Uncertainty in Microarray Analysis(including Affymetrix tranditional 3' arrays and exon arrays and Human Transcriptome Array 2.0)

pumaPCAUpdateCinv <- function
(
    model
,   expectations
,   varY
,   Y
)
{
    C <- apply(expectations@xxT, 1:2, mean) -
            ( 2 * matrix(colMeans(expectations@x)) %*% model@m ) +
            ( t(model@m) %*% model@m )
    Cinv <- solve(C)
#    C
}