editMIM {mimR} | R Documentation |
Editing a mim model object by adding/deleting edges.
editmim(obj, deleteEdge=NULL, addEdge=NULL, haddEdge=NULL, deleteTerm=NULL, addTerm=NULL) testdelete(edge, obj, arg=NULL)
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 |
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
A new mim model object
Before using mimR, make sure that the MIM program is runnning.
Søren Højsgaard, sorenh@agrsci.dk
David Edwards, An Introduction to Graphical Modelling, Second Edition, Springer Verlag, 2000
See Also as modelTest
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")