Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*Unverified author*

R Software Module

rwasp_cronbach.wasp

Title produced by software

Cronbach Alpha

Date of computation

Sun, 19 Apr 2020 18:24:54 +0200

Cite this page as follows

Statistical 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 Tue, 16 Apr 2024 08:33:40 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=319137, Retrieved Tue, 16 Apr 2024 08:33:40 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

187

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:

Download CSV

Histogram

Boxplots

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 Output	view raw output of R engine
Computing time	0 seconds
R Server	Big 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 Output	view raw output of R engine
Computing time	0 seconds
R Server	Big Analytics Cloud Computing Center

Cronbach Alpha and Related Statistics
Items	Cronbach Alpha	Std. Alpha	G6(smc)	Average R
All itmes	0.8773	0.8846	1	0.2874
P3 excluded	0.8616	0.8693	1	0.2698
P4 excluded	0.8859	0.8893	1	0.3086
P5 excluded	0.8868	0.8913	1	0.3129
P6 excluded	0.8674	0.876	1	0.2819
P7 excluded	0.8849	0.8925	1	0.3157
P8 excluded	0.8618	0.8701	1	0.2712
P9 excluded	0.8801	0.8909	1	0.3121
P10 excluded	0.8723	0.8806	1	0.2907
P11 excluded	0.8692	0.876	1	0.2819
P12 excluded	0.8682	0.8729	1	0.2761
P13 excluded	0.8601	0.8696	1	0.2704
P14 excluded	0.8598	0.8701	1	0.2713
P16 excluded	0.8616	0.8693	1	0.2698
P18 excluded	0.8616	0.8693	1	0.2698
P19 excluded	0.8598	0.868	1	0.2675
P20 excluded	0.8853	0.8916	1	0.3136
P21 excluded	0.8649	0.8737	1	0.2776
P22 excluded	0.8758	0.8837	1	0.2969
P26 excluded	0.8789	0.8868	1	0.3033
P27 excluded	NA	NA	NA	NA

\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
Items	Cronbach Alpha	Std. Alpha	G6(smc)	Average R
All itmes	0.8773	0.8846	1	0.2874
P3 excluded	0.8616	0.8693	1	0.2698
P4 excluded	0.8859	0.8893	1	0.3086
P5 excluded	0.8868	0.8913	1	0.3129
P6 excluded	0.8674	0.876	1	0.2819
P7 excluded	0.8849	0.8925	1	0.3157
P8 excluded	0.8618	0.8701	1	0.2712
P9 excluded	0.8801	0.8909	1	0.3121
P10 excluded	0.8723	0.8806	1	0.2907
P11 excluded	0.8692	0.876	1	0.2819
P12 excluded	0.8682	0.8729	1	0.2761
P13 excluded	0.8601	0.8696	1	0.2704
P14 excluded	0.8598	0.8701	1	0.2713
P16 excluded	0.8616	0.8693	1	0.2698
P18 excluded	0.8616	0.8693	1	0.2698
P19 excluded	0.8598	0.868	1	0.2675
P20 excluded	0.8853	0.8916	1	0.3136
P21 excluded	0.8649	0.8737	1	0.2776
P22 excluded	0.8758	0.8837	1	0.2969
P26 excluded	0.8789	0.8868	1	0.3033
P27 excluded	NA	NA	NA	NA

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code