library(data.table)
dt <- data.table(
AGE = c(40, 60, 80),
SEX = c("M", "F", "M")
)
out <- data_step(
dt,
if_do(AGE <= 45, GROUP = 1),
else_if_do(AGE <= 70, GROUP = 2),
else_do(GROUP = 3),
if_independent(SEX == "M", MALE = 1)
)
out
Run the code above in your browser using DataLab