https://github.com/cran/robCompositions
Raw File
Tip revision: 2ad963b97009de7f1bf46c5da8604388c2c67d05 authored by Matthias Templ on 27 February 2013, 09:44:32 UTC
version 1.6.3
Tip revision: 2ad963b
alr.R
alr <- function (x, ivar=ncol(x)){
	
	.Deprecated("addLR")
	
	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)
}
back to top