variavel1 <- 5

if (variavel1 %in% c(4, 5, 6, 7)) {
   variavel2 <- 1
}

print(variavel1)
print(variavel2)