powered by
saveAsGraph(x, file, type=NULL, format="graphml")
write.graph
plot
data("Groceries") rules <- apriori(Groceries, parameter=list(support=0.01, confidence=0.5)) saveAsGraph(rules, "rules.graphml") ## clean up unlink("rules.graphml")
Run the code above in your browser using DataLab