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 computationMon, 15 Dec 2014 11:35:15 +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/15/t1418643330v6py3y2aoq0zy8n.htm/, Retrieved Sun, 19 May 2024 16:36:20 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=268137, Retrieved Sun, 19 May 2024 16:36:20 +0000
QR Codes:

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

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] [Q4] [2014-12-15 11:35:15] [6fc1b517ba5ef695988bbc0a377c4b82] [Current]
Feedback Forum

Post a new message

Dataset

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

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'Sir Maurice George Kendall' @ kendall.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 & 'Sir Maurice George Kendall' @ kendall.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=268137&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]'Sir Maurice George Kendall' @ kendall.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=268137&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=268137&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'Sir Maurice George Kendall' @ kendall.wessa.net






Cronbach Alpha and Related Statistics
ItemsCronbach AlphaStd. AlphaG6(smc)Average R
All itmes0.620.62930.53320.3613
AMS.E1 excluded0.53230.53670.36680.3668
AMS.E2 excluded0.56910.5730.40160.4016
AMS.E3 excluded0.46490.47990.31570.3157

\begin{tabular}{lllllllll}
\hline
Cronbach Alpha and Related Statistics \tabularnewline
Items & Cronbach Alpha & Std. Alpha & G6(smc) & Average R \tabularnewline
All itmes & 0.62 & 0.6293 & 0.5332 & 0.3613 \tabularnewline
AMS.E1 excluded & 0.5323 & 0.5367 & 0.3668 & 0.3668 \tabularnewline
AMS.E2 excluded & 0.5691 & 0.573 & 0.4016 & 0.4016 \tabularnewline
AMS.E3 excluded & 0.4649 & 0.4799 & 0.3157 & 0.3157 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=268137&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.62[/C][C]0.6293[/C][C]0.5332[/C][C]0.3613[/C][/ROW]
[ROW][C]AMS.E1 excluded[/C][C]0.5323[/C][C]0.5367[/C][C]0.3668[/C][C]0.3668[/C][/ROW]
[ROW][C]AMS.E2 excluded[/C][C]0.5691[/C][C]0.573[/C][C]0.4016[/C][C]0.4016[/C][/ROW]
[ROW][C]AMS.E3 excluded[/C][C]0.4649[/C][C]0.4799[/C][C]0.3157[/C][C]0.3157[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=268137&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=268137&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.620.62930.53320.3613
AMS.E1 excluded0.53230.53670.36680.3668
AMS.E2 excluded0.56910.5730.40160.4016
AMS.E3 excluded0.46490.47990.31570.3157


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)
z <- t(y)
(r <- alpha(z))
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')