Learn R: Create Composite Variable

Load Packages

haven

psych

summarytoo

if (!require(haven)){
install.packages("haven", dependencies = TRUE)
library(haven)
}

Loading required package: haven

if (!require(psych)){
install.packages("psych", dependencies = TRUE)
library(psych)
}

Loading required package: psych

if (!require(summarytools)){
install.packages("summarytools", dependencies = TRUE)
library(summarytools)
}

Loading required package: summarytools

Warning in fun(libname, pkgname): couldn't connect to display ":0"

system might not have X11 capabilities; in case of errors when using dfSummary(), set st_options(use.x11 = FALSE)

Import data

dataset <- read_sav ("Harry Potter Data.sav")

Scoring Variable

Extraversion <- data.frame(dataset$FFM_1, dataset$FFM_6, dataset$FFM_11, dataset$FFM_16, dataset$FFM_21, dataset$FFM_26, dataset$FFM_31, dataset$FFM_36)

Extraversion.keys <- make.keys(Extraversion,list(Extraversion=c(1,-2,3,4,-5,6,-7,8)))

Extraversion.scales <- scoreItems(Extraversion.keys, Extraversion)

Extraversion.scores <-Extraversion.scales$scores

dataset$Extraver <- Extraversion.scores[,]

Extraversion.scales$alpha

      Extraversion
alpha    0.8141661