R/boxcoxw.R

Defines functions boxcoxw

boxcoxw <-
function(y, lambda)
{ytilde<-geommean(y)
if(lambda==0){ytilde*log(y)}else{
((y^lambda)-1)/(lambda*ytilde^(lambda-1))}
}
schaarschmidt/mixADA documentation built on May 29, 2019, 3:25 p.m.