Formulate a causal model and then identify a categorical independent variable and a numeric dependent variable. Compute the T-test and interpret the results. Paste your R code below your interpretation.

data: V162111[V161241 == 1] and V162111[V161241 == 2]
t = -3.2341, df = 3582.6, p-value = 0.001231
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
-12.96005 -3.17709
sample estimates:
mean of x mean of y
59.50796 67.57653

Reject the null hypothesis

> t.test(V162111[V161241==1], mu=50)

One Sample t-test

data: V162111[V161241 == 1]
t = 4.699, df = 2324, p-value = 2.767e-06
alternative hypothesis: true mean is not equal to 50
95 percent confidence interval:
55.54008 63.47584
sample estimates:
mean of x
59.50796

I am 95% confident that the mean favorability towards transgender people fall between 55.5 and 63.4 degrees

> t.test(V162111[V161241==2], mu=50)

One Sample t-test

data: V162111[V161241 == 2]
t = 12.043, df = 1260, p-value < 2.2e-16
alternative hypothesis: true mean is not equal to 50
95 percent confidence interval:
64.71323 70.43982
sample estimates:
mean of x
67.57653
I am 95% confident the mean favorability towards transgender people fall between 64.7 and 70.4 degrees

data: V162099[V161309 == 1] and V162099[V161309 == 2]
t = 1.2943, df = 806.17, p-value = 0.1959
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
-0.8454448 4.1186018
sample estimates:
mean of x mean of y
75.21351 73.57694

There is no evidence that the mean of favorability towards Pope Francis is different between Latinos and non-Latinos.

data: V162098[V161302 == 1] and V162098[V161302 == 2]
t = 8.2674, df = 2029.9, p-value = 2.443e-16
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
9.21305 14.94323
sample estimates:
mean of x mean of y
70.00407 57.92593

data: V161093
t = -1.5473, df = 4234, p-value = 0.1219
alternative hypothesis: true mean is not equal to 50
95 percent confidence interval:
48.25003 50.20616
sample estimates:
mean of x
49.2281
> t.test(V161093[V161002==1],V161093[V161002==2])

Welch Two Sample t-test

data: V161093[V161002 == 1] and V161093[V161002 == 2]
t = -1.0992, df = 1161.7, p-value = 0.2719
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
-5.494746 1.548753
sample estimates:
mean of x mean of y
48.37814 50.35113

data: V162105[class == 0] and V162105[class == 1]
t = 1.2762, df = 1079.5, p-value = 0.2021
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
-1.866090 8.810312
sample estimates:
mean of x mean of y
57.98493 54.51282

data: V161095
t = -3.928, df = 4200, p-value = 8.703e-05
alternative hypothesis: true mean is not equal to 50
95 percent confidence interval:
47.27012 49.08789
sample estimates:
mean of x
48.179

> t.test(V161095[V161081==1],V161095[V161081==2])

Welch Two Sample t-test

data: V161095[V161081 == 1] and V161095[V161081 == 2]
t = 37.981, df = 2472.5, p-value < 2.2e-16
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
29.77436 33.01614
sample estimates:
mean of x mean of y
71.36975 39.97450
I reject the null hypothesis. I am 95% confident that the mean favorability towards the democratic party who believe we are on the right track and those who dont is between 57.98 and 54.13

## Comments

## Liz B, Cat. C ,Alessia S, Kenton B (THE DESTROYERS!!!!!)

> t.test(V162111[V161241==1],V162111[V161241==2])

Welch Two Sample t-test

data: V162111[V161241 == 1] and V162111[V161241 == 2]

t = -3.2341, df = 3582.6, p-value = 0.001231

alternative hypothesis: true difference in means is not equal to 0

95 percent confidence interval:

-12.96005 -3.17709

sample estimates:

mean of x mean of y

59.50796 67.57653

Reject the null hypothesis

> t.test(V162111[V161241==1], mu=50)

One Sample t-test

data: V162111[V161241 == 1]

t = 4.699, df = 2324, p-value = 2.767e-06

alternative hypothesis: true mean is not equal to 50

95 percent confidence interval:

55.54008 63.47584

sample estimates:

mean of x

59.50796

I am 95% confident that the mean favorability towards transgender people fall between 55.5 and 63.4 degrees

> t.test(V162111[V161241==2], mu=50)

One Sample t-test

data: V162111[V161241 == 2]

t = 12.043, df = 1260, p-value < 2.2e-16

alternative hypothesis: true mean is not equal to 50

95 percent confidence interval:

64.71323 70.43982

sample estimates:

mean of x

67.57653

I am 95% confident the mean favorability towards transgender people fall between 64.7 and 70.4 degrees

## ELISA NG

> library(gmodels)

> library(psych)

> ANES2016<-read.csv("http://www.shortell.nyc/online/files/anes_timeseries_2016.csv")

> attach(ANES2016)

> t.test(V162099[V161309==1],V162099[V161309==2])

Welch Two Sample t-test

data: V162099[V161309 == 1] and V162099[V161309 == 2]

t = 1.2943, df = 806.17, p-value = 0.1959

alternative hypothesis: true difference in means is not equal to 0

95 percent confidence interval:

-0.8454448 4.1186018

sample estimates:

mean of x mean of y

75.21351 73.57694

There is no evidence that the mean of favorability towards Pope Francis is different between Latinos and non-Latinos.

## > t.test(V162098[V161302==1]

> t.test(V162098[V161302==1],V162098[V161302==2])

Welch Two Sample t-test

data: V162098[V161302 == 1] and V162098[V161302 == 2]

t = 8.2674, df = 2029.9, p-value = 2.443e-16

alternative hypothesis: true difference in means is not equal to 0

95 percent confidence interval:

9.21305 14.94323

sample estimates:

mean of x mean of y

70.00407 57.92593

## Brandon and Negla

> t.test(V161093,mu=50)

One Sample t-test

data: V161093

t = -1.5473, df = 4234, p-value = 0.1219

alternative hypothesis: true mean is not equal to 50

95 percent confidence interval:

48.25003 50.20616

sample estimates:

mean of x

49.2281

> t.test(V161093[V161002==1],V161093[V161002==2])

Welch Two Sample t-test

data: V161093[V161002 == 1] and V161093[V161002 == 2]

t = -1.0992, df = 1161.7, p-value = 0.2719

alternative hypothesis: true difference in means is not equal to 0

95 percent confidence interval:

-5.494746 1.548753

sample estimates:

mean of x mean of y

48.37814 50.35113

## Ahmed, Brenda, Travis, Gregory

> t.test(V162105[class==0],V162105[class==1])

Welch Two Sample t-test

data: V162105[class == 0] and V162105[class == 1]

t = 1.2762, df = 1079.5, p-value = 0.2021

alternative hypothesis: true difference in means is not equal to 0

95 percent confidence interval:

-1.866090 8.810312

sample estimates:

mean of x mean of y

57.98493 54.51282

We accept the null hypothesis

## There is no evidence of

There is no evidence of difference that the mean of favorability towards rich people is different between lower class and upper class.

## joys

> t.test(V161095,mu=50)

One Sample t-test

data: V161095

t = -3.928, df = 4200, p-value = 8.703e-05

alternative hypothesis: true mean is not equal to 50

95 percent confidence interval:

47.27012 49.08789

sample estimates:

mean of x

48.179

> t.test(V161095[V161081==1],V161095[V161081==2])

Welch Two Sample t-test

data: V161095[V161081 == 1] and V161095[V161081 == 2]

t = 37.981, df = 2472.5, p-value < 2.2e-16

alternative hypothesis: true difference in means is not equal to 0

95 percent confidence interval:

29.77436 33.01614

sample estimates:

mean of x mean of y

71.36975 39.97450

I reject the null hypothesis. I am 95% confident that the mean favorability towards the democratic party who believe we are on the right track and those who dont is between 57.98 and 54.13