library(psych)
data<-bfi[,1:5]
head(data)
## A1 A2 A3 A4 A5
## 61617 2 4 3 4 4
## 61618 2 4 5 2 5
## 61620 5 4 5 4 4
## 61621 4 4 6 5 5
## 61622 2 3 3 4 5
## 61623 6 6 5 6 5
str(data)
## 'data.frame': 2800 obs. of 5 variables:
## $ A1: int 2 2 5 4 2 6 2 4 4 2 ...
## $ A2: int 4 4 4 4 3 6 5 3 3 5 ...
## $ A3: int 3 5 5 6 3 5 5 1 6 6 ...
## $ A4: int 4 2 4 5 4 6 3 5 3 6 ...
## $ A5: int 4 5 4 5 5 5 5 1 3 5 ...
summary(data)
## A1 A2 A3 A4 A5
## Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.0 Min. :1.00
## 1st Qu.:1.000 1st Qu.:4.000 1st Qu.:4.000 1st Qu.:4.0 1st Qu.:4.00
## Median :2.000 Median :5.000 Median :5.000 Median :5.0 Median :5.00
## Mean :2.413 Mean :4.802 Mean :4.604 Mean :4.7 Mean :4.56
## 3rd Qu.:3.000 3rd Qu.:6.000 3rd Qu.:6.000 3rd Qu.:6.0 3rd Qu.:5.00
## Max. :6.000 Max. :6.000 Max. :6.000 Max. :6.0 Max. :6.00
## NA's :16 NA's :27 NA's :26 NA's :19 NA's :16
cronbachs_alpha
alpha<-alpha(data,check.keys=TRUE)
## Warning in alpha(data, check.keys = TRUE): Some items were negatively correlated with the first principal component and were automatically reversed.
## This is indicated by a negative sign for the variable name.
alpha
##
## Reliability analysis
## Call: alpha(x = data, check.keys = TRUE)
##
## raw_alpha std.alpha G6(smc) average_r S/N ase mean sd median_r
## 0.7 0.71 0.68 0.33 2.5 0.009 4.7 0.9 0.34
##
## 95% confidence boundaries
## lower alpha upper
## Feldt 0.69 0.7 0.72
## Duhachek 0.69 0.7 0.72
##
## Reliability if an item is dropped:
## raw_alpha std.alpha G6(smc) average_r S/N alpha se var.r med.r
## A1- 0.72 0.73 0.67 0.40 2.6 0.0087 0.0065 0.38
## A2 0.62 0.63 0.58 0.29 1.7 0.0119 0.0169 0.29
## A3 0.60 0.61 0.56 0.28 1.6 0.0124 0.0094 0.32
## A4 0.69 0.69 0.65 0.36 2.3 0.0098 0.0159 0.37
## A5 0.64 0.66 0.61 0.32 1.9 0.0111 0.0126 0.34
##
## Item statistics
## n raw.r std.r r.cor r.drop mean sd
## A1- 2784 0.58 0.57 0.38 0.31 4.6 1.4
## A2 2773 0.73 0.75 0.67 0.56 4.8 1.2
## A3 2774 0.76 0.77 0.71 0.59 4.6 1.3
## A4 2781 0.65 0.63 0.47 0.39 4.7 1.5
## A5 2784 0.69 0.70 0.60 0.49 4.6 1.3
##
## Non missing response frequency for each item
## 1 2 3 4 5 6 miss
## A1 0.33 0.29 0.14 0.12 0.08 0.03 0.01
## A2 0.02 0.05 0.05 0.20 0.37 0.31 0.01
## A3 0.03 0.06 0.07 0.20 0.36 0.27 0.01
## A4 0.05 0.08 0.07 0.16 0.24 0.41 0.01
## A5 0.02 0.07 0.09 0.22 0.35 0.25 0.01
repeat with all data
data<-bfi
alpha<-alpha(data,check.keys=TRUE)
## Warning in alpha(data, check.keys = TRUE): Some items were negatively correlated with the first principal component and were automatically reversed.
## This is indicated by a negative sign for the variable name.
alpha
##
## Reliability analysis
## Call: alpha(x = data, check.keys = TRUE)
##
## raw_alpha std.alpha G6(smc) average_r S/N ase mean sd median_r
## 0.61 0.81 0.85 0.13 4.2 0.0099 42 0.99 0.1
##
## 95% confidence boundaries
## lower alpha upper
## Feldt 0.59 0.61 0.63
## Duhachek 0.60 0.61 0.63
##
## Reliability if an item is dropped:
## raw_alpha std.alpha G6(smc) average_r S/N alpha se var.r med.r
## A1- 0.60 0.81 0.85 0.13 4.2 0.0102 0.019 0.102
## A2 0.60 0.80 0.85 0.13 4.0 0.0102 0.018 0.100
## A3 0.60 0.80 0.84 0.13 3.9 0.0102 0.018 0.100
## A4 0.60 0.80 0.85 0.13 4.0 0.0103 0.019 0.100
## A5 0.60 0.80 0.84 0.13 3.9 0.0103 0.018 0.097
## C1 0.60 0.80 0.85 0.13 4.1 0.0101 0.019 0.102
## C2 0.61 0.80 0.85 0.13 4.1 0.0101 0.018 0.102
## C3 0.61 0.80 0.85 0.13 4.1 0.0101 0.019 0.105
## C4- 0.59 0.80 0.84 0.13 3.9 0.0104 0.019 0.097
## C5- 0.59 0.80 0.84 0.13 3.9 0.0103 0.019 0.099
## E1- 0.60 0.80 0.85 0.13 4.1 0.0101 0.018 0.102
## E2- 0.59 0.79 0.84 0.13 3.9 0.0104 0.018 0.099
## E3 0.60 0.80 0.84 0.13 4.0 0.0101 0.018 0.101
## E4 0.60 0.80 0.84 0.13 3.9 0.0102 0.018 0.099
## E5 0.60 0.80 0.84 0.13 3.9 0.0103 0.018 0.099
## N1- 0.60 0.80 0.84 0.13 4.0 0.0103 0.017 0.102
## N2- 0.60 0.80 0.84 0.13 4.0 0.0103 0.017 0.101
## N3- 0.60 0.80 0.85 0.13 4.0 0.0103 0.017 0.104
## N4- 0.59 0.80 0.84 0.13 3.9 0.0103 0.018 0.100
## N5- 0.60 0.80 0.85 0.13 4.1 0.0103 0.018 0.102
## O1 0.61 0.80 0.85 0.13 4.1 0.0101 0.019 0.102
## O2- 0.61 0.81 0.85 0.13 4.2 0.0101 0.019 0.105
## O3 0.60 0.80 0.85 0.13 4.0 0.0101 0.018 0.102
## O4- 0.62 0.82 0.86 0.14 4.4 0.0099 0.018 0.110
## O5- 0.61 0.81 0.85 0.13 4.2 0.0101 0.019 0.105
## gender 0.61 0.81 0.86 0.14 4.4 0.0100 0.018 0.111
## education 0.61 0.81 0.86 0.14 4.3 0.0102 0.019 0.112
## age 0.82 0.81 0.85 0.13 4.2 0.0049 0.019 0.107
##
## Item statistics
## n raw.r std.r r.cor r.drop mean sd
## A1- 2784 0.208 0.31 0.263 0.242 84.6 1.41
## A2 2773 0.256 0.47 0.453 0.343 4.8 1.17
## A3 2774 0.310 0.51 0.496 0.351 4.6 1.30
## A4 2781 0.247 0.43 0.390 0.324 4.7 1.48
## A5 2784 0.327 0.56 0.545 0.424 4.6 1.26
## C1 2779 0.210 0.37 0.334 0.254 4.5 1.24
## C2 2776 0.190 0.37 0.335 0.214 4.4 1.32
## C3 2780 0.220 0.36 0.320 0.239 4.3 1.29
## C4- 2774 0.326 0.52 0.506 0.413 84.4 1.38
## C5- 2784 0.303 0.52 0.506 0.382 83.7 1.63
## E1- 2777 0.243 0.41 0.380 0.256 84.0 1.63
## E2- 2784 0.369 0.59 0.582 0.447 83.9 1.61
## E3 2775 0.257 0.50 0.484 0.313 4.0 1.35
## E4 2791 0.284 0.53 0.518 0.334 4.4 1.46
## E5 2779 0.322 0.52 0.507 0.389 4.4 1.33
## N1- 2778 0.291 0.45 0.450 0.346 84.1 1.57
## N2- 2779 0.276 0.44 0.433 0.347 83.5 1.53
## N3- 2789 0.293 0.43 0.417 0.346 83.8 1.60
## N4- 2764 0.319 0.52 0.512 0.376 83.8 1.57
## N5- 2771 0.271 0.38 0.344 0.299 84.0 1.62
## O1 2778 0.200 0.36 0.318 0.234 4.8 1.13
## O2- 2800 0.195 0.29 0.237 0.176 84.3 1.57
## O3 2772 0.244 0.43 0.401 0.278 4.4 1.22
## O4- 2786 0.086 0.10 0.032 0.022 82.1 1.22
## O5- 2780 0.175 0.29 0.242 0.204 84.5 1.33
## gender 2800 0.058 0.16 0.090 0.072 1.7 0.47
## education 2577 0.154 0.17 0.095 0.173 3.2 1.11
## age 2800 0.377 0.28 0.224 0.192 28.8 11.13
##
## Non missing response frequency for each item
## 1 2 3 4 5 6 miss
## A1 0.33 0.29 0.14 0.12 0.08 0.03 0.01
## A2 0.02 0.05 0.05 0.20 0.37 0.31 0.01
## A3 0.03 0.06 0.07 0.20 0.36 0.27 0.01
## A4 0.05 0.08 0.07 0.16 0.24 0.41 0.01
## A5 0.02 0.07 0.09 0.22 0.35 0.25 0.01
## C1 0.03 0.06 0.10 0.24 0.37 0.21 0.01
## C2 0.03 0.09 0.11 0.23 0.35 0.20 0.01
## C3 0.03 0.09 0.11 0.27 0.34 0.17 0.01
## C4 0.28 0.29 0.17 0.16 0.08 0.02 0.01
## C5 0.18 0.20 0.12 0.22 0.17 0.10 0.01
## E1 0.24 0.23 0.15 0.16 0.13 0.09 0.01
## E2 0.19 0.24 0.12 0.22 0.14 0.09 0.01
## E3 0.05 0.11 0.15 0.30 0.27 0.13 0.01
## E4 0.05 0.09 0.10 0.16 0.34 0.26 0.00
## E5 0.03 0.08 0.10 0.22 0.34 0.22 0.01
## N1 0.24 0.24 0.15 0.19 0.12 0.07 0.01
## N2 0.12 0.19 0.15 0.26 0.18 0.10 0.01
## N3 0.18 0.23 0.13 0.21 0.16 0.09 0.00
## N4 0.17 0.24 0.15 0.22 0.14 0.09 0.01
## N5 0.24 0.24 0.14 0.18 0.12 0.09 0.01
## O1 0.01 0.04 0.08 0.22 0.33 0.33 0.01
## O2 0.29 0.26 0.14 0.16 0.10 0.06 0.00
## O3 0.03 0.05 0.11 0.28 0.34 0.20 0.01
## O4 0.02 0.04 0.06 0.17 0.32 0.39 0.01
## O5 0.27 0.32 0.19 0.13 0.07 0.03 0.01
## gender 0.33 0.67 0.00 0.00 0.00 0.00 0.00
## education 0.09 0.11 0.48 0.15 0.16 0.00 0.08
alpha[["total"]][["raw_alpha"]]
## [1] 0.6145127