[R] if statement

[AAsk]

> x <- -1:4
> x<0 # returns TRUE (1) or FALSE (0)
[1]  TRUE FALSE FALSE FALSE FALSE FALSE
> x+as.numeric(x<0)
[1] 0 0 1 2 3 4