R/mtrans.R

In bayesball/LearnEDAfunctions: Functions for Learning Exploratory Data Analysis

Defines functions mtrans

Documented in mtrans

mtrans <- function(d, p){
xo <- median(d)
if(p == 0){
xo + (log10(d) - log10(xo)) / (log10(exp(1)) / xo)
}
else {
xo + (d ^ p - xo ^ p) / (p * xo ^ (p - 1))
}
}