rules <- validator( r1 = staff.costs < total.costs
, r2 = turnover + other.rev == total.rev
, r3 = other.rev > 0
, r4 = total.rev > 0
, r5 = nace %in% c("A", "B")
)
plot(rules, cex=0.8, show_legend=TRUE)
data(retailers)
cf <- confront(retailers, rules)
plot(cf, main="Retailers check")
Run the code above in your browser using DataLab