Поиск подходящего преобразования для данных

Question

Вот мои данные:

y = c(-0.1, -0.35, -0.2, -0.35, 0.1, 4, 0.55, 1.85, 0.05, 0.25, 0.15, -0.2, 0.2, 3.4, 0.4, 1.15)  

Я уже пробовал много преобразований, таких как логарифм, квадратный корень, квадрат и куб, но дисперсия одного из факторов по-прежнему не соответствует одинаковой дисперсии.Или я неправильно выполняю преобразование?

s2=apply(data,1,var)  
lns2=log(apply(data,1,var))  
sq2=(apply(data,1,var)^2)

Я также получаю что-то вроде этого:

[1] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA

Что мне теперь делать?* Редактировать: поэтому моя цель - преобразовать данные для достижения предположения о равной дисперсии и нормальности.

Answer 1

Вы пробовали scale?

scaled <- scale(y)

> var(scaled)
     [,1]
[1,]    1
> mean(scaled)
[1] -8.673617e-19