# NOT RUN {
library(graph)
## Load predefined data
data(IMData)
data(IMTrue)
#run IMaGES
im.fits <- IMaGES(matrices=IMData, penalty=3, num.markovs=5)
#plot global graph and all individual graphs with own SEM data
plotAll(im.fits)
#plot true individual graphs as a comparison
for (i in 1:length(IMTrue)) {
plot(IMTrue[[1]])
}
#plot graph with SEM data from first dataset
plotIMGraph(im.fits$.single.graph[[1]])
#plot MEC
plotMarkovs(im.fits)
#print mean SEM values for each edge
print(im.fits$.means)
#print standard errors for each edge
print(im.fits$.std.errs)
# }
Run the code above in your browser using DataLab