# NOT RUN {
## load data set
data(r99)
ymodel= y ~ gender+fac+genderbyfac
print(summary(glm(ymodel,family=binomial(link=logit), data=r99, subset=g==0)))
gmodel= g~gender+fac+genderbyfac
isnicSBsurvey<-isniglm(ymodel,gmodel=gmodel,ydist='binomial', alldata=r99)
summary(isnicSBsurvey)
# }
Run the code above in your browser using DataLab