library(psych)
library(tidyverse)
# Last inn datasett ----
# Endre filstien til å matche der hvor du har lagt fila.
<- read_csv("data/fa_data.csv")
intdat
# 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")
Håndbok i kvantitativ forskning
Skript for kapittel om sammensatte variabler
Jeg arbeider for tida med et kapittel til Håndbok i kvantitativ forskning, redigert av Lennart Lorås (HVL), Marit Schmid (HVL) og Vegard Johansen (NTNU). Her er skriptet for å gjenskape analysene fra kapitlet. Datasettet finner du her: fa_data.csv.