## Not run:
# a <- getCodingTable()
# c1 <- subset(a,cid==6)
# c2 <- subset(a,cid==24)
# ans <- and(c1, c2)
# ans ## put it into a widget for inspection
#
# ## another way to do the same
# and(getCodingsByOne(6), getCodingsByOne(24))
#
# ## or operator
# or(getCodingsByOne(6), getCodingsByOne(24))
#
# ## not operator
# not(getCodingsByOne(6), getCodingsByOne(24))
# ## End(Not run)
Run the code above in your browser using DataLab