FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

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, 16 Dec 2011 10:04:42 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Dec/16/t13240478972pxf7ih1ozvhs8p.htm/, Retrieved Thu, 20 Feb 2025 19:24:38 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=156035, Retrieved Thu, 20 Feb 2025 19:24:38 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsCronbach alpha
Estimated Impact169

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Linear Regression Graphical Model Validation] [Colombia Coffee -...] [2008-02-26 10:22:06] [74be16979710d4c4e7c6647856088456]
-  M D  [Linear Regression Graphical Model Validation] [mini-tutorial] [2011-11-15 09:10:29] [227e53f633d125e3e89f625705633e7f]
- RMPD    [Pearson Correlation] [Paper] [2011-12-16 14:50:31] [227e53f633d125e3e89f625705633e7f]
- RM D        [Cronbach Alpha] [Paper] [2011-12-16 15:04:42] [065e524ef27b3ebe8baf73e00eb8c266] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
83	96
79	91
92	108
83	95
92	105
103	117
82	94
86	98
106	120
79	91
86	100
76	90
108	123
82	97
108	120
118	133
127	141
123	138
72	85
105	121
63	74
86	100
58	67
59	73
100	116
100	115
78	92
94	109
105	120
89	105
101	115
92	105
105	122
76	87
80	94
66	78
117	135
94	113
107	123
110	126
110	127
106	120
94	108
71	83
101	117
84	96
89	103
119	134
97	112
82	93
89	103
70	84
101	116
81	97
74	87
107	122
97	111
83	101
95	109
82	96
88	100
74	90
104	120
73	86
73	85
81	96
79	93
83	95
111	127
138	156
81	94
107	123
66	80
81	98
74	88
96	109
86	98
69	83
73	85
71	85
64	76
79	96
60	72
111	125
107	121
90	103
98	113
77	89
93	108
68	80
74	87
70	84
80	93
81	94
72	87
81	95
92	106
81	94

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=156035&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 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.99720.99810.99620.9962
Gewicht excluded0.99620.99620.99250.9962
Cholesterol excluded0.99620.99620.99250.9962

\begin{tabular}{lllllllll}
\hline
Cronbach Alpha and Related Statistics \tabularnewline
Items & Cronbach Alpha & Std. Alpha & G6(smc) & Average R \tabularnewline
All itmes & 0.9972 & 0.9981 & 0.9962 & 0.9962 \tabularnewline
Gewicht excluded & 0.9962 & 0.9962 & 0.9925 & 0.9962 \tabularnewline
Cholesterol excluded & 0.9962 & 0.9962 & 0.9925 & 0.9962 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=156035&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.9972[/C][C]0.9981[/C][C]0.9962[/C][C]0.9962[/C][/ROW]
[ROW][C]Gewicht excluded[/C][C]0.9962[/C][C]0.9962[/C][C]0.9925[/C][C]0.9962[/C][/ROW]
[ROW][C]Cholesterol excluded[/C][C]0.9962[/C][C]0.9962[/C][C]0.9925[/C][C]0.9962[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=156035&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=156035&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.99720.99810.99620.9962
Gewicht excluded0.99620.99620.99250.9962
Cholesterol excluded0.99620.99620.99250.9962


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
Parameters (R input):
R code (references can be found in the software module):
library(psych)
z <- t(y)
(r <- alpha(z))
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')