Mehrere p-Wert in shapiro.test mit R

Question

Ich möchte den p-Wert von mehreren shapiro Test erhalten. Ich möchte die Normalität von 20 (von 4 bis 23) Spalten aus einem Datenrahmen namens Blase testen, dann möchte ich den p-Wert von jedem programmgesteuert abrufen und speichern, ich versuche etwas wie:

ttest20<-apply(bladder[4:23], 2, shapiro.test) 
pVals <- numeric() 
for(i in 1:length(ttest20)){ 
pVals<- ttest20[i]$p.value 
} 

aber die letzte Zeile speichert nicht den ganzen p-Wert. Könnte mir jemand helfen? Danke vielmals.

Answer 1

fand ich nur die Antwort aus, hier ist es:

ttest20<-apply(bladder[,4:23], 2, function(x) shapiro.test(x)$p.value) 

Dies gibt alle den p-Wert von allen shapiro.test