data(Prestige)
attach(Prestige)
summary(box.cox.powers(cbind(income, education)))
##  Box-Cox Transformations to Multinormality 
## 
##            Est.Power Std.Err. Wald(Power=0) Wald(Power=1)
##  income       0.2617   0.1018        2.5697       -7.2512
##  education    0.4242   0.4049        1.0475       -1.4222
## 
##  L.R. test, all powers = 0:  7.6186   df = 2   p = 0.0222
##  L.R. test, all powers = 1:  48.3936   df = 2   p = 0 
plot(income, education)
plot(box.cox(income, .26), box.cox(education, .42))
summary(box.cox.powers(income))
## Box-Cox Transformation to Normality 
## 
##  Est.Power Std.Err. Wald(Power=0) Wald(Power=1)
##     0.1793   0.1114          1.61       -7.3698
## 
## L.R. test, power = 0:  2.6837   df = 1   p = 0.1014
## L.R. test, power = 1:  46.7977   df = 1   p = 0 
qq.plot(income)
qq.plot(income^.18)Run the code above in your browser using DataLab