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, 09 Dec 2014 09:02:30 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Dec/09/t1418115788sxq2z9ottte7afe.htm/, Retrieved Thu, 16 May 2024 21:59:44 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=264329, Retrieved Thu, 16 May 2024 21:59:44 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Cronbach Alpha] [Intrinsic Motivat...] [2010-10-12 11:40:37] [b98453cac15ba1066b407e146608df68]
- RMPD  [Cronbach Alpha] [] [2014-12-02 10:17:22] [dacad244957cb51472792888970d4390]
- R  D      [Cronbach Alpha] [] [2014-12-09 09:02:30] [a4daf178ee9972867aacc2039fa7f163] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
18 20 12
23 19 20
22 18 14
22 24 25
19 20 15
25 20 20
28 24 21
16 21 15
28 28 28
21 10 11
22 22 22
24 19 22
24 27 27
26 23 24
28 24 23
24 24 24
20 25 21
26 24 20
21 21 19
28 28 25
27 28 16
23 22 24
24 26 21
24 26 22
22 21 25
21 26 23
25 23 20
20 20 21
21 24 22
26 25 25
23 24 23
21 20 19
27 24 21
25 25 19
23 23 25
25 21 16
23 23 24
19 21 24
22 18 18
24 24 28
19 18 15
21 21 17
27 23 18
25 25 26
25 22 18
23 22 22
17 23 19
28 24 17
25 25 26
20 22 21
25 24 26
21 21 21
24 24 12
28 25 20
20 23 20
19 27 24
24 27 24
21 23 22
24 18 21
23 20 20
18 23 23
27 24 19
25 26 24
20 20 21
21 23 16
23 22 17
27 23 23
24 17 20
27 20 19
24 22 18
23 18 18
24 19 21
21 19 20
23 16 17
27 26 25
24 14 15
25 25 17
19 23 17
24 18 24
25 22 21
23 26 22
23 25 18
25 26 22
26 26 20
26 24 21
16 22 21
23 21 20
26 22 18
25 28 25
23 22 23
26 26 21
22 20 20
20 24 21
27 21 20
20 23 22
22 23 15
24 23 24
21 22 22
24 23 21
26 21 17
24 27 23
24 23 22
27 26 23
25 27 16
27 27 18
19 23 25
22 23 18
22 23 14
25 28 20
23 24 19
24 20 18
24 23 22
23 22 21
22 15 14
24 27 5
19 23 25
25 23 21
26 20 11
18 18 20
24 22 9
28 20 15
23 21 23
19 25 21
19 19 9
27 25 24
24 24 16
26 22 20
21 28 15
25 22 18
28 21 22
19 23 21
20 19 21
26 21 21
27 25 20
23 23 24
18 28 15
23 14 24
21 23 18
23 24 24
22 25 24
21 15 15
14 23 19
24 26 20
26 21 26
24 26 26
22 23 23
20 15 13
20 16 16
18 20 22
18 20 21
25 21 11
28 28 23
23 19 18
20 21 19
22 22 15
27 27 8
24 20 15
23 17 21
20 26 25
22 21 14
21 24 21
24 21 18
26 25 18
24 22 12
18 17 24
17 14 17
23 23 20
21 28 24
21 24 22
24 22 15
22 24 22
24 25 26
24 21 17
24 22 23
23 16 19
21 18 21
24 27 23
19 17 19
19 25 18
23 24 16
25 21 23
24 21 13
21 19 18
18 27 23
23 28 21
20 19 23
23 23 16
23 25 17
23 26 20
23 25 18
27 25 20
19 24 19
25 24 26
25 24 9
21 22 23
25 21 9
17 17 13
22 23 27
23 17 22
27 25 12
27 19 18
5 8 6
19 14 17
24 22 22
23 25 22
28 28 23
25 25 19
27 24 20
16 15 17
25 24 24
26 28 20
24 24 18
23 25 23
24 23 27
27 26 25
25 26 24
19 22 12
19 25 16
24 22 24
20 26 23
21 20 24
28 26 24
26 26 26
19 21 19
23 21 28
23 24 23
21 21 21
26 18 19
25 23 23
25 26 23
24 23 20
23 25 18
22 20 20
27 25 28
26 26 21
23 19 25
22 21 18
26 23 24
22 24 28
17 6 9
25 22 22
22 21 26
28 28 28
22 24 18
21 14 23
24 20 15
26 28 24
26 19 12
24 24 12
27 21 20
22 21 25
23 26 24
22 24 23
23 26 18
15 25 20
20 23 22
22 24 20
25 24 25
27 26 28
24 23 25
21 20 14
17 16 16
26 24 24
20 20 13
22 23 19
24 23 18
23 18 16
22 21 8
28 25 27
21 23 23
24 26 20
28 26 20
25 24 26
24 23 23
24 21 24
21 23 21
20 20 15
26 23 22
16 24 25

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=264329&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=264329&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264329&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net






Cronbach Alpha and Related Statistics
ItemsCronbach AlphaStd. AlphaG6(smc)Average R
All itmes0.58510.60190.51590.3351
AMS.E1 excluded0.52670.53720.36720.3672
AMS.E3 excluded0.34330.36060.21990.2199
AMS.E2 excluded0.58680.58960.4180.418

\begin{tabular}{lllllllll}
\hline
Cronbach Alpha and Related Statistics \tabularnewline
Items & Cronbach Alpha & Std. Alpha & G6(smc) & Average R \tabularnewline
All itmes & 0.5851 & 0.6019 & 0.5159 & 0.3351 \tabularnewline
AMS.E1 excluded & 0.5267 & 0.5372 & 0.3672 & 0.3672 \tabularnewline
AMS.E3 excluded & 0.3433 & 0.3606 & 0.2199 & 0.2199 \tabularnewline
AMS.E2 excluded & 0.5868 & 0.5896 & 0.418 & 0.418 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=264329&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.5851[/C][C]0.6019[/C][C]0.5159[/C][C]0.3351[/C][/ROW]
[ROW][C]AMS.E1 excluded[/C][C]0.5267[/C][C]0.5372[/C][C]0.3672[/C][C]0.3672[/C][/ROW]
[ROW][C]AMS.E3 excluded[/C][C]0.3433[/C][C]0.3606[/C][C]0.2199[/C][C]0.2199[/C][/ROW]
[ROW][C]AMS.E2 excluded[/C][C]0.5868[/C][C]0.5896[/C][C]0.418[/C][C]0.418[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=264329&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264329&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.58510.60190.51590.3351
AMS.E1 excluded0.52670.53720.36720.3672
AMS.E3 excluded0.34330.36060.21990.2199
AMS.E2 excluded0.58680.58960.4180.418


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