elementin                package:deal                R Documentation

_I_s _a _n_e_t_w_o_r_k _e_l_e_m_e_n_t _i_n _a _l_i_s_t _o_f _n_e_t_w_o_r_k_s?

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

     Sequentially check if the network is in the list.

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

     elementin(nw,nwl)

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

      nw: an object of class `network'.

     nwl: an object of class `networkfamily'.

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

     Sequentially, the elements in `nwl' are compared to `nw' using
     `nwequal'. If this returns `TRUE', then search is terminated and
     `TRUE' is returned. Otherwise, `FALSE' is returned.

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

     a logical. `TRUE' if `nw' is in `nwl', else `FALSE'.

_A_u_t_h_o_r(_s):

     Susanne Gammelgaard Bttcher alma@math.auc.dk, 
     Claus Dethlefsen dethlef@math.auc.dk.

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

     Further information about deal can be found at:
     <URL: http://www.math.auc.dk/novo/deal>.

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

     `nwequal',`unique.networkfamily'

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

     data(rats)
     rats.nw  <- network(rats)
     rats.prior <- jointprior(rats.nw,12)
     rats.nw <- learn(rats.nw,rats,rats.prior)$nw
     allrats <- networkfamily(rats,rats.nw,rats.prior)

     elementin(rats.nw,allrats$nw)

