data(fromXPSS)
temp <- xpssDoIf(x=fromXPSS, cond = "V3 == 1")
temp <- xpssRecode(x=temp,variables="V5",rec="lo:78 = 1; else = 2")
temp <- xpssElseIf(x=temp, cond = "V3 == 1")
temp <- xpssRecode(x=temp,variables="V5",rec="lo:78 = 11; else = 22")
temp <- xpssEndIf(x=temp)
Run the code above in your browser using DataLab