Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*Unverified author*

R Software Module

rwasp_cronbach.wasp

Title produced by software

Cronbach Alpha

Date of computation

Fri, 11 Aug 2023 02:29:13 +0200

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/2023/Aug/11/t1691713898my6u5forabdf5uy.htm/, Retrieved Sat, 29 Aug 2026 19:34:15 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=319931, Retrieved Sat, 29 Aug 2026 19:34:15 +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

342

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

-       [Cronbach Alpha] [] [2023-08-11 00:29:13] [d41d8cd98f00b204e9800998ecf8427e] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

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

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=319931&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=319931&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319931&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 items	0.8646	0.8671	1	0.1465
q1 excluded	0.8664	0.8721	1	0.1557
q2 excluded	0.8569	0.8576	1	0.14
q3 excluded	0.8606	0.8637	1	0.1463
q4 excluded	0.8558	0.8586	1	0.1409
q5 excluded	0.8645	0.8681	1	0.151
q6 excluded	0.8598	0.8618	1	0.1442
q7 excluded	0.8624	0.8658	1	0.1485
q8 excluded	0.8532	0.858	1	0.1404
q9 excluded	0.8634	0.8657	1	0.1484
q10 excluded	0.878	0.8727	1	0.1563
q11 excluded	0.8687	0.8696	1	0.1527
q12 excluded	0.8557	0.8593	1	0.1417
q13 excluded	0.8582	0.8622	1	0.1446
q14 excluded	0.8658	0.8679	1	0.1508
q15 excluded	0.864	0.8668	1	0.1495
q16 excluded	0.8651	0.868	1	0.1509
q17 excluded	0.8682	0.8716	1	0.155
q18 excluded	0.8644	0.8672	1	0.15
q19 excluded	0.8597	0.8622	1	0.1447
q20 excluded	0.8662	0.8685	1	0.1515
q21 excluded	0.848	0.8543	1	0.1368
q22 excluded	0.8676	0.8695	1	0.1526
q23 excluded	0.8567	0.8587	1	0.1411
q24 excluded	0.8606	0.8627	1	0.1452
q25 excluded	0.8682	0.8705	1	0.1538
q26 excluded	0.8626	0.8653	1	0.1479
q27 excluded	0.855	0.8572	1	0.1396
q28 excluded	0.8592	0.8606	1	0.143
q29 excluded	0.8539	0.8553	1	0.1377
q30 excluded	0.8635	0.8654	1	0.148
q31 excluded	0.8518	0.8542	1	0.1367
q32 excluded	0.8659	0.8714	1	0.1548
q33 excluded	0.8633	0.865	1	0.1476
q34 excluded	0.865	0.867	1	0.1498
q35 excluded	0.8609	0.8622	1	0.1447
q36 excluded	0.858	0.8575	1	0.1399
q37 excluded	0.8627	0.8661	1	0.1488
q38 excluded	0.847	0.8542	1	0.1367

\begin{tabular}{lllllllll}
\hline
Cronbach Alpha and Related Statistics \tabularnewline
Items & Cronbach Alpha & Std. Alpha & G6(smc) & Average R \tabularnewline
All items & 0.8646 & 0.8671 & 1 & 0.1465 \tabularnewline
q1 excluded & 0.8664 & 0.8721 & 1 & 0.1557 \tabularnewline
q2 excluded & 0.8569 & 0.8576 & 1 & 0.14 \tabularnewline
q3 excluded & 0.8606 & 0.8637 & 1 & 0.1463 \tabularnewline
q4 excluded & 0.8558 & 0.8586 & 1 & 0.1409 \tabularnewline
q5 excluded & 0.8645 & 0.8681 & 1 & 0.151 \tabularnewline
q6 excluded & 0.8598 & 0.8618 & 1 & 0.1442 \tabularnewline
q7 excluded & 0.8624 & 0.8658 & 1 & 0.1485 \tabularnewline
q8 excluded & 0.8532 & 0.858 & 1 & 0.1404 \tabularnewline
q9 excluded & 0.8634 & 0.8657 & 1 & 0.1484 \tabularnewline
q10 excluded & 0.878 & 0.8727 & 1 & 0.1563 \tabularnewline
q11 excluded & 0.8687 & 0.8696 & 1 & 0.1527 \tabularnewline
q12 excluded & 0.8557 & 0.8593 & 1 & 0.1417 \tabularnewline
q13 excluded & 0.8582 & 0.8622 & 1 & 0.1446 \tabularnewline
q14 excluded & 0.8658 & 0.8679 & 1 & 0.1508 \tabularnewline
q15 excluded & 0.864 & 0.8668 & 1 & 0.1495 \tabularnewline
q16 excluded & 0.8651 & 0.868 & 1 & 0.1509 \tabularnewline
q17 excluded & 0.8682 & 0.8716 & 1 & 0.155 \tabularnewline
q18 excluded & 0.8644 & 0.8672 & 1 & 0.15 \tabularnewline
q19 excluded & 0.8597 & 0.8622 & 1 & 0.1447 \tabularnewline
q20 excluded & 0.8662 & 0.8685 & 1 & 0.1515 \tabularnewline
q21 excluded & 0.848 & 0.8543 & 1 & 0.1368 \tabularnewline
q22 excluded & 0.8676 & 0.8695 & 1 & 0.1526 \tabularnewline
q23 excluded & 0.8567 & 0.8587 & 1 & 0.1411 \tabularnewline
q24 excluded & 0.8606 & 0.8627 & 1 & 0.1452 \tabularnewline
q25 excluded & 0.8682 & 0.8705 & 1 & 0.1538 \tabularnewline
q26 excluded & 0.8626 & 0.8653 & 1 & 0.1479 \tabularnewline
q27 excluded & 0.855 & 0.8572 & 1 & 0.1396 \tabularnewline
q28 excluded & 0.8592 & 0.8606 & 1 & 0.143 \tabularnewline
q29 excluded & 0.8539 & 0.8553 & 1 & 0.1377 \tabularnewline
q30 excluded & 0.8635 & 0.8654 & 1 & 0.148 \tabularnewline
q31 excluded & 0.8518 & 0.8542 & 1 & 0.1367 \tabularnewline
q32 excluded & 0.8659 & 0.8714 & 1 & 0.1548 \tabularnewline
q33 excluded & 0.8633 & 0.865 & 1 & 0.1476 \tabularnewline
q34 excluded & 0.865 & 0.867 & 1 & 0.1498 \tabularnewline
q35 excluded & 0.8609 & 0.8622 & 1 & 0.1447 \tabularnewline
q36 excluded & 0.858 & 0.8575 & 1 & 0.1399 \tabularnewline
q37 excluded & 0.8627 & 0.8661 & 1 & 0.1488 \tabularnewline
q38 excluded & 0.847 & 0.8542 & 1 & 0.1367 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=319931&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 items[/C][C]0.8646[/C][C]0.8671[/C][C]1[/C][C]0.1465[/C][/ROW]
[ROW][C]q1 excluded[/C][C]0.8664[/C][C]0.8721[/C][C]1[/C][C]0.1557[/C][/ROW]
[ROW][C]q2 excluded[/C][C]0.8569[/C][C]0.8576[/C][C]1[/C][C]0.14[/C][/ROW]
[ROW][C]q3 excluded[/C][C]0.8606[/C][C]0.8637[/C][C]1[/C][C]0.1463[/C][/ROW]
[ROW][C]q4 excluded[/C][C]0.8558[/C][C]0.8586[/C][C]1[/C][C]0.1409[/C][/ROW]
[ROW][C]q5 excluded[/C][C]0.8645[/C][C]0.8681[/C][C]1[/C][C]0.151[/C][/ROW]
[ROW][C]q6 excluded[/C][C]0.8598[/C][C]0.8618[/C][C]1[/C][C]0.1442[/C][/ROW]
[ROW][C]q7 excluded[/C][C]0.8624[/C][C]0.8658[/C][C]1[/C][C]0.1485[/C][/ROW]
[ROW][C]q8 excluded[/C][C]0.8532[/C][C]0.858[/C][C]1[/C][C]0.1404[/C][/ROW]
[ROW][C]q9 excluded[/C][C]0.8634[/C][C]0.8657[/C][C]1[/C][C]0.1484[/C][/ROW]
[ROW][C]q10 excluded[/C][C]0.878[/C][C]0.8727[/C][C]1[/C][C]0.1563[/C][/ROW]
[ROW][C]q11 excluded[/C][C]0.8687[/C][C]0.8696[/C][C]1[/C][C]0.1527[/C][/ROW]
[ROW][C]q12 excluded[/C][C]0.8557[/C][C]0.8593[/C][C]1[/C][C]0.1417[/C][/ROW]
[ROW][C]q13 excluded[/C][C]0.8582[/C][C]0.8622[/C][C]1[/C][C]0.1446[/C][/ROW]
[ROW][C]q14 excluded[/C][C]0.8658[/C][C]0.8679[/C][C]1[/C][C]0.1508[/C][/ROW]
[ROW][C]q15 excluded[/C][C]0.864[/C][C]0.8668[/C][C]1[/C][C]0.1495[/C][/ROW]
[ROW][C]q16 excluded[/C][C]0.8651[/C][C]0.868[/C][C]1[/C][C]0.1509[/C][/ROW]
[ROW][C]q17 excluded[/C][C]0.8682[/C][C]0.8716[/C][C]1[/C][C]0.155[/C][/ROW]
[ROW][C]q18 excluded[/C][C]0.8644[/C][C]0.8672[/C][C]1[/C][C]0.15[/C][/ROW]
[ROW][C]q19 excluded[/C][C]0.8597[/C][C]0.8622[/C][C]1[/C][C]0.1447[/C][/ROW]
[ROW][C]q20 excluded[/C][C]0.8662[/C][C]0.8685[/C][C]1[/C][C]0.1515[/C][/ROW]
[ROW][C]q21 excluded[/C][C]0.848[/C][C]0.8543[/C][C]1[/C][C]0.1368[/C][/ROW]
[ROW][C]q22 excluded[/C][C]0.8676[/C][C]0.8695[/C][C]1[/C][C]0.1526[/C][/ROW]
[ROW][C]q23 excluded[/C][C]0.8567[/C][C]0.8587[/C][C]1[/C][C]0.1411[/C][/ROW]
[ROW][C]q24 excluded[/C][C]0.8606[/C][C]0.8627[/C][C]1[/C][C]0.1452[/C][/ROW]
[ROW][C]q25 excluded[/C][C]0.8682[/C][C]0.8705[/C][C]1[/C][C]0.1538[/C][/ROW]
[ROW][C]q26 excluded[/C][C]0.8626[/C][C]0.8653[/C][C]1[/C][C]0.1479[/C][/ROW]
[ROW][C]q27 excluded[/C][C]0.855[/C][C]0.8572[/C][C]1[/C][C]0.1396[/C][/ROW]
[ROW][C]q28 excluded[/C][C]0.8592[/C][C]0.8606[/C][C]1[/C][C]0.143[/C][/ROW]
[ROW][C]q29 excluded[/C][C]0.8539[/C][C]0.8553[/C][C]1[/C][C]0.1377[/C][/ROW]
[ROW][C]q30 excluded[/C][C]0.8635[/C][C]0.8654[/C][C]1[/C][C]0.148[/C][/ROW]
[ROW][C]q31 excluded[/C][C]0.8518[/C][C]0.8542[/C][C]1[/C][C]0.1367[/C][/ROW]
[ROW][C]q32 excluded[/C][C]0.8659[/C][C]0.8714[/C][C]1[/C][C]0.1548[/C][/ROW]
[ROW][C]q33 excluded[/C][C]0.8633[/C][C]0.865[/C][C]1[/C][C]0.1476[/C][/ROW]
[ROW][C]q34 excluded[/C][C]0.865[/C][C]0.867[/C][C]1[/C][C]0.1498[/C][/ROW]
[ROW][C]q35 excluded[/C][C]0.8609[/C][C]0.8622[/C][C]1[/C][C]0.1447[/C][/ROW]
[ROW][C]q36 excluded[/C][C]0.858[/C][C]0.8575[/C][C]1[/C][C]0.1399[/C][/ROW]
[ROW][C]q37 excluded[/C][C]0.8627[/C][C]0.8661[/C][C]1[/C][C]0.1488[/C][/ROW]
[ROW][C]q38 excluded[/C][C]0.847[/C][C]0.8542[/C][C]1[/C][C]0.1367[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=319931&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319931&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 items	0.8646	0.8671	1	0.1465
q1 excluded	0.8664	0.8721	1	0.1557
q2 excluded	0.8569	0.8576	1	0.14
q3 excluded	0.8606	0.8637	1	0.1463
q4 excluded	0.8558	0.8586	1	0.1409
q5 excluded	0.8645	0.8681	1	0.151
q6 excluded	0.8598	0.8618	1	0.1442
q7 excluded	0.8624	0.8658	1	0.1485
q8 excluded	0.8532	0.858	1	0.1404
q9 excluded	0.8634	0.8657	1	0.1484
q10 excluded	0.878	0.8727	1	0.1563
q11 excluded	0.8687	0.8696	1	0.1527
q12 excluded	0.8557	0.8593	1	0.1417
q13 excluded	0.8582	0.8622	1	0.1446
q14 excluded	0.8658	0.8679	1	0.1508
q15 excluded	0.864	0.8668	1	0.1495
q16 excluded	0.8651	0.868	1	0.1509
q17 excluded	0.8682	0.8716	1	0.155
q18 excluded	0.8644	0.8672	1	0.15
q19 excluded	0.8597	0.8622	1	0.1447
q20 excluded	0.8662	0.8685	1	0.1515
q21 excluded	0.848	0.8543	1	0.1368
q22 excluded	0.8676	0.8695	1	0.1526
q23 excluded	0.8567	0.8587	1	0.1411
q24 excluded	0.8606	0.8627	1	0.1452
q25 excluded	0.8682	0.8705	1	0.1538
q26 excluded	0.8626	0.8653	1	0.1479
q27 excluded	0.855	0.8572	1	0.1396
q28 excluded	0.8592	0.8606	1	0.143
q29 excluded	0.8539	0.8553	1	0.1377
q30 excluded	0.8635	0.8654	1	0.148
q31 excluded	0.8518	0.8542	1	0.1367
q32 excluded	0.8659	0.8714	1	0.1548
q33 excluded	0.8633	0.865	1	0.1476
q34 excluded	0.865	0.867	1	0.1498
q35 excluded	0.8609	0.8622	1	0.1447
q36 excluded	0.858	0.8575	1	0.1399
q37 excluded	0.8627	0.8661	1	0.1488
q38 excluded	0.847	0.8542	1	0.1367

Parameters (Session):

par1 = VERDADERO ;

Parameters (R input):

par1 = VERDADERO ;

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

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