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.1014 2.580 -7.280
## education 0.4242 0.4033 1.052 -1.428
##
## L.R. test, all powers = 0: 7.694 df = 2 p = 0.0213
## L.R. test, all powers = 1: 48.8727 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.1108 1.618 -7.406
##
## L.R. test, power = 0: 2.7103 df = 1 p = 0.0997
## L.R. test, power = 1: 47.261 df = 1 p = 0
qq.plot(income)
qq.plot(income^.18)
Run the code above in your browser using DataLab