As always, start by opening a new script file, give to your file a “*good name*” and save it in our folder (POLXXXX). Remove everything from RStudio’s memory and set your working directory

Today we will learn how to produce a regression model, to do so, we will use a dataset produced by Pippa Norris. The dataset is called “DEMOCRACY CROSS-NATIONAL DATA”, and you may find it on our module’s website on SurreyLearn.

Download the data in stata format (.dta) of the dataset and the respective codebook in the folder entitled POLXXXX and import the dataset on RStudio.

As you see there are almost a thousand variables included in the dataset mesuring social, economic, and political characteristics of 193 nations.

Let’s start by exploring our dataset

`head(Democracy)`

As you can see there are many variables included in the dataset. We will only use two variables measuring the level of democracy in 1984 and the second one GDP Per Capita during the same year.

Since we are not using the whole dataset we will create a subset of the main dataset. The subset will include only the two varaibles we will use in our analysis. We will name our new dataset “*GDP_Dem*”. To do so we use the `subset()`

function along with the `c()`

function.

Our new dataset consists of two variables only: Dem_Gov1984 and GDPPC1984.

We may summarise our variables by using the `summary()`

function. To save time I will ask RStudio to provide a summary of our dataset since the dataset only consists of the two varaibles we are interested in. You may see that we have a few NA’s in the dataset and that they are both continuous variables.

We will start by calculating Pearson’s r to examine the strenght of the association between the two variables. We observe that the correlation coefficient is equal to ca. \(0.52\) that indicates a positive and not very strong statistical relationship between the two variables.

`cor(GDP_Dem, use="complete.obs") # remember that we have NA's in our dataset`

```
## Dem_Gov1984 GDPPC1984
## Dem_Gov1984 1.0000000 0.5198087
## GDPPC1984 0.5198087 1.0000000
```

We may also draw a scatterplot to examine this relationship. To plot our scatterplot we will use the `ggplot2`

package.

```
library(ggplot2)
plot.1<-ggplot(GDP_Dem, aes(x=Dem_Gov1984, y=GDPPC1984)) +geom_point(size=3,colour="red") +
theme_classic()+
labs(x="Democratic Governance", y="GDP Per Capita")
plot.1
```

By calculating the correlation coefficient we learned that there is a positive and medium range association between Democracy and GDP Per Capita. The scatterplot helped us visualise this relationship, we observe that there is a positive and linear relationship between the two variables.

To examine how the one variable affects the other , what changes it triggers, we will run a regression analysis. We will use the `lm()`

function.

The two main arguments of the `lm()`

function are outlined below:

Argument | Description |
---|---|

formula |
A mathematical description of the model, y ~ x_{1}+x_{2}+x_{3}+… or DV~IV_{1}+IV_{2}+IV_{3} |

data |
The name of the dataset we would like to use, the dataset that contains the variables we are interested in. |

`model.1 <- lm(Dem_Gov1984~GDPPC1984, data=GDP_Dem)`

The `lm()`

function calculated the relationship between Democracy and GDP Per Capita, in RStudio language our formula is an object and we can give it a name. We named our model `model.1`

. By giving a name to an object we can easily calculate further quantities and plot our results.

Let’s start by examing the outcome of the regression analysis. We can see how our model looks like by using the `summary()`

function.

`summary(model.1)`

```
##
## Call:
## lm(formula = Dem_Gov1984 ~ GDPPC1984, data = GDP_Dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -104.470 -16.507 -6.817 16.879 53.869
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.924e+01 3.777e+00 5.094 1.70e-06 ***
## GDPPC1984 1.519e-03 2.522e-04 6.024 2.99e-08 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 27.76 on 98 degrees of freedom
## (95 observations deleted due to missingness)
## Multiple R-squared: 0.2702, Adjusted R-squared: 0.2628
## F-statistic: 36.28 on 1 and 98 DF, p-value: 2.987e-08
```

**Note:** To disable scientific notation in R, in other words to display regular numbers instead of using the e+10-like notation, run the function below to disable it.
`options(scipen = 999)`