# NOT RUN {
library("rCBA")
model <- data.frame("rules" = c("{X=1} => {Y=1}","{X=0} => {Y=0}"),
"support" = c(0.5,0.5),
"confidence" = c(0.5,0.5),
"lift" = c(1.0,1.0))
rules <- rCBA::frameToRules(model)
inspect(rules)
# }
Run the code above in your browser using DataLab