-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathestimate_diversity.R
More file actions
59 lines (57 loc) · 3.38 KB
/
estimate_diversity.R
File metadata and controls
59 lines (57 loc) · 3.38 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
#---------------------SINGLE VAR DIVERSITY MODELS------------------------------#
cb_pol_08_div1 <- estimate("politics", b, at.08,
incl_contagion = FALSE, incl_conflict = TRUE, conflict_varnames = "ideomd")
cb_pol_10_div1 <- estimate("politics", b, at.10,
incl_contagion = FALSE, incl_conflict = TRUE, conflict_varnames = "ideomd")
cb_pol_12_div1 <- estimate("politics", b, at.12,
incl_contagion = FALSE, incl_conflict = TRUE, conflict_varnames = "ideomd")
cb_pol_14_div1 <- estimate("politics", b, at.14,
incl_contagion = FALSE, incl_conflict = TRUE, conflict_varnames = "ideomd")
cb_pol_08_div2 <- estimate("politics", b, at.08,
incl_contagion = FALSE, incl_conflict = TRUE, conflict_varnames = "ideosd0")
cb_pol_10_div2 <- estimate("politics", b, at.10,
incl_contagion = FALSE, incl_conflict = TRUE, conflict_varnames = "ideosd0")
cb_pol_12_div2 <- estimate("politics", b, at.12,
incl_contagion = FALSE, incl_conflict = TRUE, conflict_varnames = "ideosd0")
cb_pol_14_div2 <- estimate("politics", b, at.14,
incl_contagion = FALSE, incl_conflict = TRUE, conflict_varnames = "ideosd0")
cb_pol_08_div3 <- estimate("politics", b, at.08,
incl_contagion = FALSE, incl_conflict = TRUE, conflict_varnames = "party.rhhi")
cb_pol_10_div3 <- estimate("politics", b, at.10,
incl_contagion = FALSE, incl_conflict = TRUE, conflict_varnames = "party.rhhi")
cb_pol_12_div3 <- estimate("politics", b, at.12,
incl_contagion = FALSE, incl_conflict = TRUE, conflict_varnames = "party.rhhi")
cb_pol_14_div3 <- estimate("politics", b, at.14,
incl_contagion = FALSE, incl_conflict = TRUE, conflict_varnames = "party.rhhi")
cb_pol_08_div_c1 <- estimate("politics", b, at.08,
incl_contagion = FALSE, incl_conflict = TRUE, conflict_varnames = "div.comp")
cb_pol_10_div_c1 <- estimate("politics", b, at.10,
incl_contagion = FALSE, incl_conflict = TRUE, conflict_varnames = "div.comp")
cb_pol_12_div_c1 <- estimate("politics", b, at.12,
incl_contagion = FALSE, incl_conflict = TRUE, conflict_varnames = "div.comp")
cb_pol_14_div_c1 <- estimate("politics", b, at.14,
incl_contagion = FALSE, incl_conflict = TRUE, conflict_varnames = "div.comp")
cb_pol_08_div <- estimate("politics", b, at.08,
incl_contagion = FALSE, incl_conflict = TRUE)
cb_pol_10_div <- estimate("politics", b, at.10,
incl_contagion = FALSE, incl_conflict = TRUE)
cb_pol_12_div <- estimate("politics", b, at.12,
incl_contagion = FALSE, incl_conflict = TRUE)
cb_pol_14_div <- estimate("politics", b, at.14,
incl_contagion = FALSE, incl_conflict = TRUE)
cb_fr_08_div <- estimate("friend", b, at.08,
incl_contagion = FALSE, incl_conflict = TRUE)
cb_fr_10_div <- estimate("friend", b, at.10,
incl_contagion = FALSE, incl_conflict = TRUE)
cb_fr_12_div <- estimate("friend", b, at.12,
incl_contagion = FALSE, incl_conflict = TRUE)
cb_fr_14_div <- estimate("friend", b, at.14,
incl_contagion = FALSE, incl_conflict = TRUE)
cb_pol_08_cdiv <- estimate("politics", b, at.08, incl_conflict = TRUE)
cb_pol_10_cdiv <- estimate("politics", b, at.10, incl_conflict = TRUE)
cb_pol_12_cdiv <- estimate("politics", b, at.12, incl_conflict = TRUE)
cb_pol_14_cdiv <- estimate("politics", b, at.14, incl_conflict = TRUE)
cb_fr_08_cdiv <- estimate("friend", b, at.08, incl_conflict = TRUE)
cb_fr_10_cdiv <- estimate("friend", b, at.10, incl_conflict = TRUE)
cb_fr_12_cdiv <- estimate("friend", b, at.12, incl_conflict = TRUE)
cb_fr_14_cdiv <- estimate("friend", b, at.14, incl_conflict = TRUE)