Как я могу пройти тест Шапиро-Вилка

Я хочу провести тест Шапиро-Вилка для своих регрессий. Вот мой код

library(data.table)

Regresiones_shapirotest_1<- 
data.table(tabla.Enero)[, 
                      .(Lm = lapply(.SD, function(x) resid(lm(tabla.Enero$PPNA ~  x)))),
                      .SDcols = 15:93]

Я могу получить тестовые значения только в консоли

 Regresiones_shapirotest_1 [, lapply(Lm, shapiro.test)]   [2]


 write.xlsx (Regresiones_shapirotest_1 , file = "shapirotest.xlsx", sheetName = "Hoja1",
        Col.names = TRUE, row.names = TRUE, append = FALSE)

Но когда я пытаюсь экспортировать их в файл .xlsx, он экспортирует множество значений, которые не имеют ничего общего со значениями консоли. Что я делаю неправильно?


r linear-regression lapply anova
person Pablo    schedule 16.04.2020    source источник
comment
Привет, каков результат работы класса (Regresiones_shapirotest_1)?   -  person user12256545    schedule 16.04.2020
comment
str(Regresiones_shapirotest_1) Возвращает это: Classes ‘data.table’ and 'data.frame': 79 obs. of 1 variable: $ Lm:List of 79 ..$ : Named num 64.6 -77.3 46.2 102.1 -45.5 ... .. ..- attr(*, "names")= chr "1" "2" "3" "4" ...   -  person Pablo    schedule 16.04.2020
comment
похоже, что у вас есть список внутри фрейма данных, дающий вам проблемы   -  person user12256545    schedule 16.04.2020