В R вы можете использовать функцию any()
внутри apply()
, чтобы выполнить эту проверку. Например:
a1 <- c(1,0,0,0,1,1)
a2 <- c(0,1,0,0,0,1)
a3 <- c(0,1,1,0,1,1)
a <- apply(data.frame(a1,a2,a3), 1, function(x) ifelse(any(x),1,0))
А затем в качестве вывода:
> a
[1] 1 1 1 0 1 1
В SPSS вы можете использовать аналогичный подход:
COMPUTE a = ANY(1, a1 TO a3) .
EXE .