Loading Packages

haven

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

psych

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

summarytools

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

Import Data

dataset<- read_sav("https://osf.io/kd4ej/download")
colnames(dataset)
 [1] "StartDate"             "EndDate"               "Status"               
 [4] "IPAddress"             "Progress"              "Duration__in_seconds_"
 [7] "Finished"              "RecordedDate"          "ResponseId"           
[10] "RecipientLastName"     "RecipientFirstName"    "RecipientEmail"       
[13] "ExternalReference"     "LocationLatitude"      "LocationLongitude"    
[16] "DistributionChannel"   "UserLanguage"          "CoinFlip"             
[19] "FFM_1"                 "FFM_2"                 "FFM_3"                
[22] "FFM_4"                 "FFM_5"                 "FFM_6"                
[25] "FFM_7"                 "FFM_8"                 "FFM_9"                
[28] "FFM_10"                "FFM_11"                "FFM_12"               
[31] "FFM_13"                "FFM_14"                "FFM_15"               
[34] "FFM_16"                "FFM_17"                "FFM_18"               
[37] "FFM_19"                "FFM_20"                "FFM_21"               
[40] "FFM_22"                "FFM_23"                "FFM_24"               
[43] "FFM_25"                "FFM_26"                "FFM_27"               
[46] "FFM_28"                "FFM_29"                "FFM_30"               
[49] "FFM_31"                "FFM_32"                "FFM_33"               
[52] "FFM_34"                "FFM_35"                "FFM_36"               
[55] "FFM_37"                "FFM_38"                "FFM_39"               
[58] "FFM_40"                "FFM_41"                "FFM_42"               
[61] "FFM_43"                "FFM_44"                "Potter1"              
[64] "Potter2"               "Potter3"               "Potter4"              
[67] "Potter5"               "Potter6"               "Potter7"              
[70] "Potter8"               "Potter9"               "Potter10"             
[73] "Potter11"              "Potter12"              "Potter13"             
[76] "Potter14"              "Potter15"              "Potter16"             
[79] "Potter17"              "Potter18"              "Potter19"             
[82] "Potter20"              "Potter21"              "Potter22"             
[85] "Potter23"              "Potter24"              "Potter25"             
[88] "Potter26"              "Potter27"              "Potter28"             
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$Extraversion <- Extraversion.scores[,]

Extraversion.scales$alpha
      Extraversion
alpha    0.8141661
LS0tCnRpdGxlOiAiQ3JlYXRlIENvbXBvc2l0ZSBWYWx1ZSIKYXV0aG9yOiAiQ3J5c3RhbCBCdXJrZSIKZm9ybWF0OiBodG1sCm91dHB1dDogCiAgaHRtbF9ub3RlYm9vazogCiAgICB0aGVtZTogZGFya2x5CiAgICB0b2M6IHllcwogICAgdG9jX2Zsb2F0OiB5ZXMKLS0tCgoKIyBMb2FkaW5nIFBhY2thZ2VzIHsudGFic2V0fQoKIyMgaGF2ZW4KCmBgYHtyfQppZiAoIXJlcXVpcmUoaGF2ZW4pKXsKICBpbnN0YWxsLnBhY2thZ2VzKCJoYXZlbiIsIGRlcGVuZGVuY2llcyA9IFRSVUUpCiAgbGlicmFyeShoYXZlbikKfQpgYGAKCiMjIHBzeWNoCgpgYGB7cn0KaWYgKCFyZXF1aXJlKHBzeWNoKSl7CiAgaW5zdGFsbC5wYWNrYWdlcygicHN5Y2giLCBkZXBlbmRlbmNpZXMgPSBUUlVFKQogIGxpYnJhcnkocHN5Y2gpCn0KYGBgCgojIyBzdW1tYXJ5dG9vbHMKCmBgYHtyfQppZiAoIXJlcXVpcmUoc3VtbWFyeXRvb2xzKSl7CiAgaW5zdGFsbC5wYWNrYWdlcygic3VtbWFyeXRvb2xzIiwgZGVwZW5kZW5jaWVzID0gVFJVRSkKICBsaWJyYXJ5KHN1bW1hcnl0b29scykKfQpgYGAKCgoKIyBJbXBvcnQgRGF0YQoKYGBge3J9CmRhdGFzZXQ8LSByZWFkX3NhdigiaHR0cHM6Ly9vc2YuaW8va2Q0ZWovZG93bmxvYWQiKQpgYGAKCgpgYGB7cn0KRXh0cmF2ZXJzaW9uIDwtIGRhdGEuZnJhbWUgKGRhdGFzZXQkRkZNXzEsIGRhdGFzZXQkRkZNXzYsIGRhdGFzZXQkRkZNXzExLCBkYXRhc2V0JEZGTV8xNiwgZGF0YXNldCRGRk1fMjEsIGRhdGFzZXQkRkZNXzI2LCBkYXRhc2V0JEZGTV8zMSwgZGF0YXNldCRGRk1fMzYpCgpFeHRyYXZlcnNpb24ua2V5cyA8LSBtYWtlLmtleXMoRXh0cmF2ZXJzaW9uLCBsaXN0KEV4dHJhdmVyc2lvbj1jKDEsLTIsMyw0LC01LDYsLTcsOCkpKQoKRXh0cmF2ZXJzaW9uLnNjYWxlcyA8LSBzY29yZUl0ZW1zIChFeHRyYXZlcnNpb24ua2V5cywgRXh0cmF2ZXJzaW9uKQoKRXh0cmF2ZXJzaW9uLnNjb3JlcyA8LSBFeHRyYXZlcnNpb24uc2NhbGVzJHNjb3JlcwoKZGF0YXNldCRFeHRyYXZlcnNpb24gPC0gRXh0cmF2ZXJzaW9uLnNjb3Jlc1ssXQoKRXh0cmF2ZXJzaW9uLnNjYWxlcyRhbHBoYQpgYGAK