Revision 823295fe4c382069229ac77435da6e5bb14155b9 authored by Matthias Templ on 11 January 2013, 16:29:55 UTC, committed by cran-robot on 11 January 2013, 16:29:55 UTC
1 parent bea0f62
addLR.R
addLR <- 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"
return(res)
}
Computing file changes ...
