if (FALSE) {
#Results with respondent-varying characteristics
results <-amce(Chosen_Immigrant ~ Gender + Education + Education:ethnocentrism +
`Country of Origin`+ `Country of Origin`:ethnocentrism + Job +
Job:ethnocentrism + `Job Experience` + `Job Experience`:ethnocentrism,
data=immigrationconjoint, design=immigrationdesign,cluster=FALSE,
respondent.varying="ethnocentrism", na.ignore=TRUE)
#Calculate conditional estimates at user-supplied levels
int.vals<-list()
int.vals[["ethnocentrism"]]<-c(60,77,88,99,45)
summary(results, covariate.values = int.vals)
}
Run the code above in your browser using DataLab