FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_cronbach.wasp
Title produced by softwareCronbach Alpha
Date of computationTue, 12 Dec 2017 15:45:34 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2017/Dec/12/t1513090043vygkrjqx1cwg5a0.htm/, Retrieved Wed, 15 May 2024 22:37:55 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=309118, Retrieved Wed, 15 May 2024 22:37:55 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact31

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Cronbach Alpha] [] [2017-12-12 14:45:34] [d303646f018933692b665a59d945002e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
17	7	7	10	14	22	3
19	8	8	11	21	39	3
18	8	10	11	20	40	4
17	10	10	13	20	34	4
17	8	5	7	20	38	4
19	9	7	12	18	39	5
19	8	8	11	18	39	4
12	10	9	12	17	38	4
15	7	8	12	15	31	3
16	10	8	12	18	34	3
16	8	8	11	16	32	4
14	8	10	12	17	37	4
15	6	10	10	19	36	4
16	7	8	12	21	38	4
14	9	10	10	15	29	3
18	9	9	15	21	33	3
15	8	7	12	16	35	4
18	8	8	15	18	34	4
19	10	10	13	18	45	5
15	7	4	12	17	30	4
17	7	9	12	18	33	4
9	7	5	9	16	30	4
18	6	4	12	15	40	4
17	9	9	8	15	34	5
15	7	6	10	19	31	4
13	8	8	11	14	27	3
17	10	10	14	19	33	4
14	9	9	14	19	42	5
15	8	8	11	15	36	4
14	8	7	11	17	33	4
17	10	10	11	21	42	5
14	8	6	10	13	33	4
13	4	9	8	12	21	1
19	6	5	12	15	43	5
15	7	4	10	19	34	4
14	7	8	12	19	32	3
11	3	2	8	14	34	3
16	8	10	10	18	28	3
13	8	5	9	11	30	3
15	6	8	12	17	27	3
17	10	8	15	18	29	2
15	8	8	13	13	40	4
12	4	7	11	12	29	2
15	8	10	12	17	41	5
15	7	10	12	20	33	4
8	6	7	9	16	42	4
16	9	10	14	22	39	5
12	10	10	10	16	35	3
13	9	8	14	23	33	3
16	7	7	12	20	33	3
16	10	8	15	23	44	4
8	7	6	9	13	34	4
14	10	10	14	18	30	4
15	9	9	10	18	30	3
16	7	9	11	17	35	4
16	10	7	11	17	39	5
17	8	8	12	18	34	3
18	8	6	11	21	39	4
9	6	7	10	13	25	3
19	9	9	13	19	39	4
14	7	7	8	16	33	4
14	8	7	9	17	34	4
15	8	7	9	18	36	4
19	9	10	15	18	34	3
12	5	4	8	12	31	4
17	9	10	13	19	35	4
16	6	3	10	16	34	4
17	8	8	13	20	36	4
15	10	10	15	21	40	5
11	7	8	10	18	31	3
8	5	6	9	13	33	4
16	4	6	12	17	28	4
20	9	10	12	20	42	4
20	10	10	12	21	38	5
13	8	7	12	19	35	4
11	6	8	10	15	34	4
15	6	7	9	14	28	3
15	9	9	12	15	35	4
14	3	2	12	16	25	1
16	7	10	12	19	39	4
15	9	10	8	17	25	3
15	7	7	11	17	32	3
16	8	8	10	15	35	3
19	9	8	15	19	41	5
20	9	10	13	21	34	3
14	8	8	11	19	33	3
16	9	8	12	18	32	4
14	6	7	11	18	34	4
11	7	8	11	15	25	3
16	8	8	14	19	38	4
16	7	10	14	19	37	4
15	9	9	14	18	38	4
16	9	9	12	20	36	5
12	5	4	10	18	39	4
13	6	5	12	12	31	3
11	8	10	11	15	40	5
20	10	9	15	17	34	4
11	5	6	9	15	33	5
14	8	8	11	17	32	4
16	8	8	14	20	33	4
15	10	9	10	11	32	5
13	7	8	12	14	28	4
15	9	4	10	14	32	5
13	8	5	12	12	34	4
17	8	10	13	19	36	5
18	10	10	13	22	38	4
14	9	9	12	16	31	4
13	9	9	12	15	36	5
12	6	6	9	15	27	3
17	8	7	10	18	31	3
6	5	4	7	12	28	2
9	3	6	12	17	30	4
15	6	4	12	10	29	3
15	6	4	12	10	29	3
17	10	10	13	18	31	3
19	9	6	12	16	35	4
20	9	9	15	22	42	4
10	5	7	8	12	28	2
9	6	4	7	10	38	4
15	7	8	9	20	34	4
16	8	8	11	20	28	3
16	9	8	11	19	30	3
9	3	7	6	10	26	3
10	5	6	6	13	27	2
9	5	5	8	15	31	3
17	9	5	11	19	35	4
17	10	7	12	17	33	4
19	7	4	13	15	34	4
10	8	8	9	12	30	2
12	6	7	10	14	28	3
9	5	6	9	13	30	3
11	8	8	10	15	29	4
17	7	5	12	20	32	3
9	5	3	7	12	34	4
14	6	5	13	16	34	4
19	10	10	10	15	35	5
17	10	7	10	17	40	4
13	6	4	11	15	34	4
11	4	2	8	12	28	2
14	8	6	12	17	35	4
7	5	3	4	11	31	3
17	7	8	13	16	33	4
16	10	9	13	16	36	4
12	8	5	10	15	30	4
10	7	6	12	17	27	3
10	2	2	6	7	30	2
8	7	6	8	14	25	3
18	9	10	13	21	39	4
15	8	8	12	20	36	4
18	5	10	10	15	31	3
14	8	8	10	13	33	4
16	6	8	10	20	30	3
11	7	6	8	15	31	4
16	10	9	11	16	32	5
17	8	9	12	19	33	3
20	10	9	12	16	43	5
14	9	8	12	19	35	4
16	8	8	11	17	36	4
17	10	10	12	19	42	4
11	4	3	10	14	31	3
13	6	6	12	16	26	3
11	9	9	13	16	38	3
8	4	3	10	14	27	4
9	6	4	7	11	27	2
9	7	5	11	17	31	3
12	9	9	10	20	32	3
15	8	8	12	20	36	4
18	6	5	11	17	36	3
10	4	4	10	13	25	3
15	8	5	12	20	33	4
16	8	7	11	17	32	3
18	9	7	14	16	40	4
15	6	8	12	19	36	4
17	5	8	12	20	36	3
17	5	6	10	17	35	3
14	8	7	11	14	31	4
17	8	9	12	20	31	4
13	9	9	12	19	36	4
16	7	6	12	18	36	4
12	9	9	8	17	37	5
17	8	9	11	17	31	4
10	6	8	8	10	31	3
9	7	6	6	12	26	3
15	8	6	13	19	35	4
14	8	10	11	19	32	4
16	7	8	9	21	36	4
17	7	10	11	21	37	4
18	8	8	14	17	34	5
14	8	7	9	19	33	3
17	9	7	13	21	35	4
14	9	8	12	15	31	4
15	9	8	12	14	38	3
14	8	7	11	15	36	4
10	2	2	9	13	32	3
9	8	5	7	14	28	3
12	8	7	10	14	33	4
13	8	5	12	19	31	4
14	7	5	11	17	34	3
18	10	10	11	19	33	4
15	8	8	11	18	36	4
14	10	7	13	21	36	4
10	5	6	11	12	29	3
9	4	6	8	15	31	2
17	10	5	11	19	35	5
12	8	7	10	16	31	3
16	7	8	12	19	35	4
11	5	7	8	16	36	4
13	7	8	13	18	35	4
12	9	9	10	18	38	4
15	8	5	11	15	28	4
15	8	5	11	15	28	4
10	2	5	8	11	28	1
16	9	10	13	18	34	4
11	8	5	12	13	31	4
14	5	5	9	9	44	5
17	7	8	15	21	36	3
16	8	10	12	19	36	4
16	7	7	14	13	34	4
11	5	2	7	15	32	3
16	10	6	11	18	36	4
13	6	3	10	16	38	4
7	6	6	7	10	28	4
13	5	4	11	12	37	4
14	7	4	11	18	32	4
14	8	8	10	17	36	4
9	8	7	9	15	30	3
15	4	5	11	16	38	3
16	9	9	12	19	37	4
11	4	5	10	15	33	3
20	10	6	13	24	43	5
14	6	5	10	15	26	3
9	6	2	10	14	33	3
16	8	8	12	16	34	4
13	8	7	12	16	36	4
15	8	9	12	20	36	4
15	8	9	12	20	36	4
15	8	9	12	20	36	4
15	8	10	12	20	39	4
14	7	6	7	14	33	3
15	7	9	14	22	35	4
13	8	9	9	16	25	3
12	10	6	8	9	26	2
17	10	10	13	14	35	5
8	3	5	6	11	16	2
17	8	9	12	23	40	4
10	2	4	8	10	14	2
9	4	2	6	10	22	2
9	4	3	6	8	21	2
15	9	9	12	21	38	4
14	10	10	10	18	38	4
12	6	6	9	15	27	3
16	10	9	11	20	40	4
19	10	8	14	17	40	5
6	3	2	6	5	19	1
11	9	6	9	14	29	4
16	9	9	11	19	37	5
12	6	6	9	15	27	3
12	5	4	8	12	26	2
8	4	3	6	10	24	2
11	4	3	10	11	29	3
8	6	4	6	15	26	3
12	6	6	9	15	27	3
16	8	8	12	20	35	4
18	8	6	12	20	39	4
16	5	7	13	20	38	3
15	7	8	12	19	36	4
20	6	3	12	16	37	3
10	10	10	10	21	36	4
15	8	8	9	22	32	4
14	8	6	12	17	33	4
14	9	10	14	21	39	5
8	5	8	6	19	34	3
19	10	10	13	23	39	4
17	8	7	12	21	36	4
18	9	10	13	22	33	4
10	8	6	6	11	30	3
15	7	7	12	20	39	3
16	10	9	10	18	37	4
12	10	6	9	16	37	5
13	9	7	12	18	35	4
10	4	6	7	13	32	4
14	4	4	10	17	36	3
15	8	6	11	20	36	4
20	9	8	15	20	41	5
9	10	9	10	15	36	3
12	8	8	12	18	37	3
13	5	6	10	15	29	3
16	10	6	12	19	39	4
12	8	10	11	19	37	4
14	7	8	11	19	32	3
15	8	8	12	20	36	4
19	8	7	15	20	43	5
16	9	4	12	16	30	5
16	8	9	11	18	33	4
14	6	8	9	17	28	4
14	8	10	11	18	30	4
14	8	8	11	13	28	2
13	5	6	9	20	39	4
18	9	7	15	21	34	5
15	8	8	12	17	34	4
15	8	5	9	19	29	4
15	8	10	12	20	32	3
13	6	2	12	15	33	2
14	6	6	9	15	27	3
15	9	7	9	19	35	4
14	8	5	11	18	38	4
19	9	8	12	22	40	4
16	10	7	12	20	34	4
16	8	7	12	18	34	4
12	8	10	12	14	26	3
10	7	7	6	15	39	4
11	7	6	11	17	34	2
13	10	10	12	16	39	5
14	8	6	9	17	26	3
11	7	5	11	15	30	2
11	10	8	9	17	34	4
16	7	8	10	18	34	3
9	7	5	10	16	29	5
16	9	8	9	18	41	4
19	9	10	12	22	43	4
13	8	7	11	16	31	4
15	6	7	9	16	33	3
14	8	7	9	20	34	4
15	9	7	12	18	30	2
11	2	2	6	16	23	3
14	6	4	10	16	29	2
15	8	6	12	20	35	4
17	8	7	11	21	40	4
16	7	9	14	18	27	2
13	8	9	8	15	30	3
15	6	4	9	18	27	3
14	10	9	10	18	29	3
15	10	9	10	20	33	4
14	10	8	10	18	32	3
12	8	7	11	16	33	4
12	8	9	10	19	36	3
15	7	7	12	20	34	4
17	10	6	14	22	45	5
13	5	7	10	18	30	3
5	3	2	8	8	22	4
7	2	3	8	13	24	1
10	3	4	7	13	25	2
15	4	5	11	18	26	4
9	2	2	6	12	27	3
9	6	6	9	16	27	3
15	8	8	12	21	35	3
14	8	5	12	20	36	4
11	5	4	12	18	32	3
18	10	10	9	22	35	4
20	9	10	15	23	35	5
20	8	10	15	23	36	5
16	9	9	13	21	37	4
15	8	5	9	16	33	3
14	5	5	12	14	25	3
13	7	7	9	18	35	4
18	9	10	15	22	37	4
14	8	9	11	20	36	3
12	4	8	11	18	35	4
9	7	8	6	12	29	4
19	8	8	14	17	35	4
13	7	8	11	15	31	3
12	7	8	8	18	30	4
14	9	7	10	18	37	4
6	6	6	10	15	36	4
14	7	8	9	16	35	4
11	4	2	8	15	32	2
11	6	5	9	16	34	4
14	10	4	10	19	37	5
12	9	9	11	19	36	5
19	10	10	14	23	39	5
13	8	6	12	20	37	4
14	4	4	9	18	31	3
17	8	10	13	21	40	5
12	5	6	8	19	38	3
16	8	7	12	18	35	4
15	9	7	14	19	38	4
15	8	8	9	17	32	4
15	4	6	10	21	41	5
16	8	5	12	19	28	4
15	10	6	12	24	40	5
12	6	7	9	12	25	3
13	7	6	9	15	28	3
14	10	9	12	18	37	4
17	9	9	15	19	37	4
14	8	7	12	22	40	4
14	3	6	11	19	26	2
14	8	7	8	16	30	3
15	7	7	11	19	32	4
11	7	8	11	18	31	4
11	8	7	10	18	28	3
16	8	8	12	19	34	4
12	7	7	9	21	39	4
12	7	4	11	19	33	4
19	9	10	15	22	43	5
18	9	8	14	23	37	4
16	9	8	6	17	31	3
16	4	2	9	18	31	4
13	6	6	9	19	34	4
11	6	4	8	15	32	3
10	6	4	7	14	27	3
14	8	9	10	18	34	5
14	3	2	6	17	28	2
14	8	6	9	19	32	3
16	8	7	9	16	39	4
10	6	4	7	14	28	3
16	10	10	11	20	39	4
7	2	3	9	16	32	2
16	9	7	12	18	36	4
15	6	4	9	16	31	3
17	6	8	10	21	39	5
11	5	4	11	16	23	3
11	4	5	7	14	25	2
10	7	6	12	16	32	3
13	5	5	8	19	32	4
14	8	9	13	19	36	3
13	6	6	11	19	39	4
13	9	8	11	18	31	2
12	6	4	12	16	32	4
10	4	4	11	14	28	4
15	7	8	12	19	34	4
6	2	4	3	11	28	2
15	8	10	10	18	38	4
15	9	8	13	18	35	4
11	6	5	10	16	32	4
14	5	3	6	20	26	3
14	7	7	11	18	32	3
16	8	6	12	20	28	3
12	4	5	9	16	31	3
15	9	5	10	18	33	3
20	9	9	15	19	38	5
12	9	2	9	19	38	4
9	7	7	6	15	36	4
13	5	7	9	17	31	2
15	7	5	15	21	36	4
19	9	9	15	24	43	4
11	8	4	9	16	37	3
11	6	5	11	13	28	3
17	9	9	9	21	35	4
15	8	7	11	16	34	4
14	7	6	10	17	40	3
15	7	8	9	17	31	4
11	7	7	6	18	41	4
12	8	6	12	18	35	4
15	10	8	13	23	38	4
16	6	6	12	20	37	4
16	6	7	12	20	31	3

Tables (Output of Computation)





Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig 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=309118&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=309118&T=0

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

As an alternative you can also use a QR Code:  
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 Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center






Cronbach Alpha and Related Statistics
ItemsCronbach AlphaStd. AlphaG6(smc)Average R
All itmes0.83650.88070.88060.5133
V1 excluded0.79340.85760.85190.501
V2 excluded0.81020.85840.85060.5025
V3 excluded0.8170.87020.86230.5278
V4 excluded0.80660.86280.85860.5117
V5 excluded0.7930.86010.85690.5062
V6 excluded0.84060.86310.85360.5124
V7 excluded0.83790.8720.86240.5318

\begin{tabular}{lllllllll}
\hline
Cronbach Alpha and Related Statistics \tabularnewline
Items & Cronbach Alpha & Std. Alpha & G6(smc) & Average R \tabularnewline
All itmes & 0.8365 & 0.8807 & 0.8806 & 0.5133 \tabularnewline
V1 excluded & 0.7934 & 0.8576 & 0.8519 & 0.501 \tabularnewline
V2 excluded & 0.8102 & 0.8584 & 0.8506 & 0.5025 \tabularnewline
V3 excluded & 0.817 & 0.8702 & 0.8623 & 0.5278 \tabularnewline
V4 excluded & 0.8066 & 0.8628 & 0.8586 & 0.5117 \tabularnewline
V5 excluded & 0.793 & 0.8601 & 0.8569 & 0.5062 \tabularnewline
V6 excluded & 0.8406 & 0.8631 & 0.8536 & 0.5124 \tabularnewline
V7 excluded & 0.8379 & 0.872 & 0.8624 & 0.5318 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=309118&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.8365[/C][C]0.8807[/C][C]0.8806[/C][C]0.5133[/C][/ROW]
[ROW][C]V1 excluded[/C][C]0.7934[/C][C]0.8576[/C][C]0.8519[/C][C]0.501[/C][/ROW]
[ROW][C]V2 excluded[/C][C]0.8102[/C][C]0.8584[/C][C]0.8506[/C][C]0.5025[/C][/ROW]
[ROW][C]V3 excluded[/C][C]0.817[/C][C]0.8702[/C][C]0.8623[/C][C]0.5278[/C][/ROW]
[ROW][C]V4 excluded[/C][C]0.8066[/C][C]0.8628[/C][C]0.8586[/C][C]0.5117[/C][/ROW]
[ROW][C]V5 excluded[/C][C]0.793[/C][C]0.8601[/C][C]0.8569[/C][C]0.5062[/C][/ROW]
[ROW][C]V6 excluded[/C][C]0.8406[/C][C]0.8631[/C][C]0.8536[/C][C]0.5124[/C][/ROW]
[ROW][C]V7 excluded[/C][C]0.8379[/C][C]0.872[/C][C]0.8624[/C][C]0.5318[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=309118&T=1

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

As an alternative you can also use a QR Code:  
QR Code


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

Cronbach Alpha and Related Statistics
ItemsCronbach AlphaStd. AlphaG6(smc)Average R
All itmes0.83650.88070.88060.5133
V1 excluded0.79340.85760.85190.501
V2 excluded0.81020.85840.85060.5025
V3 excluded0.8170.87020.86230.5278
V4 excluded0.80660.86280.85860.5117
V5 excluded0.7930.86010.85690.5062
V6 excluded0.84060.86310.85360.5124
V7 excluded0.83790.8720.86240.5318


Figures (Output of Computation)

Input Parameters & R Code

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')