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