## Not run:
#
# data(scotvote)
# glmdm.linear.out <- glmdm(PerYesParl ~ PrivateHousingStarts + CouncilTax
# + Percentage5to15 + PrimaryPTRatio + PerBirthsOut + PerClaimantFemale,
# data=scotvote, num.reps=5000)
#
# data(ssas)
# glmdm.probit.ssas <- glmdm(scotpar2 ~ househld + rsex + rage + relgsums + ptyallgs
# + idlosem + marrmus + ukintnat + natinnat + voiceuk3 + nhssat, data=ssas,
# family=binomial(link="probit"), num.reps=10000, log=TRUE)
#
# data(asia)
# glmdm.probit.asia <- glmdm(ATT ~ DEM + FED + SYS + AUT, data=asia,
# family=binomial(link="probit"), num.reps=10000, log=TRUE)
#
# ## End(Not run)
Run the code above in your browser using DataLab