R/rd-signed.r

In tbilab/DESnowball: Bagging with Distance-based Regression for Differential Gene Expression Analyses

robust.distance.signed <-
function(x,method='mcd')
{
    x.w <- as.matrix(x$weights)
    robcov <- cov.rob(x.w,method=method)
    rob.dist <- mahalanobis(x.w,
			    center=robcov$center,
			    cov=robcov$cov)
    rob.dist
}