ori1 <- farules(rules=list(letters[1:3],
letters[2:5]),
statistics=matrix(runif(16), nrow=2))
ori2 <- farules(rules=list(letters[4],
letters[3:8]),
statistics=matrix(runif(16), nrow=2))
res <- c(ori1, ori2)
print(res)
Run the code above in your browser using DataLab