データフレームがあるとしましょう
> col1<-c(1,5,2,6,8,1,3,8,9,1,8)
> col2<-c(1,2,1,1,2,2,1,2,2,1,1)
> df<-data.frame(col1,col2)
> df
col1 col2
1 1 1
2 5 2
3 2 1
4 6 1
5 8 2
6 1 2
7 3 1
8 8 2
9 9 2
10 1 1
11 8 1
私が持っているデータでクルスカル・ワリス検定を実行しましたdf
> dfKW<-kruskal.test(col1~col2, data=df)
> dfKW
Kruskal-Wallis rank sum test
data: col1 by col2
Kruskal-Wallis chi-squared = 1.695, df = 1, p-value = 0.1929
私がしたいのは、p値をベクトルに抽出することです(ラベル「p値」のない値のみ)。私はこれを試しました：
> dfKWx<-sapply(dfKW, '[', 'p.value')
> dfKWx
statistic.NA parameter.NA p.value method data.name
NA NA NA NA NA
明らかに運が悪い。
Google 教授から得た最初の支援により、私は上記のポイントに到達しました。
すべての助けに心から感謝します。ありがとうございました！
PS。データは例を提供するためだけのものであることに注意してください。私は正規分布をテストしていませんし、これらのデータでテストしたくもありません。私の元の作業データは正常に配布されませんが、機密保持のため、例として使用しません。サンプル データは、元の作業データと同様に動作します。