I'm having trouble with an imputation. When I run the following on the attached data, I get the subsequent error. Any thoughts on how to fix?
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"
))