Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_cronbach.wasp
Title produced by softwareCronbach Alpha
Date of computationThu, 11 Oct 2012 05:18:35 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Oct/11/t1349947139jfelmmfzxojqe6r.htm/, Retrieved Sun, 28 Apr 2024 00:45:27 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=174888, Retrieved Sun, 28 Apr 2024 00:45:27 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact105
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Cronbach Alpha] [Intrinsic Motivat...] [2010-10-12 11:42:57] [b98453cac15ba1066b407e146608df68]
- R  D    [Cronbach Alpha] [taakske 1] [2012-10-11 09:18:35] [2b83a06a733c9cc3c2f91cb5ab2e68a2] [Current]
Feedback Forum

Post a new message
Dataseries X:
23	17	23
24	17	20
22	18	20
20	21	21
24	20	24
27	28	22
28	19	23
27	22	20
24	16	25
23	18	23
24	25	27
27	17	27
27	14	22
28	11	24
27	27	25
23	20	22
24	22	28
28	22	28
27	21	27
25	23	25
19	17	16
24	24	28
20	14	21
28	17	24
26	23	27
23	24	14
23	24	14
20	8	27
11	22	20
24	23	21
25	25	22
23	21	21
18	24	12
20	15	20
20	22	24
24	21	19
23	25	28
25	16	23
28	28	27
26	23	22
26	21	27
23	21	26
22	26	22
24	22	21
21	21	19
20	18	24
22	12	19
20	25	26
25	17	22
20	24	28
22	15	21
23	13	23
25	26	28
23	16	10
23	24	24
22	21	21
24	20	21
25	14	24
21	25	24
12	25	25
17	20	25
20	22	23
23	20	21
23	26	16
20	18	17
28	22	25
24	24	24
24	17	23
24	24	25
24	20	23
28	19	28
25	20	26
21	15	22
25	23	19
25	26	26
18	22	18
17	20	18
26	24	25
28	26	27
21	21	12
27	25	15
22	13	21
21	20	23
25	22	22
22	23	21
23	28	24
26	22	27
19	20	22
25	6	28
21	21	26
13	20	10
24	18	19
25	23	22
26	20	21
25	24	24
25	22	25
22	21	21
21	18	20
23	21	21
25	23	24
24	23	23
21	15	18
21	21	24
25	24	24
22	23	19
20	21	20
20	21	18
23	20	20
28	11	27
23	22	23
28	27	26
24	25	23
18	18	17
20	20	21
28	24	25
21	10	23
21	27	27
25	21	24
19	21	20
18	18	27
21	15	21
22	24	24
24	22	21
15	14	15
28	28	25
26	18	25
23	26	22
26	17	24
20	19	21
22	22	22
20	18	23
23	24	22
22	15	20
24	18	23
23	26	25
22	11	23
26	26	22
23	21	25
27	23	26
23	23	22
21	15	24
26	22	24
23	26	25
21	16	20
27	20	26
19	18	21
23	22	26
25	16	21
23	19	22
22	20	16
22	19	26
25	23	28
25	24	18
28	25	25
28	21	23
20	21	21
25	23	20
19	27	25
25	23	22
22	18	21
18	16	16
20	16	18




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Maurice George Kendall' @ kendall.wessa.net
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.

\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 & 'Sir Maurice George Kendall' @ kendall.wessa.net \tabularnewline
R Framework error message & 
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=174888&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]'Sir Maurice George Kendall' @ kendall.wessa.net[/C][/ROW]
[ROW][C]R Framework error message[/C][C]
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=174888&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=174888&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Maurice George Kendall' @ kendall.wessa.net
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.







Cronbach Alpha and Related Statistics
ItemsCronbach AlphaStd. AlphaG6(smc)Average R
All itmes0.46710.49020.41620.2427
a excluded0.25030.25240.14440.1444
b excluded0.58370.58750.4160.416
c excluded0.27820.28730.16780.1678

\begin{tabular}{lllllllll}
\hline
Cronbach Alpha and Related Statistics \tabularnewline
Items & Cronbach Alpha & Std. Alpha & G6(smc) & Average R \tabularnewline
All itmes & 0.4671 & 0.4902 & 0.4162 & 0.2427 \tabularnewline
a excluded & 0.2503 & 0.2524 & 0.1444 & 0.1444 \tabularnewline
b excluded & 0.5837 & 0.5875 & 0.416 & 0.416 \tabularnewline
c
 excluded & 0.2782 & 0.2873 & 0.1678 & 0.1678 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=174888&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.4671[/C][C]0.4902[/C][C]0.4162[/C][C]0.2427[/C][/ROW]
[ROW][C]a excluded[/C][C]0.2503[/C][C]0.2524[/C][C]0.1444[/C][C]0.1444[/C][/ROW]
[ROW][C]b excluded[/C][C]0.5837[/C][C]0.5875[/C][C]0.416[/C][C]0.416[/C][/ROW]
[ROW][C]c
 excluded[/C][C]0.2782[/C][C]0.2873[/C][C]0.1678[/C][C]0.1678[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=174888&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=174888&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.46710.49020.41620.2427
a excluded0.25030.25240.14440.1444
b excluded0.58370.58750.4160.416
c excluded0.27820.28730.16780.1678



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