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 computationFri, 12 Dec 2014 10:49:45 +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/12/t14183814220knpqunw1ddn0l1.htm/, Retrieved Thu, 31 Oct 2024 22:49:30 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=266492, Retrieved Thu, 31 Oct 2024 22:49:30 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact161
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Cronbach Alpha] [CA ] [2014-12-12 10:49:45] [eeaae55b7499419163eef5a1870a44a7] [Current]
-    D    [Cronbach Alpha] [CA] [2014-12-16 13:48:52] [40df8d8b5657a9599acc6ccced535535]
-    D    [Cronbach Alpha] [CA] [2014-12-16 14:26:32] [40df8d8b5657a9599acc6ccced535535]
-    D    [Cronbach Alpha] [CA] [2014-12-16 14:38:23] [40df8d8b5657a9599acc6ccced535535]
-    D    [Cronbach Alpha] [Cronbach alpha] [2014-12-16 14:51:16] [40df8d8b5657a9599acc6ccced535535]
-    D    [Cronbach Alpha] [CA] [2014-12-16 15:03:24] [40df8d8b5657a9599acc6ccced535535]
-    D    [Cronbach Alpha] [Cronbach Alpha Est] [2014-12-16 15:12:07] [40df8d8b5657a9599acc6ccced535535]
Feedback Forum

Post a new message
Dataseries X:
0 1.7 1.6 1
0 1.7 1.8 1.3
0 1.8 1.8 2
0 2 1.8 2
0 2 2.1 1.8
2.5 1.9 0.1 1.8
0.5 2.2 1.6 2.1
0.5 2.1 1.9 1.8
1 1.7 1.9 1.8
1 2.1 1.6 2
1 1.8 2.2 1.7
2.5 1.9 1.8 1.1
1 2.3 1.9 2.1
1.5 1.8 2.4 1.9
1.5 2.1 2.1 2
1.5 1.9 2.4 1.8
1 2.6 2.2 2
1 2.4 2.4 2
3.5 1.7 1.2 1.6
2 2.2 1.9 2.1
2.5 1.9 1.9 1.9
3 1.8 1.8 1.6
2.5 2.2 1.8 2
2.5 2.1 2.1 1.9
3.5 1.8 1.6 1.8
3 1.9 1.9 2
3.5 2 1.5 2
3.5 1.7 1.8 2
3.5 2 1.8 1.8
3.5 2.1 1.5 2.1
3.5 2.2 1.6 2
2.5 2.8 1.8 2.2
3.5 2.1 1.5 2.1
3 2.3 2.2 2.1
3 2.1 2.2 2.2
3.5 1.8 2.4 1.9
2.5 3.2 1.9 2.1
4 1.9 1.9 2
3.5 2.2 2.4 1.8
4.5 1.5 1.9 2
4 1.9 2.1 2
4.5 1.9 1.8 1.9
4.5 2.5 1.5 1.8
3.5 2.2 2.4 2.2
4.5 1.9 1.8 2.1
4.5 1.8 2.1 2
4 2.1 2.2 2.1
5 2.2 1.5 2
5 1.8 1.9 1.9
4.5 2.1 1.9 2.2
4.5 2.3 2.1 2
5 1.8 1.9 2
4 2.2 2.4 2.3
5 1.8 2.1 2
4.5 2 2.2 2.1
4.5 2.9 1.5 2.2
4 2.8 2.1 2.3
5.5 1.8 1.9 1.8
5 2.3 1.9 1.9
5 2 2.2 2
4.5 2.6 2.1 2.2
5 2.1 2.2 2.1
5 2.5 1.9 1.9
5.5 2 1.9 1.9
4.5 2.4 2.4 2
5.5 1.9 2.1 1.8
5.5 1.9 2.1 2
5 2.1 2.4 2.2
5.5 1.9 2.1 2.1
5.5 2.3 1.8 2.1
5.5 2.1 2.1 2
5 2.3 2.4 2.1
5.5 2 2.2 2
5.5 2.2 2.1 2.1
5.5 2.5 1.8 2.2
5 2.7 1.9 2.3
6.5 1.9 1.5 2.2
6 2.1 2.1 2
6 2.1 1.9 2.1
6 1.9 2.4 1.9
6 2.2 2.1 2
5 2.9 2.1 2.2
6 2.4 2.1 2
5.5 2.7 2.1 2.3
6.5 2.1 1.9 2
6.5 2.2 1.8 2.1
7 1.7 2.1 1.8
6 2.4 2.1 2.2
7.5 1.6 1.8 1.7
6.5 2.2 2.1 2
7.5 1.8 1.5 2.1
6.5 2.3 2.1 2.1
6.5 2 2.2 2.3
6.5 2.3 2.1 2.1
7 2 2.1 2.1
7.5 1.9 1.8 2
6.5 2.4 2.2 2.1
7 2.4 1.9 2
7.5 1.9 1.8 2.1
7 1.9 2.5 1.9
7.5 1.9 2.1 1.9
7 2 2.4 2.1
8 1.8 2.1 1.8
6.5 3.5 1.6 2.2
7.5 2.3 2.2 1.7
8 1.9 2.4 1.9
8.5 2.1 1.6 2
7.5 2.7 2.1 2.2
7.5 2.6 2.4 2.1
8.5 2.1 2.1 2.1
9 2.3 2.4 2.2
7.5 3.5 2.4 2.7




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=266492&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=266492&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=266492&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.20980.58180.56320.2581
Ex excluded0.50360.55440.51430.2932
PR excluded0.16940.50260.40940.252
PA excluded0.16520.60930.56560.342
PE excluded0.13820.33740.25610.1451

\begin{tabular}{lllllllll}
\hline
Cronbach Alpha and Related Statistics \tabularnewline
Items & Cronbach Alpha & Std. Alpha & G6(smc) & Average R \tabularnewline
All itmes & 0.2098 & 0.5818 & 0.5632 & 0.2581 \tabularnewline
Ex excluded & 0.5036 & 0.5544 & 0.5143 & 0.2932 \tabularnewline
PR excluded & 0.1694 & 0.5026 & 0.4094 & 0.252 \tabularnewline
PA excluded & 0.1652 & 0.6093 & 0.5656 & 0.342 \tabularnewline
PE excluded & 0.1382 & 0.3374 & 0.2561 & 0.1451 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=266492&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.2098[/C][C]0.5818[/C][C]0.5632[/C][C]0.2581[/C][/ROW]
[ROW][C]Ex excluded[/C][C]0.5036[/C][C]0.5544[/C][C]0.5143[/C][C]0.2932[/C][/ROW]
[ROW][C]PR excluded[/C][C]0.1694[/C][C]0.5026[/C][C]0.4094[/C][C]0.252[/C][/ROW]
[ROW][C]PA excluded[/C][C]0.1652[/C][C]0.6093[/C][C]0.5656[/C][C]0.342[/C][/ROW]
[ROW][C]PE excluded[/C][C]0.1382[/C][C]0.3374[/C][C]0.2561[/C][C]0.1451[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=266492&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=266492&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.20980.58180.56320.2581
Ex excluded0.50360.55440.51430.2932
PR excluded0.16940.50260.40940.252
PA excluded0.16520.60930.56560.342
PE excluded0.13820.33740.25610.1451



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