Entering edit mode
The function limma::residuals.MArrayLM ignores the 'design' argument.
The current code is:
fitted.MArrayLM <- function(object,design=object$design,...) # Fitted values from MArray linear model fit # Gordon Smyth # 29 November 2005 { object$coefficients %*% t(object$design) }
and should be changed to
fitted.MArrayLM <- function(object,design=object$design,...) # Fitted values from MArray linear model fit # Gordon Smyth # 29 November 2005 { object$coefficients %*% t(design) }