E <- editarray(expression(
a %in% letters[1:4],
b %in% letters[5:8],
if ( a %in% c('a','b') ) b %in% c('e','f'),
if ( a %in% c('c','d') ) b %in% c('h')
))
generateEdits(E)
## Not run
# load 60 edits (36 variables) from demonstration file
E <- editfile(system.file('script/bench/edits.R',package='editrules'),type='cat')
F <- generateEdits(E)
summary(F$edits)
F$nodes
F$dudation
## End(Not run)
Run the code above in your browser using DataLab