FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_cronbach.wasp
Title produced by softwareCronbach Alpha
Date of computationSun, 15 May 2022 21:50:50 +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/2022/May/15/t16526445396249sfnelsgv36d.htm/, Retrieved Sat, 18 May 2024 21:53:08 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=319695, Retrieved Sat, 18 May 2024 21:53:08 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsпсихология
Estimated Impact60

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Cronbach Alpha] [работа] [2022-05-15 19:50:50] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
59	48	65	57
73	48	82	54
72	72	91	73
47	48	65	100
89	42	48	92
67	62	77	70
41	50	71	78
53	62	74	78
70	80	85	78
52	64	71	100
80	56	88	100
97	86	100	78
67	72	100	89
57	86	88	78
57	54	65	100
45	88	100	100
70	68	88	85
65	56	65	100
64	64	88	82
67	76	97	85
66	76	88	100
67	54	100	100
72	96	60	78
35	88	65	100
64	86	68	78
47	54	54	71
40	70	51	78
64	94	80	78
61	66	91	100
47	64	71	57
60	64	88	100
73	80	71	92
63	74	82	96
60	62	82	82
95	56	97	82
72	72	97	96
68	44	60	92
64	60	94	75
61	94	71	67
69	52	60	75
54	86	97	78
27	52	91	100
80	62	88	85
64	96	65	64
33	70	88	78
83	74	74	64
94	64	68	50
72	86	71	75
65	62	85	71
83	54	91	75
76	90	51	78
73	50	88	50
30	62	51	89
92	52	91	67
75	74	85	57
34	84	68	71
45	70	80	78
51	60	65	64
86	58	91	64
48	54	54	50

Tables (Output of Computation)





Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 time1 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=319695&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]1 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=319695&T=0

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






Cronbach Alpha and Related Statistics
ItemsCronbach AlphaStd. AlphaG6(smc)Average R
All itmes0.20030.18690.21850.0543
ОБШ excluded-0.0962-0.0939-0.04-0.0295
ШМ excluded0.27180.25420.26260.102
ШУДЖ excluded0.12910.12270.10690.0445
СУБ excluded0.25220.25040.21450.1002

\begin{tabular}{lllllllll}
\hline
Cronbach Alpha and Related Statistics \tabularnewline
Items & Cronbach Alpha & Std. Alpha & G6(smc) & Average R \tabularnewline
All itmes & 0.2003 & 0.1869 & 0.2185 & 0.0543 \tabularnewline
ОБШ excluded & -0.0962 & -0.0939 & -0.04 & -0.0295 \tabularnewline
ШМ excluded & 0.2718 & 0.2542 & 0.2626 & 0.102 \tabularnewline
ШУДЖ excluded & 0.1291 & 0.1227 & 0.1069 & 0.0445 \tabularnewline
СУБ excluded & 0.2522 & 0.2504 & 0.2145 & 0.1002 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=319695&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.2003[/C][C]0.1869[/C][C]0.2185[/C][C]0.0543[/C][/ROW]
[ROW][C]ОБШ excluded[/C][C]-0.0962[/C][C]-0.0939[/C][C]-0.04[/C][C]-0.0295[/C][/ROW]
[ROW][C]ШМ excluded[/C][C]0.2718[/C][C]0.2542[/C][C]0.2626[/C][C]0.102[/C][/ROW]
[ROW][C]ШУДЖ excluded[/C][C]0.1291[/C][C]0.1227[/C][C]0.1069[/C][C]0.0445[/C][/ROW]
[ROW][C]СУБ excluded[/C][C]0.2522[/C][C]0.2504[/C][C]0.2145[/C][C]0.1002[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=319695&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319695&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.20030.18690.21850.0543
ОБШ excluded-0.0962-0.0939-0.04-0.0295
ШМ excluded0.27180.25420.26260.102
ШУДЖ excluded0.12910.12270.10690.0445
СУБ excluded0.25220.25040.21450.1002


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = ИСТИННЫЙ ;
Parameters (R input):
par1 = ИСТИННЫЙ ;
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')