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.