Rの相関分析の結果をリストのようにまとめたい

Question

実現したいこと

ここに実現したいことを箇条書きで書いてください。

• Rで相関分析の結果（cor.testの結果）をリストのようにまとめたい

前提

複数組のカラムについてcor.testによる相関分析をするために、whileループを回して相関分析の結果を一つの変数に格納しようとしています。
相関分析の手法については以下の通りです。
cor.result1[loopcounter]<-cor.test(rank(corData1),rank(corData2),method = "pearson")
上のコードを実行した後、cor.result1とコンソールに入力するとすべての分析結果が表示されるようにしたいです。
分析結果はt値、p値、信頼区間を取得したいと考えています。

発生している問題・エラーメッセージ

t値しか取得できない。

エラーメッセージ

該当のソースコード

#data(softの番号（前工程でsoft_1のみにしてある）,・・・,Q2,・・・,Q5_1,Q5_2,Q5_3)
column_number2<-2
#Q5_1の列の番号
loopcounter<-1
cor.result1<-list()
corData1<-data.soft1$Q2
seiki_soft_1_Q2<-shapiro.test(corData1)
seiki_soft_1_Q5<-list()
while(loopcounter < 4){
  corData2<-data.soft1[,column_number2]
  seiki_soft_1_Q5[loopcounter]<-shapiro.test(corData2)
  cor.result1[loopcounter]<-cor.test(rank(corData1),rank(corData2),method = "pearson")
  loopcounter<-loopcounter +1
  column_number2<-column_number2 + 1
}

試したこと

cor.result1をc()で定義した（おそらくvector型）

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

lapply を使うのもよいかと思います。

data.soft1 <- data.frame(Q2 = rnorm(50), Q5_1 = rnorm(50), Q5_2 = rpois(50, 2), Q5_3 = runif(50))

corData1 <- data.soft1$Q2
cor.result1 <- lapply(2:4, function(i) { cor.test(rank(corData1), rank(data.soft1[,i]), method = "pearson")})

cor.result1

Comments

[Nakano_Akito]

データセットも用意しない状態でお聞きしてしまい、本当に申し訳ございません。
上記のコードを実装したところ、思い通りの結果が出てきました。
ありがとうございました！

Answer 2

cor.result1[loopcounter]<-cor.test(rank(corData1),rank(corData2),method = "pearson")

警告メッセージが出ていませんでしたか？
この行を次のように書き換える必要があると思います。

cor.result1[[loopcounter]]<-cor.test(rank(corData1),rank(corData2),method = "pearson")