# 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))
# }
Run the code above in your browser using DataLab