library("arules")
data("Groceries")
rules <- apriori(Groceries, parameter=list(support=0.001))
rules <- head(sort(rules, by="lift"))
rules
### save rules as PMML
write.PMML(rules, file = "rules.xml")
### read rules back
rules2 <- read.PMML("rules.xml")
rules2
### compare rules
inspect(rules[1])
inspect(rules2[1])
### clean up
unlink("rules.xml")
Run the code above in your browser using DataLab