You are here

Group Exercise: Multiple Regression

Identify a set of numeric or binary IVs that you think could explain our DV, favorability toward big business. You can retain some or all of the variables from the example and add additional ones, or you can select a different set of IVs. You must explain each variable that you put into the model.

Compute the linear model. Interpret the results, as appropriate. We'll see which group has the best fitting model (explains the most variation in our DV). Paste your R code below your interpretation.

Comments

> summary(lm(V162100~v162096+v162103+v162111+V162313))
Error in eval(predvars, data, env) : object 'v162096' not found
> summary(lm(V162100~v162096+v162103+v162111+V162313))
Error in eval(predvars, data, env) : object 'v162096' not found
> summary(lm(V162100~V162096+V162103+V162111+V162313))

Call:
lm(formula = V162100 ~ V162096 + V162103 + V162111 + V162313)

Residuals:
Min 1Q Median 3Q Max
-299.97 -14.39 0.26 13.89 951.37

Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 46.39038 1.67301 27.729 < 2e-16 ***
V162096 0.16096 0.01038 15.502 < 2e-16 ***
V162103 -0.07754 0.01706 -4.545 5.68e-06 ***
V162111 0.11616 0.01138 10.205 < 2e-16 ***
V162313 -0.16525 0.02976 -5.553 3.02e-08 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 47.18 on 3495 degrees of freedom
(771 observations deleted due to missingness)
Multiple R-squared: 0.1263, Adjusted R-squared: 0.1253
F-statistic: 126.3 on 4 and 3495 DF, p-value: < 2.2e-16

>

For every 10 degree change in feminists there is a 1.6 increase in degree unit change in favorability toward big businesses. We have explained 12% of variation in favorability toward big businesses and accounted for by the model.

For every 10 degree change in transgender people there is a 1.1 increase in degree unit change in favorability toward big business. We have explained 12% of variation in favorability toward big business and accounted for by the model.

For every 10 degree change in gay men and lesbians there is a -0.8 decrease in degree unit change in favorability toward big business. We have explained 12% of variation in favorability toward big business and accounted for by the model.

For every 10 degree change in illegal immigrants there is a -1.6 decrease in degree unit change in favorability toward big business. We have explained 12% of variation in favorability toward big business and accounted for by the model.

additional variables - V161093 Bill Clinton, V161096 Republican Party, V162101 Conservatives , V161205 Rich People - We added these additional variables because they all contribute to the likelihood of a higher favor ability towards big businesses. We reject the null hypothesis and the model is significant.
summary(lm(V162100~V162098+V162171+V161310b+Gender+V161093+V161096+V162105+V162101))

Call:
lm(formula = V162100 ~ V162098 + V162171 + V161310b + Gender +
V161093 + V161096 + V162105 + V162101)

Residuals:
Min 1Q Median 3Q Max
-427.41 -14.79 -0.34 13.07 958.70

Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 6.80726 3.62127 1.880 0.0602 .
V162098 0.39709 0.01503 26.425 < 2e-16 ***
V162171 0.01880 0.02410 0.780 0.4352
V161310b 0.54946 2.70959 0.203 0.8393
Gender 0.34947 1.62207 0.215 0.8294
V161093 -0.01250 0.02884 -0.433 0.6648
V161096 0.29688 0.03349 8.864 < 2e-16 ***
V162105 0.06725 0.01569 4.288 1.86e-05 ***
V162101 0.08438 0.01218 6.926 5.16e-12 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 46.88 on 3387 degrees of freedom
(875 observations deleted due to missingness)
Multiple R-squared: 0.2372, Adjusted R-squared: 0.2354
F-statistic: 131.7 on 8 and 3387 DF, p-value: < 2.2e-16

> 23% of the proportion towards the favorbility of big business which can be explained by our IV's

For ever 10 degree change in favorability towards Unions, there is a 4.0 degree increase in favorability towards big businesses.
For ever 10 degree change in favorability towards Republican Party, there is a 3.0 degree increase in favorability towards big businesses.
For ever 10 degree change in favorability Rich People , there is a .6 degree increase in favorability towards big businesses.
For ever 10 degree change in favorability towards Conservatives, there is a .8 degree increase in favorability towards big businesses.

summary(lm(V162100~Gender+education+V161241+V162103+V162108+V161452+V161451+V162095))

Call:
lm(formula = V162100 ~ Gender + education + V161241 + V162103 +
V162108 + V161452 + V161451 + V162095)

Residuals:
Min 1Q Median 3Q Max
-264.23 -13.90 -1.57 11.88 697.99

Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 61.686205 19.636428 3.141 0.00181 **
Gender -1.240329 6.423536 -0.193 0.84699
education 0.063436 3.832109 0.017 0.98680
V161241 -9.494375 6.827543 -1.391 0.16517
V162103 -0.007472 0.048462 -0.154 0.87754
V162108 -0.181207 0.038865 -4.662 4.34e-06 ***
V161452 10.338967 7.143768 1.447 0.14865
V161451 5.806897 7.746774 0.750 0.45397
V162095 0.250766 0.023592 10.629 < 2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 61.78 on 377 degrees of freedom
(3885 observations deleted due to missingness)
Multiple R-squared: 0.2565, Adjusted R-squared: 0.2407
F-statistic: 16.25 on 8 and 377 DF, p-value: < 2.2e-16

For every 10 degree change in favorability toward jews there would be a 18 degree change in favorability toward big business.
For every 10 degree change in favorability toward christian fundamentalists there would be a 25 degree change in favorability toward big business.

For every 10 degree change in favorability toward jews there would be a 1.8 degree change in favorability toward big business.
For every 10 degree change in favorability toward christian fundamentalists there would be a 2.5 degree change in favorability toward big business.

Does Party Affiliation, Highest level of education, How likely whites unable to find job b/c employers hire minorities, ease of online access, anyone in the household belonging to a labor union, Gender, and being Hispanic influence favorability towards big business? 13% of the favorability towards big business is accounted for in the model.

> summary(lm(V162100~FartyParty+V161270+V162317+V161517+V161302+Gender+V161309))
Call:
lm(formula = V162100 ~ FartyParty + V161270 + V162317 + V161517 +
V161302 + Gender + V161309)

Residuals:
Min 1Q Median 3Q Max
-60.917 -13.555 0.416 14.230 59.885

Coefficients: (1 not defined because of singularities)
Estimate Std. Error t value Pr(>|t|)
(Intercept) 36.43945 7.17646 5.078 4.93e-07 ***
FartyParty 13.60115 1.70788 7.964 6.93e-15 ***
V161270 0.09119 0.10195 0.894 0.37139
V162317 -2.01792 0.73394 -2.749 0.00613 **
V161517 -0.15679 0.89476 -0.175 0.86095
V161302 2.03739 2.13795 0.953 0.34094
Gender -3.16496 1.62470 -1.948 0.05182 .
V161309 NA NA NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 21.1 on 687 degrees of freedom
(3577 observations deleted due to missingness)
Multiple R-squared: 0.1337, Adjusted R-squared: 0.1262
F-statistic: 17.68 on 6 and 687 DF, p-value: < 2.2e-16

> summary(lm(V162100~V162098+Gender+V162105+V162109+V162095+V162083+V162096+V162108+V161241+V161020))

Call:
lm(formula = V162100 ~ V162098 + Gender + V162105 + V162109 +
V162095 + V162083 + V162096 + V162108 + V161241 + V161020)

Residuals:
Min 1Q Median 3Q Max
-199.39 -14.35 0.92 12.62 367.75

Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 18.789925 9.858914 1.906 0.05740 .
V162098 0.335907 0.029876 11.243 < 2e-16 ***
Gender 3.219341 3.696971 0.871 0.38439
V162105 0.259985 0.024122 10.778 < 2e-16 ***
V162109 -0.007324 0.011644 -0.629 0.52977
V162095 -0.056876 0.013165 -4.320 1.98e-05 ***
V162083 0.019928 0.005537 3.599 0.00036 ***
V162096 -0.065611 0.014553 -4.509 8.64e-06 ***
V162108 -0.007408 0.025061 -0.296 0.76769
V161241 -5.808411 3.820924 -1.520 0.12928
V161020 4.977117 3.763498 1.322 0.18678
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 36.01 on 391 degrees of freedom
(3869 observations deleted due to missingness)
Multiple R-squared: 0.5323, Adjusted R-squared: 0.5203
F-statistic: 44.5 on 10 and 391 DF, p-value: < 2.2e-16

We reject the null hypothsis.
Only favorability towards labor unions(IV), Christian Fundamentalists, House Republican Candidate, Feminists, and Rich People has a reliable unique effect on big business. The power of multiple linear regression is that you are testing the unique effect controlling for all of the others.
For every 10 degree unit change in favorability towards IV (Labor Unions), there is a 3.3 degree increase change in favorability towards the DV (Big Business)
For every 10 degree unit change in favorability towards IV (rICH pEOPLE), there is a 2.5 degree increase change in favorability towards the DV (Big Business)
For every 10 degree unit change in favorability towards IV (Christian Fundamentalists), there is a 0.6 degree decline in favorability towards the DV (Big Business)
For every 10 degree unit change in favorability towards IV (House Repub Candidate), there is a 0.2 degree increase in favorability towards the DV (Big Business)
For every 10 degree unit change in favorability towards IV (Feminists), there is a 0.7 degree decline in favorability towards the DV (Big Business)
We have explained 53.2% (proportion of explained variation) of favorability towards big business is accounted/explained for by the model.

For every 10 degree change in favorability toward jews there would be a 1.8 degree change in favorability toward big business.
For every 10 degree change in favorability toward christian fundamentalists there would be a 2.5 degree change in favorability toward big business.

> summary(lm(V162100~V161093+V161213a+V161064x+V161091))

Call:
lm(formula = V162100 ~ V161093 + V161213a + V161064x + V161091)

Residuals:
Min 1Q Median 3Q Max
-62.76 -13.72 -0.41 14.03 931.62

Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 40.36834 6.16943 6.543 7.81e-11 ***
V161093 0.04544 0.02545 1.785 0.0744 .
V161213a 0.60575 1.10431 0.549 0.5834
V161064x -0.36576 0.25842 -1.415 0.1571
V161091 0.28861 0.02801 10.304 < 2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 31.03 on 1813 degrees of freedom
(2251 observations deleted due to missingness)
Multiple R-squared: 0.06511, Adjusted R-squared: 0.06304
F-statistic: 31.56 on 4 and 1813 DF, p-value: < 2.2e-16

> 6% of the variation proportion towards the favorbility of big business

We chose The following Independent Variables because we believe those who favor rich people, those who favor Republican candidates, Feminists, Christian fundamentalists and those who favor labor unions affect big business

> ANES2016<-read.csv("http://www.shortell.nyc/online/files/anes_timeseries_2016.csv")
> attach(ANES2016)
> library(gmodels)
> library(psych)
> Gender<-0;gender<-ifelse(V161342==1,1,0)
> summary(lm(V161091~V162098+V162355+V162349))

Call:
lm(formula = V161091 ~ V162098 + V162355 + V162349)

Residuals:
Min 1Q Median 3Q Max
-75.544 -18.873 2.465 18.175 121.677

Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 49.34467 2.00444 24.618 <2e-16 ***
V162098 -0.09652 0.01153 -8.368 <2e-16 ***
V162355 5.17494 0.29255 17.689 <2e-16 ***
V162349 -5.19902 0.36290 -14.326 <2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 26.46 on 2964 degrees of freedom
(1303 observations deleted due to missingness)
Multiple R-squared: 0.1861, Adjusted R-squared: 0.1852
F-statistic: 225.9 on 3 and 2964 DF, p-value: < 2.2e-16

Green party and the republican vice presid candidate stereotype muslim patriotic action and white people violence

> ANES2016<-read.csv("http://www.shortell.nyc/online/files/anes_timeseries_2016.csv")
> attach(ANES2016)
> library(gmodels)
> library(psych)
> Gender<-0;gender<-ifelse(V161342==1,1,0)

> summary(lm(V161091~V162098+V162355+V162349))

Call:
lm(formula = V161091 ~ V162098 + V162355 + V162349)

Residuals:
Min 1Q Median 3Q Max
-75.544 -18.873 2.465 18.175 121.677

Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 49.34467 2.00444 24.618 <2e-16 ***
V162098 -0.09652 0.01153 -8.368 <2e-16 ***
V162355 5.17494 0.29255 17.689 <2e-16 ***
V162349 -5.19902 0.36290 -14.326 <2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 26.46 on 2964 degrees of freedom
(1303 observations deleted due to missingness)
Multiple R-squared: 0.1861, Adjusted R-squared: 0.1852
F-statistic: 225.9 on 3 and 2964 DF, p-value: < 2.2e-16

Green party and the republican vice presid candidate stereotype muslin patriotic action and white people violence.