```{r}
library(readr)
library(dplyr)
library(ggplot2)
library(knitr)
library(psych)
library(magrittr)
library(kableExtra)
library(gridExtra)
library(scales)
library(stringr)
library(sjlabelled)
library(sjmisc)
library(sjstats)
library(ggeffects)
library(sjPlot)
library (foreign)
library(ggstatsplot)
library(rstatix)
library(dunn.test)
library(car)

ESS10 <-
  read.spss( "C:/Users/catslover0/Downloads/project/ESS10.sav",
             use.value.labels = T,
             to.data.frame = T)

ESS10Sw <- filter(ESS10, ESS10$cntry == "Switzerland")

Analysis = ESS10Sw %>%
  select(actrolga, trstlgl)

Analysis$trstlgl <- str_replace_all(Analysis$trstlgl, "No trust at all", "0")
Analysis$trstlgl <- str_replace_all(Analysis$trstlgl, "Complete trust", "10")

Analysis$actrolga <- as.factor(Analysis$actrolga)
Analysis$trstlgl <- as.numeric(Analysis$trstlgl)
```
```{r}
library(readr)
library(dplyr)
library(ggplot2)
library(knitr)
library(psych)
library(magrittr)
library(kableExtra)
library(gridExtra)
library(scales)
library(stringr)
library(sjlabelled)
library(sjmisc)
library(sjstats)
library(ggeffects)
library(sjPlot)
library (foreign)
library(ggstatsplot)
library(rstatix)
library(dunn.test)
library(car)

ESS10 <-
  read.spss( "C:/Users/catslover0/Downloads/project/ESS10.sav",
             use.value.labels = T,
             to.data.frame = T)

ESS10Sw <- filter(ESS10, ESS10$cntry == "Switzerland")

Analysis = ESS10Sw %>%
  select(actrolga, trstlgl)

Analysis$trstlgl <- str_replace_all(Analysis$trstlgl, "No trust at all", "0")
Analysis$trstlgl <- str_replace_all(Analysis$trstlgl, "Complete trust", "10")

Analysis$actrolga <- as.factor(Analysis$actrolga)
Analysis$trstlgl <- as.numeric(Analysis$trstlgl)
```