update a test version

The comparison interval is using colSums to find within-group sample size.
The confidence intervals calculated from moecalc() can't be trustful because that is based on within-group, in fact we need between group.
A test set is using here.

opts = modifyList(inzPlotDefaults(), list(inference.type=c("comp","conf"), inference.par="proportion"))
drawBarInference(dat$Gender,dat$Education,opts) ->kk
(kk$conf$upp - kk$conf$low)/1.96

For binomial x, this is always the same of the two columns due to we have linear dependence problem.
For graphics, I can't make a fast step. The interface may be wrong.
change as rowSum not columnSum

I thought we should look the columnSum count but in fact because the independence across two variables, one can use rowSums to get both intervals without worry about column sums to find cov matrix....
merge
fixed bugs when tables all 0, and proper implementation of confidence and comparison intervals (excluding zero-count rows) for barplots