data("EMMTraffic")
emm <- EMM(measure="eJaccard", threshold=0.2)
emm <- build(emm, EMMTraffic)
op <- par(mfrow = c(2, 2), pty = "s")
plot(emm, method="graph", main="Graph (plain)",
parameter=list(state_counts=FALSE, arrow_width=FALSE))
plot(emm, method="graph", main="Graph")
plot(emm, method="MDS", main="MDS projection",
xlim=c(-0.5,0.5), ylim= c(-0.5,0.5))
plot(emm, method="MDS", data = EMMTraffic,
main = "Projection of centers on data")
par(op)
Run the code above in your browser using DataLab