Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_cronbach.wasp

Title produced by software

Cronbach Alpha

Date of computation

Sun, 23 Jan 2022 10:05:10 +0100

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2022/Jan/23/t1642928984vusdmcboduy51z8.htm/, Retrieved Fri, 11 Sep 2026 00:37:19 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=319602, Retrieved Fri, 11 Sep 2026 00:37:19 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

414

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Cronbach Alpha] [cronbach α IDV s...] [2022-01-23 09:05:10] [6103124058473b9b2660380573fcf412] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

2 2 1 3 2 2 3 2 3 4 5 4 2 4 4 3 2
1 2 2 2 2 1 2 2 1 4 4 5 4 4 4 5 4
2 2 2 3 2 2 2 2 2 4 4 4 4 5 5 5 5
2 2 2 4 3 2 2 2 2 2 4 3 4 3 4 4 4
1 1 2 3 2 2 2 2 2 2 4 3 4 3 4 4 4
2 3 3 3 3 2 2 2 2 2 4 4 4 3 4 4 3
2 2 1 4 2 2 3 1 3 5 5 5 5 4 4 4 3
2 1 1 3 2 2 2 1 1 4 4 3 2 2 4 2 4
2 2 2 4 2 1 1 2 1 4 4 4 4 2 4 4 4
2 3 2 3 1 1 2 2 2 4 4 5 4 4 5 4 4
1 1 2 3 2 3 3 2 1 4 4 2 2 3 4 4 4
1 2 2 5 2 2 2 2 1 3 4 3 4 3 4 3 3
2 1 1 4 2 2 2 2 3 3 3 3 3 4 5 4 4
2 2 2 4 2 2 2 2 2 3 4 2 2 3 4 4 4
2 4 1 5 2 1 4 3 5 4 4 4 4 3 5 4 3
1 2 1 3 2 1 1 1 1 3 5 4 4 4 5 3 3
3 1 1 3 2 1 1 2 1 4 5 5 5 2 5 5 2
3 4 1 2 2 2 2 2 2 4 4 3 2 3 4 4 4
1 3 1 3 1 1 2 2 2 4 5 5 5 4 4 5 2
2 2 2 2 2 2 2 2 2 4 4 4 2 2 4 4 3
2 1 1 2 3 2 2 2 3 2 5 4 4 3 4 4 2
3 2 3 4 2 3 2 3 2 1 4 3 2 4 1 2 4
2 2 1 1 1 1 1 1 1 4 5 4 4 5 1 4 4
2 2 1 3 2 2 2 3 3 2 4 4 2 4 4 3 4
2 3 1 2 1 1 1 2 2 4 5 5 2 4 4 4 3
1 2 1 2 1 1 1 1 1 4 5 5 4 5 5 5 5
2 2 1 3 2 2 1 2 1 4 4 4 4 4 3 4 2
1 2 1 2 2 2 2 2 2 2 4 4 2 3 4 4 3
2 2 1 4 2 2 2 1 1 4 3 3 4 2 4 4 4
1 1 2 4 2 2 2 2 2 2 4 4 4 4 4 4 4
2 2 2 3 2 2 2 2 2 2 4 3 3 3 4 4 4
1 2 2 3 2 1 1 1 2 4 5 3 4 4 4 4 4
2 3 2 2 2 2 2 3 3 4 5 4 3 4 4 4 4
2 4 1 2 1 1 1 2 2 5 5 5 4 4 4 5 2
2 2 2 5 1 1 3 3 2 2 4 3 3 3 4 4 4
2 3 2 3 2 2 3 2 3 4 4 4 3 4 4 4 3
2 2 1 4 1 1 1 1 3 5 3 4 4 4 4 4 4
2 3 1 4 2 2 2 3 2 3 4 4 4 3 4 3 4
2 2 1 4 1 1 1 2 4 4 4 4 4 4 4 4 4
3 4 1 5 2 1 1 2 2 3 4 4 4 3 4 4 3
2 2 2 3 1 1 2 2 3 2 4 3 4 4 4 4 3
2 2 1 3 1 1 2 2 1 4 5 4 5 3 3 5 4
3 3 1 2 1 1 1 2 1 4 5 4 3 4 4 5 4
1 3 1 1 1 1 1 1 1 5 5 5 5 4 5 5 4
2 3 1 2 1 1 2 2 2 4 4 3 3 3 5 4 4
1 2 1 2 1 1 1 1 1 4 4 4 4 1 4 5 5
2 3 1 3 1 2 3 2 2 4 4 4 2 4 4 4 4
2 2 2 3 1 2 2 3 3 4 4 4 4 3 4 4 3
1 2 2 4 1 2 2 2 2 2 4 4 2 1 4 4 5
1 1 2 2 3 2 2 2 2 4 2 4 4 2 4 4 4
1 3 2 3 2 2 2 2 2 4 4 4 4 3 4 4 3
2 3 1 2 1 2 2 2 2 4 5 4 4 3 4 3 4
1 3 2 3 1 3 3 3 1 4 5 4 2 4 2 1 2
1 1 1 1 1 1 1 1 1 5 5 5 4 1 5 4 2
1 2 3 4 1 3 3 2 3 4 5 5 4 4 2 5 2
1 1 2 2 2 3 3 2 2 4 1 5 4 2 3 2 3
1 1 2 3 2 3 2 2 2 4 5 3 4 2 2 4 2
1 1 1 1 2 1 1 1 2 5 5 5 4 2 5 5 2
2 1 2 3 2 2 2 1 2 4 4 4 4 4 2 3 2
2 2 3 2 2 2 1 1 1 4 4 2 2 4 4 4 2
1 1 2 3 2 3 2 1 2 5 5 4 2 4 3 3 2
2 2 2 2 3 3 2 1 2 4 4 4 4 2 4 4 4
2 2 3 3 2 3 2 1 1 4 5 4 2 4 2 5 2
4 4 3 2 3 3 2 2 5 5 4 4 3 4 2 4 5
1 2 2 2 2 3 3 2 2 2 4 2 5 4 4 4 4
1 2 1 1 1 1 1 2 1 5 5 4 4 4 4 4 4
1 1 2 2 1 1 1 1 1 4 4 2 4 4 4 4 2
1 1 1 1 1 2 1 1 1 4 4 4 4 4 4 4 3
1 1 1 1 1 1 1 1 1 4 5 5 5 4 5 4 5
1 2 1 2 3 1 2 1 1 4 5 2 3 3 4 5 3
2 1 1 3 2 2 1 2 1 4 4 4 2 4 2 4 3
2 1 3 3 3 3 2 1 2 4 4 2 2 2 4 2 2
1 1 2 4 2 1 1 1 1 5 5 3 2 4 4 2 2
1 2 2 3 2 2 2 2 1 4 5 2 2 4 4 4 4
2 1 2 1 2 2 2 1 1 5 4 5 4 5 4 4 2
1 1 2 2 1 2 2 1 1 4 5 5 4 2 4 4 4
2 1 2 3 1 1 1 2 2 4 4 4 4 2 4 4 4
1 1 2 2 2 3 2 2 1 4 2 2 2 2 2 3 2
1 1 2 2 3 2 3 3 3 4 4 4 3 2 4 4 2
1 2 3 2 2 3 1 1 1 4 4 4 3 4 2 4 2
1 1 2 2 2 3 2 2 2 4 5 4 4 2 4 4 2
1 1 1 1 1 1 1 1 1 4 5 5 4 5 5 5 5
3 2 2 1 2 2 3 2 2 2 4 4 3 4 4 2 4
1 1 2 2 1 2 1 1 1 2 4 4 4 2 4 4 4
1 1 2 3 1 2 2 3 2 4 5 2 2 3 2 4 1
1 1 1 1 1 2 1 1 1 4 5 4 2 2 4 4 4
1 1 3 1 3 1 1 1 1 5 5 5 3 5 4 5 2
2 1 2 1 1 2 2 2 2 4 4 4 4 2 4 4 4
1 1 1 1 1 1 1 1 2 2 4 4 4 3 4 2 2
1 2 2 4 2 4 2 2 1 5 5 4 4 2 5 5 1
1 2 2 2 3 2 2 3 1 4 5 5 2 5 5 5 4
2 2 2 3 1 1 1 2 2 2 4 4 4 4 4 4 4
1 4 2 2 2 2 2 2 2 4 5 4 5 2 4 4 2
1 1 3 1 1 1 3 1 1 4 5 5 5 3 2 5 4
3 1 2 3 2 1 1 1 1 4 4 3 4 2 3 5 2
1 1 1 3 1 2 3 1 1 1 5 5 5 4 5 5 4
1 1 1 3 2 2 2 1 1 5 5 4 3 4 5 4 2
1 2 2 3 3 3 2 2 2 4 4 3 4 3 5 3 2
1 1 1 2 2 3 1 2 1 4 5 5 3 3 2 5 2
1 1 1 1 3 2 2 1 1 5 5 5 2 4 5 5 4
2 2 2 1 2 2 2 2 2 4 4 4 2 2 4 2 4

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	Big Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time1 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=319602&T=0

[TABLE]
[ROW]

Summary of computational transaction[/C][/ROW] [ROW]

Raw Input[/C]

view raw input (R code) [/C][/ROW] [ROW]

Raw Output[/C]

view raw output of R engine [/C][/ROW] [ROW]

Computing time[/C]

1 seconds[/C][/ROW] [ROW]

R Server[/C]

Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=319602&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319602&T=0

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	Big Analytics Cloud Computing Center

Cronbach Alpha and Related Statistics
Items	Cronbach Alpha	Std. Alpha	G6(smc)	Average R
All itmes	0.6989	0.7225	0.7893	0.1328
idv1 excluded	0.6899	0.7159	0.7778	0.1361
idv2 excluded	0.7094	0.7307	0.7876	0.145
idv3 excluded	0.6811	0.7051	0.7747	0.13
idv4 excluded	0.6739	0.7022	0.7735	0.1284
idv5 excluded	0.6849	0.7092	0.7746	0.1322
idv6 excluded	0.6678	0.6925	0.7593	0.1234
idv7 excluded	0.6741	0.6972	0.7666	0.1258
idv8 excluded	0.6713	0.6938	0.7623	0.124
idv9 excluded	0.6789	0.7032	0.7701	0.129
idv10 excluded	0.6957	0.7182	0.7808	0.1374
idv11 excluded	0.6814	0.7066	0.7741	0.1308
idv12 excluded	0.6699	0.7001	0.7693	0.1273
idv13 excluded	0.6866	0.7112	0.7749	0.1334
idv14 excluded	0.7107	0.7305	0.7943	0.1449
idv15 excluded	0.6896	0.7144	0.7764	0.1352
idv16 excluded	0.6713	0.7003	0.7708	0.1274
idv17 excluded	0.7176	0.7352	0.7909	0.1479

\begin{tabular}{lllllllll}
\hline
Cronbach Alpha and Related Statistics \tabularnewline
Items & Cronbach Alpha & Std. Alpha & G6(smc) & Average R \tabularnewline
All itmes & 0.6989 & 0.7225 & 0.7893 & 0.1328 \tabularnewline
idv1 excluded & 0.6899 & 0.7159 & 0.7778 & 0.1361 \tabularnewline
idv2 excluded & 0.7094 & 0.7307 & 0.7876 & 0.145 \tabularnewline
idv3 excluded & 0.6811 & 0.7051 & 0.7747 & 0.13 \tabularnewline
idv4 excluded & 0.6739 & 0.7022 & 0.7735 & 0.1284 \tabularnewline
idv5 excluded & 0.6849 & 0.7092 & 0.7746 & 0.1322 \tabularnewline
idv6 excluded & 0.6678 & 0.6925 & 0.7593 & 0.1234 \tabularnewline
idv7 excluded & 0.6741 & 0.6972 & 0.7666 & 0.1258 \tabularnewline
idv8 excluded & 0.6713 & 0.6938 & 0.7623 & 0.124 \tabularnewline
idv9 excluded & 0.6789 & 0.7032 & 0.7701 & 0.129 \tabularnewline
idv10 excluded & 0.6957 & 0.7182 & 0.7808 & 0.1374 \tabularnewline
idv11 excluded & 0.6814 & 0.7066 & 0.7741 & 0.1308 \tabularnewline
idv12 excluded & 0.6699 & 0.7001 & 0.7693 & 0.1273 \tabularnewline
idv13 excluded & 0.6866 & 0.7112 & 0.7749 & 0.1334 \tabularnewline
idv14 excluded & 0.7107 & 0.7305 & 0.7943 & 0.1449 \tabularnewline
idv15 excluded & 0.6896 & 0.7144 & 0.7764 & 0.1352 \tabularnewline
idv16 excluded & 0.6713 & 0.7003 & 0.7708 & 0.1274 \tabularnewline
idv17 excluded & 0.7176 & 0.7352 & 0.7909 & 0.1479 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=319602&T=1

[TABLE]
[ROW][C]Cronbach Alpha and Related Statistics[/C][/ROW]
[ROW][C]Items[/C][C]Cronbach Alpha[/C][C]Std. Alpha[/C][C]G6(smc)[/C][C]Average R[/C][/ROW]
[ROW][C]All itmes[/C][C]0.6989[/C][C]0.7225[/C][C]0.7893[/C][C]0.1328[/C][/ROW]
[ROW][C]idv1 excluded[/C][C]0.6899[/C][C]0.7159[/C][C]0.7778[/C][C]0.1361[/C][/ROW]
[ROW][C]idv2 excluded[/C][C]0.7094[/C][C]0.7307[/C][C]0.7876[/C][C]0.145[/C][/ROW]
[ROW][C]idv3 excluded[/C][C]0.6811[/C][C]0.7051[/C][C]0.7747[/C][C]0.13[/C][/ROW]
[ROW][C]idv4 excluded[/C][C]0.6739[/C][C]0.7022[/C][C]0.7735[/C][C]0.1284[/C][/ROW]
[ROW][C]idv5 excluded[/C][C]0.6849[/C][C]0.7092[/C][C]0.7746[/C][C]0.1322[/C][/ROW]
[ROW][C]idv6 excluded[/C][C]0.6678[/C][C]0.6925[/C][C]0.7593[/C][C]0.1234[/C][/ROW]
[ROW][C]idv7 excluded[/C][C]0.6741[/C][C]0.6972[/C][C]0.7666[/C][C]0.1258[/C][/ROW]
[ROW][C]idv8 excluded[/C][C]0.6713[/C][C]0.6938[/C][C]0.7623[/C][C]0.124[/C][/ROW]
[ROW][C]idv9 excluded[/C][C]0.6789[/C][C]0.7032[/C][C]0.7701[/C][C]0.129[/C][/ROW]
[ROW][C]idv10 excluded[/C][C]0.6957[/C][C]0.7182[/C][C]0.7808[/C][C]0.1374[/C][/ROW]
[ROW][C]idv11 excluded[/C][C]0.6814[/C][C]0.7066[/C][C]0.7741[/C][C]0.1308[/C][/ROW]
[ROW][C]idv12 excluded[/C][C]0.6699[/C][C]0.7001[/C][C]0.7693[/C][C]0.1273[/C][/ROW]
[ROW][C]idv13 excluded[/C][C]0.6866[/C][C]0.7112[/C][C]0.7749[/C][C]0.1334[/C][/ROW]
[ROW][C]idv14 excluded[/C][C]0.7107[/C][C]0.7305[/C][C]0.7943[/C][C]0.1449[/C][/ROW]
[ROW][C]idv15 excluded[/C][C]0.6896[/C][C]0.7144[/C][C]0.7764[/C][C]0.1352[/C][/ROW]
[ROW][C]idv16 excluded[/C][C]0.6713[/C][C]0.7003[/C][C]0.7708[/C][C]0.1274[/C][/ROW]
[ROW][C]idv17 excluded[/C][C]0.7176[/C][C]0.7352[/C][C]0.7909[/C][C]0.1479[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=319602&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319602&T=1

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Cronbach Alpha and Related Statistics
Items	Cronbach Alpha	Std. Alpha	G6(smc)	Average R
All itmes	0.6989	0.7225	0.7893	0.1328
idv1 excluded	0.6899	0.7159	0.7778	0.1361
idv2 excluded	0.7094	0.7307	0.7876	0.145
idv3 excluded	0.6811	0.7051	0.7747	0.13
idv4 excluded	0.6739	0.7022	0.7735	0.1284
idv5 excluded	0.6849	0.7092	0.7746	0.1322
idv6 excluded	0.6678	0.6925	0.7593	0.1234
idv7 excluded	0.6741	0.6972	0.7666	0.1258
idv8 excluded	0.6713	0.6938	0.7623	0.124
idv9 excluded	0.6789	0.7032	0.7701	0.129
idv10 excluded	0.6957	0.7182	0.7808	0.1374
idv11 excluded	0.6814	0.7066	0.7741	0.1308
idv12 excluded	0.6699	0.7001	0.7693	0.1273
idv13 excluded	0.6866	0.7112	0.7749	0.1334
idv14 excluded	0.7107	0.7305	0.7943	0.1449
idv15 excluded	0.6896	0.7144	0.7764	0.1352
idv16 excluded	0.6713	0.7003	0.7708	0.1274
idv17 excluded	0.7176	0.7352	0.7909	0.1479

Parameters (Session):

par1 = TRUE ;

Parameters (R input):

par1 = TRUE ;

R code (references can be found in the software module):

library(psych)
par1b <- T
if(par1=='FALSE') par1b <- F
z <- t(y)
(r <- alpha(z,check.keys=par1b))
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Cronbach Alpha and Related Statistics',5,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Items',1,TRUE)
a<-table.element(a,'Cronbach Alpha',1,TRUE)
a<-table.element(a,'Std. Alpha',1,TRUE)
a<-table.element(a,'G6(smc)',1,TRUE)
a<-table.element(a,'Average R',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'All itmes',header=TRUE)
a<-table.element(a,round(r$total['raw_alpha'],4))
a<-table.element(a,round(r$total['std.alpha'],4))
a<-table.element(a,round(r$total['G6(smc)'],4))
a<-table.element(a,round(r$total['average_r'],4))
a<-table.row.end(a)
n = length(z[1,])
for (i in 1:n) {
a<-table.row.start(a)
a<-table.element(a,paste(colnames(z)[i],' excluded',sep=''),header=TRUE)
a<-table.element(a,round(r$alpha.drop[i,'raw_alpha'],4))
a<-table.element(a,round(r$alpha.drop[i,'std.alpha'],4))
a<-table.element(a,round(r$alpha.drop[i,'G6(smc)'],4))
a<-table.element(a,round(r$alpha.drop[i,'average_r'],4))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code