R/variable.names.manyglm.R

In eddelbuettel/mvabund-tests: Statistical Methods for Analysing Multivariate Abundance Data

variable.names.manyglm <- 
function (object, full = FALSE, ...) 
{
    if (full) 
        dimnames(object$qr[[1]]$qr)[[2]]
    else if (object$rank) 
        dimnames(object$qr[[1]]$qr)[[2]][seq_len(object$rank)]
    else character(0)
}