Я думаю, вам нужно изменить свои стандарты на "достаточно близкие".Когда я делаю ту же самую процедуру с любым моим random.seed в данный момент, я получаю
> p
Estimated transformation parameters
x
0.01389905
И мои дальнейшие эксперименты показывают, что ваше значение находится в «внешней» области распределения.Когда я делаю это 1000 раз, я даже не получаю такого экстремального значения, как ваше:
v <- vector("numeric", 1000)
for (i in 1:1000) {x <- exp(qnorm(runif(1000)))
v[i] = powerTransform(x)$lambda}
Hmisc::describe(v)
v
n missing unique Mean .05 .10
1000 0 1000 -0.000212 -0.039335 -0.033698
.25 .50 .75 .90 .95
-0.017978 -0.001259 0.017593 0.033499 0.044303
lowest : -0.09670 -0.09472 -0.08878 -0.08456 -0.07255
highest: 0.06730 0.06830 0.06932 0.06955 0.07142
В дополнение к MASS :: boxcox от Venables & Ripley, упомянутому @Josh O'Brien, есть такжеФункция car :: boxCox в обширном наборе функций регрессионной диагностики пакета Джона Фокса (который вы уже загрузили).