rm.zero.cols: Cleans Model Matrices
In Sage-Bionetworks/snm: Supervised Normalization of Microarrays

Description Usage Arguments Author(s) Examples

Removes Zero Columns

1	rm.zero.cols(xx, eps = 10^(-12))

`xx`	Model matrix
`eps`	Cutoff

John D. Storey <jstorey@princeton.edu>

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (xx, eps = 10^(-12)) 
{
    n = ncol(xx)
    vv = NULL
    for (i in 1:n) {
        if (sum(abs(xx[, i])) < eps) {
            vv = c(vv, i)
        }
    }
    if (is.null(vv)) {
        return(xx)
    }
    else {
        return(xx[, -vv])
    }
  }