Free Statistics

of Irreproducible Research!

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, 02 Dec 2014 10:17:22 +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/02/t1417515454f1gmdoej4r0rbe3.htm/, Retrieved Thu, 31 Oct 2024 23:09:55 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=262459, Retrieved Thu, 31 Oct 2024 23:09:55 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact165
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] [a4daf178ee9972867aacc2039fa7f163] [Current]
- R  D      [Cronbach Alpha] [] [2014-12-09 09:02:30] [dacad244957cb51472792888970d4390]
- R  D      [Cronbach Alpha] [] [2014-12-09 09:08:39] [dacad244957cb51472792888970d4390]
- R  D      [Cronbach Alpha] [] [2014-12-09 09:14:27] [dacad244957cb51472792888970d4390]
- R  D      [Cronbach Alpha] [] [2014-12-09 09:18:10] [dacad244957cb51472792888970d4390]
- R  D      [Cronbach Alpha] [] [2014-12-09 09:19:05] [dacad244957cb51472792888970d4390]
Feedback Forum

Post a new message
Dataseries X:
11 8 7
19 18 20
16 12 9
24 24 19
15 16 12
17 19 16
19 16 17
19 15 9
28 28 28
26 21 20
15 18 16
26 22 22
16 19 17
24 22 12
25 25 18
22 20 20
15 16 12
21 19 16
22 18 16
27 26 21
26 24 15
26 20 17
22 19 17
21 19 17
22 23 18
20 18 15
21 16 20
20 18 13
22 21 21
21 20 12
8 15 6
22 19 13
20 19 19
24 7 12
17 20 14
20 20 13
23 19 12
20 19 17
22 20 19
19 18 10
15 14 10
20 17 11
22 17 11
17 8 10
14 9 7
24 22 22
17 20 12
23 20 18
25 22 20
16 22 9
18 22 16
20 16 14
18 14 11
23 24 20
24 21 17
23 20 14
13 20 8
20 18 16
20 14 11
19 19 10
22 24 15
22 19 15
15 16 10
17 16 10
19 16 18
20 14 10
22 22 22
21 21 16
21 15 10
16 14 7
20 15 16
21 14 16
20 20 16
23 21 22
18 14 5
22 19 18
16 16 10
17 13 8
24 26 16
13 13 8
19 18 16
20 15 14
22 18 15
19 21 9
21 17 21
15 18 7
21 20 17
24 18 18
22 25 16
20 20 16
21 19 14
19 18 15
14 12 8
25 22 22
11 16 5
17 18 13
22 23 22
20 20 18
22 20 15
15 16 11
23 22 19
20 19 19
22 23 21
16 6 4
25 19 17
18 24 10
19 19 13
25 15 15
21 18 11
22 18 20
21 22 13
22 23 18
23 18 20
20 17 15
6 6 4
15 22 9
18 20 18
24 16 12
22 16 17
21 17 12
23 20 16
20 23 17
20 18 14
18 13 13
25 22 20
16 20 16
20 20 15
14 13 10
22 16 16
26 25 21
20 16 15
17 15 16
22 19 19
22 19 9
20 24 19
17 9 7
22 22 23
17 15 14
22 22 10
21 22 16
25 24 12
11 12 10
19 21 7
24 25 20
17 26 9
22 21 12
17 14 10
26 28 19
20 21 11
19 16 15
21 16 14
24 25 11
21 21 14
19 22 15
13 9 7
24 20 22
28 19 19
27 24 22
22 22 11
23 22 19
19 12 9
18 17 11
23 18 17
21 10 12
22 22 17
17 24 10
15 18 17
21 18 13
20 23 11
26 21 19
19 21 21
28 28 24
21 17 13
19 21 16
22 21 13
21 20 15
20 18 15
19 17 11
11 7 7
17 17 13
19 14 13
20 18 12
17 14 8
21 23 7
21 20 17
12 14 9
23 17 18
22 21 17
22 23 17
21 24 18
20 21 12
18 14 14
21 24 22
24 16 19
22 21 21
20 8 10
17 17 16
19 18 11
16 17 15
19 16 12
23 22 21
8 17 22
22 21 20
23 20 15
15 20 9
17 19 15
21 8 14
25 19 11
18 11 9
20 13 12
21 18 11
21 19 14
24 23 10
22 20 18
22 22 11
23 19 14
17 16 16
15 11 11
22 21 16
19 14 13
18 21 12
21 20 17
20 21 23
19 20 14
19 19 10
16 19 16
18 18 11
23 20 16
22 21 19
23 22 17
20 19 12
24 23 17
25 16 11
25 23 19
20 18 12
23 23 8
21 20 17
23 20 13
23 23 17
11 13 7
21 21 23
27 26 18
19 18 13
21 19 17
16 18 13
21 18 8
22 19 16
16 13 14
18 10 13
23 21 19
24 24 15
20 21 15
20 23 8
18 18 14
4 11 7
14 16 11
22 20 17
17 20 19
23 26 17
20 21 12
18 12 12
19 15 18
20 18 16
15 14 15
24 18 20
21 16 16
19 19 12
19 7 10
27 21 28
23 24 19
23 21 18
20 20 19
17 22 8
21 17 17
23 19 16
22 20 18
16 16 12
20 20 17
16 16 13




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Gwilym Jenkins' @ jenkins.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 & 0 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=262459&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]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=262459&T=0

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







Cronbach Alpha and Related Statistics
ItemsCronbach AlphaStd. AlphaG6(smc)Average R
All itmes0.79140.79530.72360.5643
AMSI1 excluded0.68370.68460.52040.5204
AMSI2 excluded0.73850.7450.59370.5937
AMSI3 excluded0.73050.73310.57870.5787

\begin{tabular}{lllllllll}
\hline
Cronbach Alpha and Related Statistics \tabularnewline
Items & Cronbach Alpha & Std. Alpha & G6(smc) & Average R \tabularnewline
All itmes & 0.7914 & 0.7953 & 0.7236 & 0.5643 \tabularnewline
AMSI1 excluded & 0.6837 & 0.6846 & 0.5204 & 0.5204 \tabularnewline
AMSI2 excluded & 0.7385 & 0.745 & 0.5937 & 0.5937 \tabularnewline
AMSI3 excluded & 0.7305 & 0.7331 & 0.5787 & 0.5787 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=262459&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.7914[/C][C]0.7953[/C][C]0.7236[/C][C]0.5643[/C][/ROW]
[ROW][C]AMSI1 excluded[/C][C]0.6837[/C][C]0.6846[/C][C]0.5204[/C][C]0.5204[/C][/ROW]
[ROW][C]AMSI2 excluded[/C][C]0.7385[/C][C]0.745[/C][C]0.5937[/C][C]0.5937[/C][/ROW]
[ROW][C]AMSI3 excluded[/C][C]0.7305[/C][C]0.7331[/C][C]0.5787[/C][C]0.5787[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=262459&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262459&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
ItemsCronbach AlphaStd. AlphaG6(smc)Average R
All itmes0.79140.79530.72360.5643
AMSI1 excluded0.68370.68460.52040.5204
AMSI2 excluded0.73850.7450.59370.5937
AMSI3 excluded0.73050.73310.57870.5787



Parameters (Session):
par1 = TRUE ;
Parameters (R input):
par1 = TRUE ;
R code (references can be found in the software module):
par1 <- 'TRUE'
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')