a.out <- amelia(

vars.to.impute,

m=5,

outname="miset",

idvars=c("caseid", "weight", "inputstate", "race", "religion", "as_likely", "less_likely"),

noms=c("gender", "bornagain", "cbsatype"),

ords=c(

"haidt_compassion", "haidt_animal", "haidt_fairly", "haidt_justice",

"haidt_history", "haidt_family", "haidt_kidrespect", "haidt_sexroles",

"haidt_harmlessdg", "haidt_unnatural",

"instr_less", "instr_het_relate", "instr_same_relate", "instr_confusion",

"instr_bigoted", "instr_bio", "instr_single", "instr_teach",

"policy_favor_hets", "policy_adoptsingle", "policy_adopt", "policy_partner", "policy_foster",

"policy_custody", "policy_sperm", "policy_fertility", "policy_gay_marriage", "policy_housing",

"policy_employment", "policy_unions1", "expressive_motives1", "expressive_motives2",

"expressive_family", "expressive_society", "expressive_slip_slope", "expressive_bio_ideal",

"expressive_equal1", "experessive_race",

"policy_gun", "policy_cappun", "policy_pot", "policy_prostitute", "policy_healthcare",

"policy_taxcut", "policy_affect", "policy_nuke", "policy_warming", "policy_draft",

"Rank_adopt_welfare", "Rank_adopt_religion", "Rank_adopt_rights",

"Rank_adopt_moral", "Rank_adopt_traditions", "Bother_kiss",

"Bother_hands", "Bother_swing", "Bother_married",

"risk_confusion", "risk_experiment", "risk_homosexual", "risk_teasing",

"risk_abnormal", "risk_depression", "risk_addiction", "risk_molested", "risk_badkid",

"risk_sexualize", "info_friends", "info_church", "info_news", "info_studies", "info_sense",

"exposure_immediate", "exposure_extended", "exposure_friends", "exposure_other",

"crack.rank", "pot.rank", "belt.rank", "slap.rank", "income", "ideo5", "pid6","churatd", "age", "educ"

))