set.seed(1) DF <- data.frame("X" = rnorm(100)) # generar el vector ficticio `dummy` usando `ifelse()` # añadir `dummy` a `DF` # generar el vector ficticio `dummy` usando `ifelse()` dummy <- ifelse(DF$X > 0, 1, 0) # añadir `dummy` a `DF` DF$dummy <- dummy test_object("dummy") test_function("ifelse") test_object("DF")