## Not run:
# # loading some fake election data
# data(topleveldat)
# form <- cbind(CSU_2, SPD_2, LINK_2, GRUN_2) ~ cbind(CSU_1, SPD_1, Link_1)
# set.seed(1234)
# res <- indAggEi(form=form, aggr=aggr, indi=indi, IDCols=c("ID","ID"),
# sample=1000, thinning=2, burnin=100,verbose=100)
#
# res
# sumRes <- summary(res)
# sumRes
# str(sumRes)
# ## End(Not run)
Run the code above in your browser using DataLab