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 computationSat, 17 Dec 2011 04:44:23 -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/17/t13241154265a3ajr8st3aurne.htm/, Retrieved Thu, 25 Apr 2024 15:34:48 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=156160, Retrieved Thu, 25 Apr 2024 15:34:48 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Cronbach Alpha] [Paper] [2011-12-17 09:44:23] [065e524ef27b3ebe8baf73e00eb8c266] [Current]
Feedback Forum

Post a new message

Dataset

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

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'AstonUniversity' @ aston.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 & 1 seconds \tabularnewline
R Server & 'AstonUniversity' @ aston.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=156160&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]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'AstonUniversity' @ aston.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=156160&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=156160&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 time1 seconds
R Server'AstonUniversity' @ aston.wessa.net






Cronbach Alpha and Related Statistics
ItemsCronbach AlphaStd. AlphaG6(smc)Average R
All itmes0.79080.9230.96560.7998
Gewicht excluded0.22110.83930.72310.7231
Cholesterol excluded0.22090.80950.680.68
Bloeddruk excluded0.99720.99810.99620.9962

\begin{tabular}{lllllllll}
\hline
Cronbach Alpha and Related Statistics \tabularnewline
Items & Cronbach Alpha & Std. Alpha & G6(smc) & Average R \tabularnewline
All itmes & 0.7908 & 0.923 & 0.9656 & 0.7998 \tabularnewline
Gewicht excluded & 0.2211 & 0.8393 & 0.7231 & 0.7231 \tabularnewline
Cholesterol excluded & 0.2209 & 0.8095 & 0.68 & 0.68 \tabularnewline
Bloeddruk excluded & 0.9972 & 0.9981 & 0.9962 & 0.9962 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=156160&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.7908[/C][C]0.923[/C][C]0.9656[/C][C]0.7998[/C][/ROW]
[ROW][C]Gewicht excluded[/C][C]0.2211[/C][C]0.8393[/C][C]0.7231[/C][C]0.7231[/C][/ROW]
[ROW][C]Cholesterol excluded[/C][C]0.2209[/C][C]0.8095[/C][C]0.68[/C][C]0.68[/C][/ROW]
[ROW][C]Bloeddruk excluded[/C][C]0.9972[/C][C]0.9981[/C][C]0.9962[/C][C]0.9962[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=156160&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=156160&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.79080.9230.96560.7998
Gewicht excluded0.22110.83930.72310.7231
Cholesterol excluded0.22090.80950.680.68
Bloeddruk excluded0.99720.99810.99620.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')