Я получаю сообщение об ошибке при запуске этого кода для преобразования блока Кокса
Ошибка: mat [i,] <- p количество заменяемых элементов не кратно длине замены </p>
mat1<-matrix(Na,101,1)
for (i in 1:length(d4)) {
d<-d4[[i]]
p<-powerTransform(d$DBP)
d$NEWDBP<-bcPower(d$DBP, p$lambda)
results<-shapiro.test(d$NEWDBP)
mat1[i,]<-(results$p.value)
mat[i,]<-p
}
mat1
Он печатает результаты, но выдает мне эту ошибку, длина набора составляет 101, что я делаю не так?