Håndbok i kvantitativ forskning

Skript for kapittel om sammensatte variabler

Jeg bidro med et kapittel til Håndbok i kvantitativ forskning, redigert av Vegard Johansen, Lennart Lorås og Marit Therese Schmid. Her er skriptet for å gjenskape analysene fra kapitlet. Datasettet finner du her: fa_data.csv.

library(psych)
library(tidyverse)

# Last inn datasett ----
# Endre filstien til å matche der hvor du har lagt fila.
intdat <- read_csv("data/fa_data.csv")

# Faktoranalyse ----
# Sjekk KMO
KMO(intdat)

# Sjekk Bartletts test
intdat |> 
  cor() |> 
  cortest.bartlett(n = nrow(intdat))

# Test en urotert faktorløsning
fa(intdat, nfactors = 10, rotate = "none")

# Scree-graf
scree(intdat, factors = TRUE, pc = FALSE)

# Parallellanalyse
fa.parallel(intdat, fa = "fa")

# Test en rotert faktorløsning med to faktorer.
fa(intdat, nfactors = 2, rotate = "oblimin")