数据:不同时间点上每种条件下的瞳孔大小。组别为被试间变量,情绪和任务类型为被试内变量,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)
}