library(psych)
library(tidyverse)
library(GGally)
library(qgraph)

# Načtení dat
df <- haven::read_sav("https://is.muni.cz/go/j6bdrc")
df <- df %>% 
  select(id:neshody)


# Extracting metadata
metadata <- tibble(
  var_names = names(df[-1]),
  var_labels = map_chr(df[-1], 
                       ~attributes(.)$label)
)

metadata %>% 
  print(n = Inf)

# Vyberte si jakékoli dvě kvantativní proměnné z datasetu datasetu importovaného
# výše, u kterých si myslíte, že by mezi nimi měl být vztah.
# Prozkoumejte, zda jsou tyto proměnné přibližně normálně rozděleny pomocí
# histogramu (nejlépe doplněného i křivkou normálního rozdělení) a 
# q-q grafu. Prozkoumejte vztah mezi nimi a jeho linearitu pomocí scatterplotu.
# Otestujte tento vztah pomocí vhodného korelačního koeficientu.