数据：不同时间点上每种条件下的瞳孔大小。组别为被试间变量，情绪和任务类型为被试内变量，Vals为因变量瞳孔大小。
目标：使用for循环，在每个时间点上做2（组别）2（情绪）2（任务类型）的重复测量方差分析，并将for循环结果输出到一个数据框中
问题：如何修改现有代码，也没报错，但是没有输出结果
head(data)
A tibble: 6 × 8
组别 编号 姓名 time GY 情绪 任务类型 Vals
<dbl> <dbl> <chr> <dbl> <chr> <chr> <chr> <dbl>
1 1 1 litianwei 0 zq z q 0.168
2 1 1 litianwei 1 zq z q 0.168
3 1 1 litianwei 2 zq z q 0.168
4 1 1 litianwei 3 zq z q 0.168
5 1 1 litianwei 4 zq z q 0.167
6 1 1 litianwei 5 zq z q 0.168
for (i in data$time) {
data2 <- data %>% filter(time==i)
res.aov <- anova_test(
data = data2, dv = Vals, wid = 姓名,
between=组别,
within = c(情绪, 任务类型)
)
get_anova_table(res.aov)
}
