The hatred that men bear to privilege increases in proportion as privileges become fewer and less considerable,
[...]
the love of equality should constantly increase together with equality itself [...].-- Alexis de Tocqueville (2015 [1840])
Source: European Union Agency for Fundamental Rights. (2014)
Source: European Union Agency for Fundamental Rights. (2014)
Single family home in Berlin's suburb Rudow
Do immigrants and their descendants who established themselves among the middle-class mainstream report
less or more
discrimination than those who remain at the margins of society?
Single family home in Berlin's suburb Rudow
[...] greater familiarity with the culture and language and some economic advancement can lead to greater consciousness of the reality of discrimination.
-- Portes, Parker, and Cobas (1980)
Sample definition
Sample definition
Sampling
("integration paradox" OR "Paradox of Integration") AND discrimination
Outcome
ρyx⋅z=Cov(ex⋅z,ey⋅z)SDex⋅zSDey⋅z,=t√t2+df.
Source: Gustafson (1961)
Disadvantages: ρyx⋅z depends on z & is probably not accurate for estimates from GLMs.
Outcome
ρyx⋅z=Cov(ex⋅z,ey⋅z)SDex⋅zSDey⋅z,=t√t2+df.
Source: Gustafson (1961)
Disadvantages: ρyx⋅z depends on z & is probably not accurate for estimates from GLMs.
Predictors
ˉρyx⋅z=∑ni=1wiρ(yx⋅z)iwi,min
Fixed effects: w_{i} = \frac{1}{\color{orange}{\text{Var}(\rho_{(yx \cdot z)i})}}.
Random effects: w_{i} = \frac{1}{\text{Var}(\rho_{(yx \cdot z)i}) \color{orange}{+ \tau^2}},
where \tau^2 is the between-studies variance of \rho_{(yx \cdot z)i}. Commonly, \tau^2 is estimated via REML.
\begin{align*} \bar{\rho}_{yx \cdot z} &= \frac{\sum_{i=1}^n \color{orange}{w_{i}}\rho_{(yx \cdot z)i}}{\color{orange}{w_{i}}}, \\ \min \text{RSS} &= \min \sum_{i=1}^{n} \color{orange}{w_{i}} R_{i}^{2}. \end{align*}
Fixed effects: w_{i} = \frac{1}{\color{orange}{\text{Var}(\rho_{(yx \cdot z)i})}}.
Random effects: w_{i} = \frac{1}{\text{Var}(\rho_{(yx \cdot z)i}) \color{orange}{+ \tau^2}},
where \tau^2 is the between-studies variance of \rho_{(yx \cdot z)i}. Commonly, \tau^2 is estimated via REML.
Nested estimates:
rma.mv(yi = yi, V = as.matrix(vi), data = sample_1, test = "t", mods = ~ pred, random = list(~ 1 | Study_ID/ID), ~ 1 | data))
# Sample definition#------------------sample_1 <- meta_data %>% # Only broad integration indicators, filter(pred == "Education" | pred == "Generation" | pred == "Length of residency") %>% # Within each indep. sample & type of predictor, group_by(study_ID, data, context, pred) %>% # Use sub-sample if available, filter(full_sample_num == max(full_sample_num, na.rm = TRUE)) %>% # Use model with least number of mediators filter(nr_mediators == min(nr_mediators)) %>% # Use model with min number of bad controls filter(nr_bad_controls == min(nr_bad_controls)) %>% # Use model with max number of good controls filter(nr_good_controls == max(nr_good_controls)) %>% # Use model with minimum number of integration predictors filter(nr_preds == min(nr_preds)) %>% ungroup()
# Sample definition#------------------sample_1 <- meta_data %>% # Only broad integration indicators, filter(pred == "Education" | pred == "Generation" | pred == "Length of residency") %>% # Within each indep. sample & type of predictor, group_by(study_ID, data, context, pred) %>% # Use sub-sample if available, filter(full_sample_num == max(full_sample_num, na.rm = TRUE)) %>% # Use model with least number of mediators filter(nr_mediators == min(nr_mediators)) %>% # Use model with min number of bad controls filter(nr_bad_controls == min(nr_bad_controls)) %>% # Use model with max number of good controls filter(nr_good_controls == max(nr_good_controls)) %>% # Use model with minimum number of integration predictors filter(nr_preds == min(nr_preds)) %>% ungroup()
Note: 20 partial correlation coefficients and overall meta-estimate with associated 95% confidence intervals, based on five coded studies.
# Sample definition#------------------sample_1 <- meta_data %>% # Only broad integration indicators, filter(pred == "Education" | pred == "Generation" | pred == "Length of residency") %>% # Within each indep. sample & type of predictor, group_by(study_ID, data, context, pred) %>% # Use sub-sample if available, filter(full_sample_num == max(full_sample_num, na.rm = TRUE)) %>% # Use model with least number of mediators filter(nr_mediators == min(nr_mediators)) %>% # Use model with min number of bad controls filter(nr_bad_controls == min(nr_bad_controls)) %>% # Use model with max number of good controls filter(nr_good_controls == max(nr_good_controls)) %>% # Use model with minimum number of integration predictors filter(nr_preds == min(nr_preds)) %>% ungroup()
Note: Results are based on a multilevel random effects meta analysis. n = 20 partial correlation coefficients based on five coded studies and five different data sets.
# Sample definition#------------------sample_2 <- meta_data %>% # Only broad integration indicators, filter(pred == "Education" | pred == "Generation" | pred == "Length of residency") %>% # Within each indep. sample & type of predictor, group_by(study_ID, data, context, pred) %>% # Use sub-sample if available, filter(full_sample_num == max(full_sample_num, na.rm = TRUE)) %>% # Use model with least number of mediators # filter(nr_mediators == min(nr_mediators)) %>% # Use model with min number of bad controls filter(nr_bad_controls == min(nr_bad_controls)) %>% # Use model with max number of good controls filter(nr_good_controls == max(nr_good_controls)) %>% # Use model with minimum number of integration predictors filter(nr_preds == min(nr_preds)) %>% ungroup()
# Sample definition#------------------sample_2 <- meta_data %>% # Only broad integration indicators, filter(pred == "Education" | pred == "Generation" | pred == "Length of residency") %>% # Within each indep. sample & type of predictor, group_by(study_ID, data, context, pred) %>% # Use sub-sample if available, filter(full_sample_num == max(full_sample_num, na.rm = TRUE)) %>% # Use model with least number of mediators # filter(nr_mediators == min(nr_mediators)) %>% # Use model with min number of bad controls filter(nr_bad_controls == min(nr_bad_controls)) %>% # Use model with max number of good controls filter(nr_good_controls == max(nr_good_controls)) %>% # Use model with minimum number of integration predictors filter(nr_preds == min(nr_preds)) %>% ungroup()
Note: Results are based on a multilevel random effects meta analysis. n = 27 partial correlation coefficients based on five coded studies and five different data sets.
Note: Results are based on a multilevel random effects meta analysis. n = 20 partial correlation coefficients based on five coded studies and five different data sets.
# Sample definition#------------------pubbias_sample <- sample_1 %>% mutate( pred_num = case_when( pred == "Education" ~ 3, pred == "Generation" ~ 2, TRUE ~ 1)) %>% # Within each independent sample: group_by(study_ID, data, pop, context) %>% # Use preferable predictor, filter(pred_num == max(pred_num, na.rm = TRUE)) %>% # Finally, choose one at random. sample_n(1) %>% ungroup()
Note: n = 12 and 6 p-values respectively.
[...] greater familiarity with the culture and language and some economic advancement can lead to greater consciousness of the reality of discrimination.
-- Portes, Parker, and Cobas (1980)
[...] greater familiarity with the culture and language and some economic advancement can lead to greater consciousness of the reality of discrimination.
-- Portes, Parker, and Cobas (1980)
[...] greater familiarity with the culture and language and some economic advancement can lead to greater consciousness of the reality of discrimination.
-- Portes, Parker, and Cobas (1980)
False Consciousness: Are the less integrated under-perceiving the true extent of discrimination they face?
Fake CV's
have no experiences and feelings
The Trust game
Two persons' mutual evaluation of their trustworthiness
We'll have endowments of €10
Respondents will play both roles & we define actual role randomly afterwards
The Trust game
Two persons' mutual evaluation of their trustworthiness
We'll have endowments of €10
Respondents will play both roles & we define actual role randomly afterwards
Non-anonymous games
Profile photo & spoken sentence
Non-anonymous games
Profile photo & spoken sentence
Non-anonymous games
Profile photo & spoken sentence
Expected discrimination After all games are played: What do you think,
Perceived discrimination Three months later, respondents are informed about their aggregate personal and overall average payoffs.
Minority | Pot. discriminator | €_{i} - \bar{€}_{j(\text{Co-ethnics})} | Exp. \Delta_i€ | j selected i | i exp. selection | i Education | i ... |
---|---|---|---|---|---|---|---|
i=1 (Judith) | j=1 (Merlin) | -3 | -5 | 0 | 0 | ... | ... |
i=1 (Judith) | j=2 | 0 | 0 | 1 | 0 | ... | ... |
i=1 (Judith) | j=3 | 1 | 0 | 1 | 0 | ... | ... |
i=1 (Judith) | j=4 | -1 | 0 | 1 | 1 | ... | ... |
i=1 (Judith) | j=5 | -2 | 0 | 1 | 0 | ... | ... |
i=1 (Judith) | j=6 | -4 | 0 | 1 | 0 | ... | ... |
i=1 (Judith) | j=7 | 3 | 0 | 0 | 0 | ... | ... |
i=1 (Judith) | j=8 | 0 | 0 | 0 | 0 | ... | ... |
i=2 | j=1 (Merlin) | ... | ... | ... | ... | ... | ... |
i=2 | j=4 | ... | ... | ... | ... | ... | ... |
i=2 | j=9 | ... | ... | ... | ... | ... | ... |
i=2 | j=10 | ... | ... | ... | ... | ... | ... |
Thank you for your attention!
European Union Agency for Fundamental Rights. (2014). Violence against women :an EU wide survey : results at a glance. LU: Publications Office.
Gustafson, R. L. (1961). "Partial Correlations in Regression Computations". In: Journal of the American Statistical Association, pp. 363-367.
Konstantopoulos, S. (2011). "Fixed effects and variance components estimation in three-level meta-analysis". In: Research Synthesis Methods, pp. 61-76.
Portes, A., R. N. Parker, and J. A. Cobas (1980). "Assimilation or Consciousness". In: Social Forces, pp. 200-224.
Tocqueville, A. d. (2015). Democracy in America - Vol. I. and II. Read Books Ltd.
Viechtbauer, W. (2010). "Conducting Meta-Analyses in R with the metafor Package". In: Journal of Statistical Software, pp. 1-48.
Appendix
## Sample definitionsample_3 <- meta_data %>% # Only broad integration indicators and full samples. filter(pred == "Social exposure" | pred == "Labor market attainment" | pred == "Cognitive awareness" | pred == "Disillusion") %>% # Within each independent sample & type of predictor, group_by(study_ID, data, context, pred) %>% # Use sub-sample if available, filter(full_sample_num == max(full_sample_num, na.rm = TRUE)) %>% # Use model with least number of mediators filter(nr_mediators == min(nr_mediators)) %>% # Use model with min number of bad controls filter(nr_bad_controls == min(nr_bad_controls)) %>% # Use model with max number of good controls filter(nr_good_controls == max(nr_good_controls)) %>% # Use model with minimum number of integration predictors # filter(nr_preds == min(nr_preds)) %>% ungroup()
Note: n = 34 partial correlation coefficients based on five coded studies and five different data sets.
Note: Results are based on (multilevel, Original model) random effects meta analyses.
The hatred that men bear to privilege increases in proportion as privileges become fewer and less considerable,
[...]
the love of equality should constantly increase together with equality itself [...].-- Alexis de Tocqueville (2015 [1840])
Keyboard shortcuts
↑, ←, Pg Up, k | Go to previous slide |
↓, →, Pg Dn, Space, j | Go to next slide |
Home | Go to first slide |
End | Go to last slide |
Number + Return | Go to specific slide |
b / m / f | Toggle blackout / mirrored / fullscreen mode |
c | Clone slideshow |
p | Toggle presenter mode |
t | Restart the presentation timer |
?, h | Toggle this help |
o | Tile View: Overview of Slides |
Esc | Back to slideshow |
The hatred that men bear to privilege increases in proportion as privileges become fewer and less considerable,
[...]
the love of equality should constantly increase together with equality itself [...].-- Alexis de Tocqueville (2015 [1840])
Source: European Union Agency for Fundamental Rights. (2014)
Source: European Union Agency for Fundamental Rights. (2014)
Single family home in Berlin's suburb Rudow
Do immigrants and their descendants who established themselves among the middle-class mainstream report
less or more
discrimination than those who remain at the margins of society?
Single family home in Berlin's suburb Rudow
[...] greater familiarity with the culture and language and some economic advancement can lead to greater consciousness of the reality of discrimination.
-- Portes, Parker, and Cobas (1980)
Sample definition
Sample definition
Sampling
("integration paradox" OR "Paradox of Integration") AND discrimination
Outcome
\begin{align*} \rho_{yx \cdot z} &= \frac{\text{Cov}(e_{x \cdot z}, e_{y \cdot z})}{\text{SD}_{e_{x \cdot z}} \text{SD}_{e_{y \cdot z}}}, \\ &= \frac{t}{\sqrt{t^2 + \text{df}}}. \end{align*}
Source: Gustafson (1961)
Disadvantages: \rho_{yx \cdot z} depends on z & is probably not accurate for estimates from GLMs.
Outcome
\begin{align*} \rho_{yx \cdot z} &= \frac{\text{Cov}(e_{x \cdot z}, e_{y \cdot z})}{\text{SD}_{e_{x \cdot z}} \text{SD}_{e_{y \cdot z}}}, \\ &= \frac{t}{\sqrt{t^2 + \text{df}}}. \end{align*}
Source: Gustafson (1961)
Disadvantages: \rho_{yx \cdot z} depends on z & is probably not accurate for estimates from GLMs.
Predictors
\begin{align*} \bar{\rho}_{yx \cdot z} &= \frac{\sum_{i=1}^n \color{orange}{w_{i}}\rho_{(yx \cdot z)i}}{\color{orange}{w_{i}}}, \\ \min \text{RSS} &= \min \sum_{i=1}^{n} \color{orange}{w_{i}} R_{i}^{2}. \end{align*}
Fixed effects: w_{i} = \frac{1}{\color{orange}{\text{Var}(\rho_{(yx \cdot z)i})}}.
Random effects: w_{i} = \frac{1}{\text{Var}(\rho_{(yx \cdot z)i}) \color{orange}{+ \tau^2}},
where \tau^2 is the between-studies variance of \rho_{(yx \cdot z)i}. Commonly, \tau^2 is estimated via REML.
\begin{align*} \bar{\rho}_{yx \cdot z} &= \frac{\sum_{i=1}^n \color{orange}{w_{i}}\rho_{(yx \cdot z)i}}{\color{orange}{w_{i}}}, \\ \min \text{RSS} &= \min \sum_{i=1}^{n} \color{orange}{w_{i}} R_{i}^{2}. \end{align*}
Fixed effects: w_{i} = \frac{1}{\color{orange}{\text{Var}(\rho_{(yx \cdot z)i})}}.
Random effects: w_{i} = \frac{1}{\text{Var}(\rho_{(yx \cdot z)i}) \color{orange}{+ \tau^2}},
where \tau^2 is the between-studies variance of \rho_{(yx \cdot z)i}. Commonly, \tau^2 is estimated via REML.
Nested estimates:
rma.mv(yi = yi, V = as.matrix(vi), data = sample_1, test = "t", mods = ~ pred, random = list(~ 1 | Study_ID/ID), ~ 1 | data))
# Sample definition#------------------sample_1 <- meta_data %>% # Only broad integration indicators, filter(pred == "Education" | pred == "Generation" | pred == "Length of residency") %>% # Within each indep. sample & type of predictor, group_by(study_ID, data, context, pred) %>% # Use sub-sample if available, filter(full_sample_num == max(full_sample_num, na.rm = TRUE)) %>% # Use model with least number of mediators filter(nr_mediators == min(nr_mediators)) %>% # Use model with min number of bad controls filter(nr_bad_controls == min(nr_bad_controls)) %>% # Use model with max number of good controls filter(nr_good_controls == max(nr_good_controls)) %>% # Use model with minimum number of integration predictors filter(nr_preds == min(nr_preds)) %>% ungroup()
# Sample definition#------------------sample_1 <- meta_data %>% # Only broad integration indicators, filter(pred == "Education" | pred == "Generation" | pred == "Length of residency") %>% # Within each indep. sample & type of predictor, group_by(study_ID, data, context, pred) %>% # Use sub-sample if available, filter(full_sample_num == max(full_sample_num, na.rm = TRUE)) %>% # Use model with least number of mediators filter(nr_mediators == min(nr_mediators)) %>% # Use model with min number of bad controls filter(nr_bad_controls == min(nr_bad_controls)) %>% # Use model with max number of good controls filter(nr_good_controls == max(nr_good_controls)) %>% # Use model with minimum number of integration predictors filter(nr_preds == min(nr_preds)) %>% ungroup()
Note: 20 partial correlation coefficients and overall meta-estimate with associated 95% confidence intervals, based on five coded studies.
# Sample definition#------------------sample_1 <- meta_data %>% # Only broad integration indicators, filter(pred == "Education" | pred == "Generation" | pred == "Length of residency") %>% # Within each indep. sample & type of predictor, group_by(study_ID, data, context, pred) %>% # Use sub-sample if available, filter(full_sample_num == max(full_sample_num, na.rm = TRUE)) %>% # Use model with least number of mediators filter(nr_mediators == min(nr_mediators)) %>% # Use model with min number of bad controls filter(nr_bad_controls == min(nr_bad_controls)) %>% # Use model with max number of good controls filter(nr_good_controls == max(nr_good_controls)) %>% # Use model with minimum number of integration predictors filter(nr_preds == min(nr_preds)) %>% ungroup()
Note: Results are based on a multilevel random effects meta analysis. n = 20 partial correlation coefficients based on five coded studies and five different data sets.
# Sample definition#------------------sample_2 <- meta_data %>% # Only broad integration indicators, filter(pred == "Education" | pred == "Generation" | pred == "Length of residency") %>% # Within each indep. sample & type of predictor, group_by(study_ID, data, context, pred) %>% # Use sub-sample if available, filter(full_sample_num == max(full_sample_num, na.rm = TRUE)) %>% # Use model with least number of mediators # filter(nr_mediators == min(nr_mediators)) %>% # Use model with min number of bad controls filter(nr_bad_controls == min(nr_bad_controls)) %>% # Use model with max number of good controls filter(nr_good_controls == max(nr_good_controls)) %>% # Use model with minimum number of integration predictors filter(nr_preds == min(nr_preds)) %>% ungroup()
# Sample definition#------------------sample_2 <- meta_data %>% # Only broad integration indicators, filter(pred == "Education" | pred == "Generation" | pred == "Length of residency") %>% # Within each indep. sample & type of predictor, group_by(study_ID, data, context, pred) %>% # Use sub-sample if available, filter(full_sample_num == max(full_sample_num, na.rm = TRUE)) %>% # Use model with least number of mediators # filter(nr_mediators == min(nr_mediators)) %>% # Use model with min number of bad controls filter(nr_bad_controls == min(nr_bad_controls)) %>% # Use model with max number of good controls filter(nr_good_controls == max(nr_good_controls)) %>% # Use model with minimum number of integration predictors filter(nr_preds == min(nr_preds)) %>% ungroup()
Note: Results are based on a multilevel random effects meta analysis. n = 27 partial correlation coefficients based on five coded studies and five different data sets.
Note: Results are based on a multilevel random effects meta analysis. n = 20 partial correlation coefficients based on five coded studies and five different data sets.
# Sample definition#------------------pubbias_sample <- sample_1 %>% mutate( pred_num = case_when( pred == "Education" ~ 3, pred == "Generation" ~ 2, TRUE ~ 1)) %>% # Within each independent sample: group_by(study_ID, data, pop, context) %>% # Use preferable predictor, filter(pred_num == max(pred_num, na.rm = TRUE)) %>% # Finally, choose one at random. sample_n(1) %>% ungroup()
Note: n = 12 and 6 p-values respectively.
[...] greater familiarity with the culture and language and some economic advancement can lead to greater consciousness of the reality of discrimination.
-- Portes, Parker, and Cobas (1980)
[...] greater familiarity with the culture and language and some economic advancement can lead to greater consciousness of the reality of discrimination.
-- Portes, Parker, and Cobas (1980)
[...] greater familiarity with the culture and language and some economic advancement can lead to greater consciousness of the reality of discrimination.
-- Portes, Parker, and Cobas (1980)
False Consciousness: Are the less integrated under-perceiving the true extent of discrimination they face?
Fake CV's
have no experiences and feelings
The Trust game
Two persons' mutual evaluation of their trustworthiness
We'll have endowments of €10
Respondents will play both roles & we define actual role randomly afterwards
The Trust game
Two persons' mutual evaluation of their trustworthiness
We'll have endowments of €10
Respondents will play both roles & we define actual role randomly afterwards
Non-anonymous games
Profile photo & spoken sentence
Non-anonymous games
Profile photo & spoken sentence
Non-anonymous games
Profile photo & spoken sentence
Expected discrimination After all games are played: What do you think,
Perceived discrimination Three months later, respondents are informed about their aggregate personal and overall average payoffs.
Minority | Pot. discriminator | €_{i} - \bar{€}_{j(\text{Co-ethnics})} | Exp. \Delta_i€ | j selected i | i exp. selection | i Education | i ... |
---|---|---|---|---|---|---|---|
i=1 (Judith) | j=1 (Merlin) | -3 | -5 | 0 | 0 | ... | ... |
i=1 (Judith) | j=2 | 0 | 0 | 1 | 0 | ... | ... |
i=1 (Judith) | j=3 | 1 | 0 | 1 | 0 | ... | ... |
i=1 (Judith) | j=4 | -1 | 0 | 1 | 1 | ... | ... |
i=1 (Judith) | j=5 | -2 | 0 | 1 | 0 | ... | ... |
i=1 (Judith) | j=6 | -4 | 0 | 1 | 0 | ... | ... |
i=1 (Judith) | j=7 | 3 | 0 | 0 | 0 | ... | ... |
i=1 (Judith) | j=8 | 0 | 0 | 0 | 0 | ... | ... |
i=2 | j=1 (Merlin) | ... | ... | ... | ... | ... | ... |
i=2 | j=4 | ... | ... | ... | ... | ... | ... |
i=2 | j=9 | ... | ... | ... | ... | ... | ... |
i=2 | j=10 | ... | ... | ... | ... | ... | ... |
Thank you for your attention!
European Union Agency for Fundamental Rights. (2014). Violence against women :an EU wide survey : results at a glance. LU: Publications Office.
Gustafson, R. L. (1961). "Partial Correlations in Regression Computations". In: Journal of the American Statistical Association, pp. 363-367.
Konstantopoulos, S. (2011). "Fixed effects and variance components estimation in three-level meta-analysis". In: Research Synthesis Methods, pp. 61-76.
Portes, A., R. N. Parker, and J. A. Cobas (1980). "Assimilation or Consciousness". In: Social Forces, pp. 200-224.
Tocqueville, A. d. (2015). Democracy in America - Vol. I. and II. Read Books Ltd.
Viechtbauer, W. (2010). "Conducting Meta-Analyses in R with the metafor Package". In: Journal of Statistical Software, pp. 1-48.
Appendix
## Sample definitionsample_3 <- meta_data %>% # Only broad integration indicators and full samples. filter(pred == "Social exposure" | pred == "Labor market attainment" | pred == "Cognitive awareness" | pred == "Disillusion") %>% # Within each independent sample & type of predictor, group_by(study_ID, data, context, pred) %>% # Use sub-sample if available, filter(full_sample_num == max(full_sample_num, na.rm = TRUE)) %>% # Use model with least number of mediators filter(nr_mediators == min(nr_mediators)) %>% # Use model with min number of bad controls filter(nr_bad_controls == min(nr_bad_controls)) %>% # Use model with max number of good controls filter(nr_good_controls == max(nr_good_controls)) %>% # Use model with minimum number of integration predictors # filter(nr_preds == min(nr_preds)) %>% ungroup()
Note: n = 34 partial correlation coefficients based on five coded studies and five different data sets.
Note: Results are based on (multilevel, Original model) random effects meta analyses.