如何在现有R函数中遍历2个数据帧中的所有列和行

Question

我正在尝试为回答有关不同事件发生可能性的调查中的多个问题的参与者计算Brier分数。

我正在使用R中现有的Brierscore函数，当我只对单个列感兴趣时（即为所有参与者回答1个问题的方法），一切都可以正常工作。我无法解决如何编写循环遍历所有列的问题（问题） 。

我有2个数据框：

1. correct_answers，包含1和0来指示事件是否发生
2. 预测，参与者预测是否会发生0-1规模的事情。

我尝试了多个for循环结构，并为每个数据帧使用了for循环。 下面的示例似乎最接近我需要的示例，但仍然不正确。 如果我的语法错误或无法使用这些类型的函数循环，我将尝试进行计算。

这有效：

Brier_scores_all_questions <- brierscore(correct_answer$Election_Outcome ~ forecast$Election_Outcome, forecast, decomp = FALSE, bounds = c(0,2),
                         reverse = FALSE, wt = NULL)

这是我尝试过的循环之一：

for(i in 1:ncol) { 

Brier_scores_all_questions <- brierscore(correct_answer$[[i]] ~ forecast$[[i]], forecast, decomp = FALSE, bounds = c(0,2),
                         reverse = FALSE, wt = NULL)

} # close loop

理想情况下，我想要一个矩阵，其中包含每个参与者（行）和问题（列）的Brier分数。 以下是我收到的错误消息：

for（i in 2：ncol）{+ + Brier_scores_all_questions <-brierscore（df_ans_base $ [[i]]〜df_base $ [[i]]，错误：意外的'[['in：“ Brier_scores_all_questions <-brierscore（df_ans_base $ [ [“ df_base，decomp = FALSE，界限= c（0,2），错误：” df_base中的意外'，'，反向= FALSE，wt = NULL）错误：“ reverse = FALSE”中的意外'，'

}错误：“}中意外的'}'

Answer 1

我相信您的循环结构是正确的，但是您在如何索引到数据帧中有一个错误。 $运算符和[]在这种情况下是多余的。 例如，假设Election_Outcome是forecast的第二列。 然后，可以通过使用forecast$Election_Outcome或forecast[,2]专门选择该列。 当您使用[,2] ，您需要输入所有的行和列2。因此，在循环中，您应该执行诸如forecast[,i] 。