data(sim_data)
ISCA_step1 <- ISCA_random_assignments(data=sim_data, filter=native,
majority_group=1, minority_group=c(0), fuzzifier = 1.5, n_clusters=4,
draws=5, cluster_vars= c("female", "age", "education", "income"))
ISCA_modeling_res <- ISCA_modeling(data= ISCA_step1,
model_spec="religiosity ~ native + female + age + education + discrimination",
draws = 5, n_clusters = 4);
Run the code above in your browser using DataLab