Larn R: Create Composite Variable

Load Packages

haven

# Check if haven is already installed and if it is, load it.
if (!require(haven)){
  # If it's not intalled, then tell R to install it.
  install.packages("haven", dependencies = TRUE)
  # Once it's installed, tell R to load it.
  library(haven)
}
Loading required package: haven

psych

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

summarytools

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("https://osf.io/kd4ej/download")

Scoring Variable

Dataframe

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)

List of Keys

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

Score the Scale

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

Save the Scores

Extraversion.scores <- Extraversion.scales$scores

Save the Scores in Dataset

dataset$Extraversion <- Extraversion.scores[,]