Tenho o data.frame
:
library(tidyverse)
library(broom)
set.seed(1)
dataset<-as_tibble(matrix(runif(6*30,20,100),ncol=6))
cluster<-kmeans(dataset,3)
dataset$kmeans<-as.factor(cluster[['cluster']])
E faço esta análise:
res1<-dataset%>%
group_by(kmeans)%>%
do(reg=
lm(V1~V2+V3+V4+V5+V6,data=.))%>%
tidy(.,reg)
E tudo dá certo. Mas, quando tento inserir o teste de Shapiro-Wilk, o resultado não é produzido pela função broom::tidy
:
shap<-function(x){
lapply(x,shapiro.test)
} # função criada para aplicar o teste nas colunas de um data.frame
res2<-dataset%>%
group_by(kmeans)%>%
do(shapiro=
shap(.[c(1:6)]))%>%
tidy(.,shapiro)
Error: No tidy method recognized for this list.
Qual o problema?