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:14:11 +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/t1418642256z0fvwdqt7zqpxwa.htm/, Retrieved Thu, 16 May 2024 22:28:41 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=268116, Retrieved Thu, 16 May 2024 22:28:41 +0000
QR Codes:

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

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:42:57] [b98453cac15ba1066b407e146608df68]
- RMPD    [Cronbach Alpha] [Q1] [2014-12-15 11:14:11] [6fc1b517ba5ef695988bbc0a377c4b82] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
19	7	10
19	15	10
24	21	13
18	13	13
20	8	10
24	16	12
16	13	14
11	8	7
21	10	12
19	16	12
17	14	10
20	18	12
6	4	4
16	12	9
20	20	20
23	22	19
25	15	15
23	20	16
16	16	12
13	9	7
26	21	19
27	16	12
24	11	8
25	23	12
20	16	12
19	16	18
23	17	18
19	17	11
17	24	10
22	20	16
21	19	13
23	20	16
21	17	13
20	18	14
24	17	8
21	18	17
16	16	10
22	21	17
20	19	14
22	19	14
20	15	16
17	14	8
23	22	21
21	22	13
18	17	11
16	14	7
19	19	13
21	16	16
20	15	14
11	7	7
21	24	18
24	23	17
20	20	6
23	20	16
22	19	13
19	16	16
20	20	16
18	18	15
22	19	15
22	18	20
19	18	14
25	17	22
21	8	14
20	20	20
20	20	16
20	20	18
25	16	11
25	21	18
23	21	19
22	21	15
20	19	12
22	21	17
15	19	15
20	19	15
18	11	12
21	19	16
22	20	17
25	22	8
15	18	18
4	11	7
19	21	9
22	23	17
20	20	19
21	15	15
21	18	11
11	14	6
13	11	10
20	14	11
21	14	16
20	18	13
19	16	15
22	19	19
18	18	11
19	20	14
13	13	8
15	18	7
22	20	17
19	16	17
19	12	9
26	24	19
20	18	14
19	20	10
22	19	17
21	19	14
21	20	17
21	20	9
16	17	15
22	19	21
19	22	14
20	21	11
24	15	8
20	19	13
23	22	19
24	22	22
23	20	15
16	21	9
11	16	5
22	23	18
20	20	17
19	21	5
19	21	21
10	14	6
16	18	7
15	20	9
19	21	10
18	19	16
23	22	18
24	23	17
22	18	15
16	20	8
19	18	16
13	18	11
16	18	13
19	14	13
20	20	16
22	21	21
23	19	15
22	22	22
22	21	12
21	17	17
24	22	16
21	15	10
22	20	14
25	25	18
8	15	6
16	19	16
20	23	8
15	17	7
16	18	11
26	24	19
22	23	21
19	15	11
22	24	13
24	25	11
20	10	11
20	20	13
14	27	5
24	26	16
22	18	13
17	24	17
18	21	12
23	19	16
24	22	12
23	19	12
22	23	22
23	20	13
27	21	16
19	21	16
19	21	16
22	20	20
20	13	12
20	18	16
20	18	9
22	24	19
21	22	16
25	23	17
15	16	10
23	19	14
21	20	17
13	11	11
23	20	19
23	19	12
13	20	8
20	18	14
21	18	13
22	18	18
25	22	11
22	18	14
20	21	12
21	20	12
18	14	5
22	22	11
22	22	11
18	20	15
27	24	17
27	26	21
22	25	16
24	21	16
27	24	6
27	26	18
25	21	17
23	20	18
25	22	20
20	21	23
19	18	11
22	20	18
27	21	28
19	25	22
26	24	16
22	27	4
26	23	20
19	18	10
17	21	17
23	26	17
24	18	18
19	18	13
24	28	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'Herman Ole Andreas Wold' @ wold.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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=268116&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=268116&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=268116&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'Herman Ole Andreas Wold' @ wold.wessa.net






Cronbach Alpha and Related Statistics
ItemsCronbach AlphaStd. AlphaG6(smc)Average R
All itmes0.75310.75640.6780.5086
AMS.I1 excluded0.61740.61920.44840.4484
AMS.I2 excluded0.69990.70440.54370.5437
AMS.I3 excluded0.69520.69580.53360.5336

\begin{tabular}{lllllllll}
\hline
Cronbach Alpha and Related Statistics \tabularnewline
Items & Cronbach Alpha & Std. Alpha & G6(smc) & Average R \tabularnewline
All itmes & 0.7531 & 0.7564 & 0.678 & 0.5086 \tabularnewline
AMS.I1 excluded & 0.6174 & 0.6192 & 0.4484 & 0.4484 \tabularnewline
AMS.I2 excluded & 0.6999 & 0.7044 & 0.5437 & 0.5437 \tabularnewline
AMS.I3 excluded & 0.6952 & 0.6958 & 0.5336 & 0.5336 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=268116&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.7531[/C][C]0.7564[/C][C]0.678[/C][C]0.5086[/C][/ROW]
[ROW][C]AMS.I1 excluded[/C][C]0.6174[/C][C]0.6192[/C][C]0.4484[/C][C]0.4484[/C][/ROW]
[ROW][C]AMS.I2 excluded[/C][C]0.6999[/C][C]0.7044[/C][C]0.5437[/C][C]0.5437[/C][/ROW]
[ROW][C]AMS.I3 excluded[/C][C]0.6952[/C][C]0.6958[/C][C]0.5336[/C][C]0.5336[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=268116&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=268116&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.75310.75640.6780.5086
AMS.I1 excluded0.61740.61920.44840.4484
AMS.I2 excluded0.69990.70440.54370.5437
AMS.I3 excluded0.69520.69580.53360.5336


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