{
data(ssas)
attach(ssas)
Y <- ssas[,18]
X <- cbind(ssas$househld,ssas$rsex,ssas$rage,ssas$relgsums,ssas$ptyallgs,ssas$idlosem,
ssas$marrmus,ssas$ukintnat,ssas$natinnat,ssas$voiceuk3,ssas$nhssat,ssas$hincdif2,
ssas$unionsa,ssas$whrbrn,ssas$hedqual2)
detach(ssas)
glmdm.out <- glmdm.probit(Y,X,num.reps=10000)
data(asia)
Y <- asia[,1]
X <- as.matrix(asia[,-1])
glmdm.out <- glmdm.probit(Y,X,num.reps=10000,log=TRUE)
}Run the code above in your browser using DataLab