Замена значений в R значениями задержки

Question

@ BenBolker Вот пример вывода, который я хотел бы; Я понятия не имею, можно ли это сделать.

CURRENT_FIX_START   CURRENT_FIX_END identifier  trialtype   rotatedimaged
  targetloc prefix  corrfix errfix


7   202 30  rotated stimN11of2.jpg  left    231 254 0
7   208 42  rotated stimN221of2.jpg left    451 245 0
241 761 78  rotated stimW131-of2.jpg right  345 345 0

Для каждого испытания, где есть правильный префикс, обозначенный отметкой времени и корректным исправлением, я бы хотел, чтобы скрипт печатал все в одной строке (мне нужно получить показатель задержки от префикса до corrfix). В старых данных метки времени встречались на разных строках. Я думал о том, чтобы сделать это вручную, но это было бы слишком много времени.

Answer 1

Вам нужно будет настроить соответствующую индексацию, но, похоже, это работает:

#fake data
dat <- data.frame(fix1 = runif(10), fix2 = runif(10), prefix = sample(0:1, 10, TRUE),
                  corfix = sample(0:1, 10, TRUE), errfix = sample(0:1, 10, TRUE))

dat[, 3:5] <- apply(dat[, 3:5], 2, function(x) ifelse(x == 1, abs(dat$fix1 - dat$fix2),x))

Answer 2

Не проверено, но как насчет:

latency <- with(mydata,abs(CURRENT_FIX_START-CURRENT_FIX_END))
for (i in c("prefix","corrfix","errfix")) {
   mydata[[i]] <- ifelse(mydata[[i]]==1,latency,0)
}