POL 51: Scientific Study of Politics Professor Jones Fall 2019 Problem sets 2 and 3: Inferential statistics, visualization of data, and regression modeling. Problem set 2 involves questions 1-3 and...

1 answer below »

View more »
Answered Same DayDec 19, 2021

Answer To: POL 51: Scientific Study of Politics Professor Jones Fall 2019 Problem sets 2 and 3: Inferential...

Dominic answered on Dec 20 2021
154 Votes
# import data
data = read.csv("C:/Users/Dominic.Joseph/Desktop/GreyNodes/New/hw23data-tub10e41.csv")
# Code
data$PartyCode = ifelse(data$pid7>=5,1,ifelse(data$pid7<3,0,NA))
#------------------------------------------------------------------------------------------------
-#
# Q 1.a
# 1 = Republican
# 2 = Democrat
x1 = data$system_justification[data$ï..pid_root==1] # Repub
x2 = data$system_justification[data$ï..pid_root==2] # Dem
# Null Hypothesis;Republican and Democratic identifiers are equally likely to endorse stronger system justifying beliefs
# Alternate Hypothesis;Republican identifiers are more likely to endorse stronger system justifying beliefs
t.test(x1,x2,alternative = "greater")
# Result; P vlue is very low. So we reject the Null Hypothesis.
# Conclusion; Republican identifiers are more likely to endorse stronger system justifying beliefs
#-------------------------------------------------------------------------------------------------#
# Q 1.b
# 0 = Male
# 1 = Female
x1 = data$system_justification[data$sex==0] # Male
x2 = data$system_justification[data$sex==1] # Female
# Null Hypothesis;Males and Females are equally likely to endorse stronger system justifying beliefs
# Null Hypothesis;Males are more likely to endorse stronger system justifying beliefs
t.test(x1,x2,alternative = "greater")
# Result; P vlue is very low. Strong evidence in favour of ALternate Hypothesis. So we reject the Null Hypothesis.
# Conclusion; Males are more likely to endorse stronger system justifying beliefs
#-------------------------------------------------------------------------------------------------#
# Q 1.c
x1 = data$blame_attribution[data$ï..pid_root==1] # Repub
x2 = data$blame_attribution[data$ï..pid_root==2] # Dem
# Null Hypothesis;Republican and Democratic identifiers are equally likely to endorse dispositional attributions of blame
# Alternate Hypothesis;Republican identifiers are more likely to endorse dispositional attributions of blame
t.test(x1,x2,alternative = "greater")
# Result; P vlue is very low. Strong evidence in favour of ALternate Hypothesis. So we reject the Null Hypothesis.
# Conclusion; Republican identifiers are more likely to endorse dispositional attributions of blame
#-------------------------------------------------------------------------------------------------#
# Q 1.d
x1 = data$blame_attribution[data$sex==0] # Male
x2 = data$blame_attribution[data$sex==1] # Female
# Null Hypothesis;Males and Females are are equally likely to endorse dispositional attributions of blame
# Alternate Hypothesis;Males are more likely to endorse dispositional attributions of blame
t.test(x1,x2,alternative = "greater")
# Result; P vlue is not...
SOLUTION.PDF

Answer To This Question Is Available To Download

Related Questions & Answers

More Questions »

Submit New Assignment

Copy and Paste Your Assignment Here
April
January
February
March
April
May
June
July
August
September
October
November
December
2025
2025
2026
2027
SunMonTueWedThuFriSat
30
31
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
1
2
3
00:00
00:30
01:00
01:30
02:00
02:30
03:00
03:30
04:00
04:30
05:00
05:30
06:00
06:30
07:00
07:30
08:00
08:30
09:00
09:30
10:00
10:30
11:00
11:30
12:00
12:30
13:00
13:30
14:00
14:30
15:00
15:30
16:00
16:30
17:00
17:30
18:00
18:30
19:00
19:30
20:00
20:30
21:00
21:30
22:00
22:30
23:00
23:30