векторизованную версию: функцию ifelse(). Функция вызывается в следующей форме:

ifelse(b,u,v)

где b — логический вектор, а u и v — векторы.