ifelse                 package:base                 R Documentation

_C_o_n_d_i_t_i_o_n_a_l _E_l_e_m_e_n_t _S_e_l_e_c_t_i_o_n

_D_e_s_c_r_i_p_t_i_o_n:

     'ifelse' returns a value with the same shape as 'test' which is
     filled with elements selected from either 'yes' or 'no' depending
     on whether the element of 'test' is 'TRUE' or 'FALSE'.

_U_s_a_g_e:

     ifelse(test, yes, no)

_A_r_g_u_m_e_n_t_s:

    test: an object which can be coerced to logical mode.

     yes: return values for true elements of 'test'.

      no: return values for false elements of 'test'.

_D_e_t_a_i_l_s:

     If 'yes' or 'no' are too short, their elements are recycled. 'yes'
     will be evaluated if and only if any element of 'test' is true,
     and analogously for 'no'.

     Missing values in 'test' give missing values in the result.

_V_a_l_u_e:

     A vector of the same length and attributes (including class) as
     'test' and data values from the values of 'yes' or 'no'.  The mode
     of the answer will be coerced from logical to accommodate first
     any values taken from 'yes' and then any values taken from 'no'.

_W_a_r_n_i_n_g:

     The mode of the result may depend on the value of 'test', and the
     class attribute of the result is taken from 'test' and may be
     inappropriate for the values selected from 'yes' and 'no'.

     Sometimes it is better to use a construction such as '(tmp <- yes;
     tmp[!test] <- no[!test]; tmp)', possibly extended to handle
     missing values in 'test'.

_R_e_f_e_r_e_n_c_e_s:

     Becker, R. A., Chambers, J. M. and Wilks, A. R. (1988) _The New S
     Language_. Wadsworth & Brooks/Cole.

_S_e_e _A_l_s_o:

     'if'.

_E_x_a_m_p_l_e_s:

     x <- c(6:-4)
     sqrt(x)#- gives warning
     sqrt(ifelse(x >= 0, x, NA))# no warning

     ## Note: the following also gives the warning !
     ifelse(x >= 0, sqrt(x), NA)

     ## example of different return modes:
     yes <- 1:3
     no <- pi^(0:3)
     typeof(ifelse(NA, yes, no))   # logical
     typeof(ifelse(TRUE, yes, no)) # integer
     typeof(ifelse(FALSE, yes, no))# double

