test <- c(3, 2, 4)
output <- c()
for (i in 1:3)
{
if (test[i] > 1) output[i] <- 1
if (test[i] > 2) output[i] <- 0
if (test[i] > 3) output[i] <- 1
}
output
## [1] 0 1 1
for (i in 1:3)
{
if (test[i] > 1) output[i] <- 1
else if (test[i] > 2) output[i] <- 0
else if (test[i] > 3) output[i] <- 1
}
output
## [1] 1 1 1