Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_cronbach.wasp
Title produced by softwareCronbach Alpha
Date of computationSun, 19 Apr 2020 18:24:54 +0200
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2020/Apr/19/t15873136733v8r3jdfkl30dc3.htm/, Retrieved Sat, 15 May 2021 04:56:35 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=319137, Retrieved Sat, 15 May 2021 04:56:35 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact50
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Cronbach Alpha] [CONFIABLIDADALFAD...] [2020-04-19 16:24:54] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
0	2	2	0	2	0	0	1	2	0	0	2	0	0	0	1	2	2	0	0
0	1	1	1	1	1	1	0	1	0	1	1	0	0	0	1	0	0	0	0
0	2	2	1	1	0	0	0	2	0	0	0	0	0	0	1	1	1	0	0
0	2	1	0	0	0	0	0	1	0	0	0	0	0	0	0	1	0	0	0
0	2	2	0	0	0	0	0	1	0	0	0	0	0	0	0	1	0	2	2
0	2	1	0	0	0	0	0	1	0	0	0	0	0	0	0	1	0	0	0
0	0	0	2	0	1	0	1	1	0	0	0	0	0	0	0	0	0	0	0
2	1	2	2	0	2	0	1	2	0	1	2	3	2	2	2	0	2	0	0
0	0	0	0	0	0	1	2	2	0	1	1	2	0	0	0	2	2	0	1
0	0	0	0	0	0	0	0	1	0	0	0	0	0	0	0	0	0	0	0




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=319137&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]0 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=319137&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319137&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 Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center







Cronbach Alpha and Related Statistics
ItemsCronbach AlphaStd. AlphaG6(smc)Average R
All itmes0.87730.884610.2874
P3 excluded0.86160.869310.2698
P4 excluded0.88590.889310.3086
P5 excluded0.88680.891310.3129
P6 excluded0.86740.87610.2819
P7 excluded0.88490.892510.3157
P8 excluded0.86180.870110.2712
P9 excluded0.88010.890910.3121
P10 excluded0.87230.880610.2907
P11 excluded0.86920.87610.2819
P12 excluded0.86820.872910.2761
P13 excluded0.86010.869610.2704
P14 excluded0.85980.870110.2713
P16 excluded0.86160.869310.2698
P18 excluded0.86160.869310.2698
P19 excluded0.85980.86810.2675
P20 excluded0.88530.891610.3136
P21 excluded0.86490.873710.2776
P22 excluded0.87580.883710.2969
P26 excluded0.87890.886810.3033
P27 excludedNANANANA

\begin{tabular}{lllllllll}
\hline
Cronbach Alpha and Related Statistics \tabularnewline
Items & Cronbach Alpha & Std. Alpha & G6(smc) & Average R \tabularnewline
All itmes & 0.8773 & 0.8846 & 1 & 0.2874 \tabularnewline
P3 excluded & 0.8616 & 0.8693 & 1 & 0.2698 \tabularnewline
P4 excluded & 0.8859 & 0.8893 & 1 & 0.3086 \tabularnewline
P5 excluded & 0.8868 & 0.8913 & 1 & 0.3129 \tabularnewline
P6 excluded & 0.8674 & 0.876 & 1 & 0.2819 \tabularnewline
P7 excluded & 0.8849 & 0.8925 & 1 & 0.3157 \tabularnewline
P8 excluded & 0.8618 & 0.8701 & 1 & 0.2712 \tabularnewline
P9 excluded & 0.8801 & 0.8909 & 1 & 0.3121 \tabularnewline
P10 excluded & 0.8723 & 0.8806 & 1 & 0.2907 \tabularnewline
P11 excluded & 0.8692 & 0.876 & 1 & 0.2819 \tabularnewline
P12 excluded & 0.8682 & 0.8729 & 1 & 0.2761 \tabularnewline
P13 excluded & 0.8601 & 0.8696 & 1 & 0.2704 \tabularnewline
P14 excluded & 0.8598 & 0.8701 & 1 & 0.2713 \tabularnewline
P16 excluded & 0.8616 & 0.8693 & 1 & 0.2698 \tabularnewline
P18 excluded & 0.8616 & 0.8693 & 1 & 0.2698 \tabularnewline
P19 excluded & 0.8598 & 0.868 & 1 & 0.2675 \tabularnewline
P20 excluded & 0.8853 & 0.8916 & 1 & 0.3136 \tabularnewline
P21 excluded & 0.8649 & 0.8737 & 1 & 0.2776 \tabularnewline
P22 excluded & 0.8758 & 0.8837 & 1 & 0.2969 \tabularnewline
P26 excluded & 0.8789 & 0.8868 & 1 & 0.3033 \tabularnewline
P27 excluded & NA & NA & NA & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=319137&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.8773[/C][C]0.8846[/C][C]1[/C][C]0.2874[/C][/ROW]
[ROW][C]P3 excluded[/C][C]0.8616[/C][C]0.8693[/C][C]1[/C][C]0.2698[/C][/ROW]
[ROW][C]P4 excluded[/C][C]0.8859[/C][C]0.8893[/C][C]1[/C][C]0.3086[/C][/ROW]
[ROW][C]P5 excluded[/C][C]0.8868[/C][C]0.8913[/C][C]1[/C][C]0.3129[/C][/ROW]
[ROW][C]P6 excluded[/C][C]0.8674[/C][C]0.876[/C][C]1[/C][C]0.2819[/C][/ROW]
[ROW][C]P7 excluded[/C][C]0.8849[/C][C]0.8925[/C][C]1[/C][C]0.3157[/C][/ROW]
[ROW][C]P8 excluded[/C][C]0.8618[/C][C]0.8701[/C][C]1[/C][C]0.2712[/C][/ROW]
[ROW][C]P9 excluded[/C][C]0.8801[/C][C]0.8909[/C][C]1[/C][C]0.3121[/C][/ROW]
[ROW][C]P10 excluded[/C][C]0.8723[/C][C]0.8806[/C][C]1[/C][C]0.2907[/C][/ROW]
[ROW][C]P11 excluded[/C][C]0.8692[/C][C]0.876[/C][C]1[/C][C]0.2819[/C][/ROW]
[ROW][C]P12 excluded[/C][C]0.8682[/C][C]0.8729[/C][C]1[/C][C]0.2761[/C][/ROW]
[ROW][C]P13 excluded[/C][C]0.8601[/C][C]0.8696[/C][C]1[/C][C]0.2704[/C][/ROW]
[ROW][C]P14 excluded[/C][C]0.8598[/C][C]0.8701[/C][C]1[/C][C]0.2713[/C][/ROW]
[ROW][C]P16 excluded[/C][C]0.8616[/C][C]0.8693[/C][C]1[/C][C]0.2698[/C][/ROW]
[ROW][C]P18 excluded[/C][C]0.8616[/C][C]0.8693[/C][C]1[/C][C]0.2698[/C][/ROW]
[ROW][C]P19 excluded[/C][C]0.8598[/C][C]0.868[/C][C]1[/C][C]0.2675[/C][/ROW]
[ROW][C]P20 excluded[/C][C]0.8853[/C][C]0.8916[/C][C]1[/C][C]0.3136[/C][/ROW]
[ROW][C]P21 excluded[/C][C]0.8649[/C][C]0.8737[/C][C]1[/C][C]0.2776[/C][/ROW]
[ROW][C]P22 excluded[/C][C]0.8758[/C][C]0.8837[/C][C]1[/C][C]0.2969[/C][/ROW]
[ROW][C]P26 excluded[/C][C]0.8789[/C][C]0.8868[/C][C]1[/C][C]0.3033[/C][/ROW]
[ROW][C]P27 excluded[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=319137&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319137&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.87730.884610.2874
P3 excluded0.86160.869310.2698
P4 excluded0.88590.889310.3086
P5 excluded0.88680.891310.3129
P6 excluded0.86740.87610.2819
P7 excluded0.88490.892510.3157
P8 excluded0.86180.870110.2712
P9 excluded0.88010.890910.3121
P10 excluded0.87230.880610.2907
P11 excluded0.86920.87610.2819
P12 excluded0.86820.872910.2761
P13 excluded0.86010.869610.2704
P14 excluded0.85980.870110.2713
P16 excluded0.86160.869310.2698
P18 excluded0.86160.869310.2698
P19 excluded0.85980.86810.2675
P20 excluded0.88530.891610.3136
P21 excluded0.86490.873710.2776
P22 excluded0.87580.883710.2969
P26 excluded0.87890.886810.3033
P27 excludedNANANANA



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