editMIM                 package:mimR                 R Documentation

_E_d_i_t_i_n_g _a _m_i_m _m_o_d_e_l _o_b_j_e_c_t

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

     Editing a mim model object by adding/deleting edges.

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

     editmim(obj, deleteEdge=NULL, addEdge=NULL, haddEdge=NULL,
                         deleteTerm=NULL, addTerm=NULL)
     testdelete(edge, obj, arg=NULL)

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

     obj: A mim model object 

deleteEdge: Edges to be deleted

 addEdge: Edges to be added

haddEdge: Edges to be added (homogeneously)

deleteTerm: Terms to be deleted

 addTerm: Terms to be added

    edge: Edge to be tested

     arg: Additional arguments to MIM specifying the tests

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

     retrieve is used for retrieving a model (as a mim object) manually
     from MIM after e.g. altering a model in the MIM program directly

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

     A new mim model object

_N_o_t_e:

     Before using mimR, make sure that the MIM program is runnning.

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

     Sren Hjsgaard, sorenh@agrsci.dk

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

     David Edwards, An Introduction to Graphical Modelling, Second
     Edition, Springer Verlag, 2000

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

     See Also as 'modelTest'

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

     data(rats)
     gmd.rats <- as.gmData(rats)
     m.main <- mim(".",  data=gmd.rats)
     m2 <- editmim(m.main, addEdge=c("Sex:Drug", "Sex:W2"))
     m3 <- editmim(m.main, addEdge=c("Sex:Drug", "Sex:W2"),haddEdge="Drug:W1:W2")

     summary(m2)
     summary(m3)

     data(housing)

     housingTab <- xtabs(Freq ~ Sat + Infl + Type + Cont, data = housing)
     ht <- as.gmData(housingTab)

     marg1 <- mim("Sat:Infl:Cont//", data=ht)
     testdelete("Sat:Cont",marg1)

     ## Try deleting an edge not in the model:

     testdelete("Sat:Type",marg1)

     testdelete("Sat:Cont",marg1,arg="MJ")
     testdelete("Sat:Cont",marg1,arg="M")

