powered by
f.log
s
f.log(x)
x <- c(rep(0,20), exp(rnorm(1000))) fx <- f.log(x) oldpar <- par(mfrow = c(2, 3)) plot(x) qqnorm(x) T3plot(x) plot(fx) qqnorm(fx) T3plot(fx) par(oldpar)
Run the code above in your browser using DataLab