# example by Greg Snow
x <- rlnorm(500, 3, 2)
par(mfrow=c(2,2))
qqnorm(x, main="Lognormal")
qqnorm(BoxCox(x, 1/2), main="BoxCox(lambda=0.5)")
qqnorm(BoxCox(x, 0), main="BoxCox(lambda=0)")
PlotFdist(BoxCox(x, 0))
bx <- BoxCox(x, lambda = BoxCoxLambda(x) )
Run the code above in your browser using DataLab