我已经搜索了之前已回答的问题,但还没有构建出一个有效的解决方案。以下是我的情况和演示数据:
假设我让受试者完成一项电脑任务,在每个试验中他们都会作出反应。最终我会得到每个试验的数据,其中包括他们是否给出正确的反应以及他们的反应时间:
我创建了一个列表,其中每个元素都是主题数据。
我知道可以使用mapply或其他apply函数来完成此操作,而不是使用笨拙缓慢的for循环,但我卡在如何引用连续行上。
非常感谢任何帮助!
假设我让受试者完成一项电脑任务,在每个试验中他们都会作出反应。最终我会得到每个试验的数据,其中包括他们是否给出正确的反应以及他们的反应时间:
sub1 <- data.frame(acc = round(rnorm(10, mean=.65, sd=.25), 0), RT = round(rnorm(10, mean=270, sd=30), 0))
sub2 <- data.frame(acc = round(rnorm(10, mean=.65, sd=.25), 0), RT = round(rnorm(10, mean=270, sd=30), 0))
sub3 <- data.frame(acc = round(rnorm(10, mean=.65, sd=.25), 0), RT = round(rnorm(10, mean=270, sd=30), 0))
sub.list <- list(sub1, sub2, sub3)
我创建了一个列表,其中每个元素都是主题数据。
> sub.list
[[1]]
acc RT
1 1 259
2 0 187
3 1 256
4 1 288
5 1 304
6 1 265
7 1 312
8 1 196
9 1 335
10 0 276
[[2]]
acc RT
1 1 215
2 0 325
3 1 290
4 0 297
5 0 281
6 1 294
7 0 289
8 1 252
9 0 364
10 0 241
[[3]]
acc RT
1 0 292
2 0 267
3 0 240
4 1 321
5 1 292
6 0 269
7 1 241
8 1 206
9 1 250
10 1 283
现在我有一个问题。我想为每个科目创建另一列,该列仅包含由准确响应先前引导的准确试验的RT。下面是一个不工作的for循环和我想要最终结果的示例。
for(i in 1:length(sub.list)){
for(j in 2:nrow(sub.list[[i]])){
if(sub.list[[i]][(j-1), "acc"]==1 & sub.list[[i]][j, "acc"]==1){
sub.list[[i]][j,]$correct.RT <- sub.list[[i]][j, "RT"]
} else {
sub.list[[i]][j,]$correct.RT <- NA
}
}
}
> sub.list
[[1]]
acc RT correctRT
1 1 259 NA
2 0 187 NA
3 1 256 NA
4 1 288 288
5 1 304 304
6 1 265 265
7 1 312 312
8 1 196 196
9 1 335 335
10 0 276 NA
[[2]]
acc RT correctRT
1 1 215 NA
2 0 325 NA
3 1 290 NA
4 0 297 NA
5 0 281 NA
6 1 294 NA
7 0 289 NA
8 1 252 NA
9 0 364 NA
10 0 241 NA
[[3]]
acc RT correctRT
1 0 292 NA
2 0 267 NA
3 0 240 NA
4 1 321 NA
5 1 292 292
6 0 269 NA
7 1 241 NA
8 1 206 206
9 1 250 250
10 1 283 283
我这么做的原因是为了单独处理这些试验。例如:
> sapply(sub.list, function(x) mean(x$correctRT, na.rm=TRUE))
[1] 283.3333 NaN 257.7500
我知道可以使用mapply或其他apply函数来完成此操作,而不是使用笨拙缓慢的for循环,但我卡在如何引用连续行上。
非常感谢任何帮助!