data("Adult_transactions")
### combine transactions
a1 <- Adult_transactions[1:10]
a2 <- Adult_transactions[101:110]
a_comb <- combine(a1, a2)
summary(a_comb)
### combine rules
r1 <- apriori(Adult_transactions[1:1000])
r2 <- apriori(Adult_transactions[1001:2000])
r_comb <- unique(combine(r1, r2))
r_combRun the code above in your browser using DataLab