# prepare fsets
f <- lcut(data.frame(a=0:1, b=0:1, c=0:1, d=0:1))
# run perceive function: (sm.a, bi.c) has
# more specific rule (ve.sm.a, bi.c)
perceive(list(c('sm.a', 'bi.c'),
c('ve.sm.a', 'bi.c'),
c('sm.b', 'sm.d')),
f)
Run the code above in your browser using DataLab