Create Composite Variable New

Loading Packages

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

Loading required package: haven

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

Loading required package: psych

if (!require(summarytools)){
  install.packages("summarytools", dependencies = TRUE)
  require(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("https://osf.io/kd4ej/download")

Scoring Variable

#create dataframe with only relevant variables to work with
Extraversion <- data.frame (dataset$FFM_2, dataset$FFM_7, dataset$FFM_12, dataset$FFM_17, dataset$FFM_22, dataset$FFM_27, dataset$FFM_33, dataset$FFM_37)

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$Extraversion <- Extraversion.scores[,]

Extraversion.scales$alpha

      Extraversion
alpha    0.4253523