Revision 2ad963b97009de7f1bf46c5da8604388c2c67d05 authored by Matthias Templ on 27 February 2013, 09:44:32 UTC, committed by cran-robot on 27 February 2013, 09:44:32 UTC
1 parent 823295f
cenLRinv.R
cenLRinv <- function(x, useClassInfo=TRUE){
if(class(x) != "clr" & useClassInfo == TRUE) warning("useClassInfo was set to FALSE, because x is not from class clr")
if(!(class(x) %in% c("clr", "data.frame", "matrix"))) stop("class from x must be either clr, data.frame or matrix")
xclr <- x$x.clr
if(class(x) == "clr" & useClassInfo==TRUE){
dat <- exp(xclr) * x$gm
} else if(class(x) != "clr" | useClassInfo==FALSE){
dat <- exp(x)
}
return(dat)
}
Computing file changes ...
