Revision 128cc5eed366a5a3f6c33b70a81379c1b1ca8688 authored by Matthias Templ on 16 August 2010, 18:42:55 UTC, committed by cran-robot on 16 August 2010, 18:42:55 UTC
1 parent 4c9961a
alr.R
alr <- function (x, ivar=ncol(x)){
if(dim(x)[2] < 2) stop("data must be of dimension greater equal 2")
x.alr <- log(x/x[, ivar])
res <- list(x.alr=x.alr[-ivar],
varx=x[,ivar], ivar=ivar, cnames=colnames(x))
class(res) <- "alr"
invisible(res)
}
Computing file changes ...
