Learning how to create composite variables

Load Packages

haven

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

Loading required package: haven

psych

if(!require(psych)){
  install.packages("psych", dependencies = TRUE)
  library(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.spss <- read_sav ("Harry Potter Data.sav")    

##Scoring variable

Extraversion <- data.frame (dataset.spss$FFM_1, dataset.spss$FFM_6, dataset.spss$FFM_11, dataset.spss$FFM_16, dataset.spss$FFM_21, dataset.spss$FFM_26, dataset.spss$FFM_31, dataset.spss$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.spss$Extraversion <- Extraversion.scores[,]  

Extraversion.scales$alpha  

      Extraversion
alpha    0.8141661