# NOT RUN {
data("EMMTraffic")
emm <- EMM(measure="eJaccard", threshold=0.2)
emm <- build(emm, EMMTraffic)
## remove state 3
emm_rs3 <- remove_clusters(emm, "3")
## remove transition 5->2
emm_rt52 <- remove_transitions(emm, "5", "2")
## compare EMMs
op <- par(mfrow = c(2, 2), pty = "m")
plot(emm, method = "igraph", main = "original EMM")
plot(emm_rs3, method = "igraph", main = "state 3 removed")
plot(emm_rt52, method = "igraph", main = "transition 5->2 removed")
par(op)
# }
Run the code above in your browser using DataLab