Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_cronbach.wasp

Title produced by software

Cronbach Alpha

Date of computation

Fri, 24 Dec 2010 13:06:49 +0000

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/2010/Dec/24/t1293195996yfigo7527luk4wd.htm/, Retrieved Tue, 30 Apr 2024 03:10:57 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=114895, Retrieved Tue, 30 Apr 2024 03:10:57 +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

148

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:46:14] [b98453cac15ba1066b407e146608df68]
-    D  [Cronbach Alpha] [WS3 - Task 2- Ext...] [2010-10-19 17:10:12] [19f9551d4d95750ef21e9f3cf8fe2131]
- R  D    [Cronbach Alpha] [p_Stress_CA1Bel] [2010-12-04 09:09:44] [19f9551d4d95750ef21e9f3cf8fe2131]
-    D        [Cronbach Alpha] [p_Stress_CA1BelSport] [2010-12-24 13:06:49] [fca744d17b21beb005bf086e7071b2bb] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

3	3	3	3	2	3	3	3	3	3	3	3	3	3	3	3	3	3
5	5	5	5	4	5	5	5	5	6	4	4	4	5	5	4	5	5
4	4	2	4	3	3	3	4	3	3	4	4	5	4	4	4	4	4
4	4	3	4	3	3	4	4	4	4	4	4	4	4	4	2	4	4
5	5	4	4	4	5	4	5	4	3	4	4	5	5	3	4	4	4
5	5	5	3	5	5	3	1	5	5	5	3	5	5	5	3	5	5
2	4	4	1	4	1	1	5	3	1	3	5	5	3	1	5	2	3
5	5	5	4	4	4	5	5	4	4	4	4	4	5	5	5	4	4
4	4	4	4	4	4	4	5	4	4	4	5	4	5	4	3	4	4
4	4	4	4	5	4	4	5	5	4	5	5	5	4	2	4	4	4
5	4	4	4	5	2	5	1	5	5	5	5	5	5	5	5	4	5
3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3
5	4	4	4	4	4	4	3	4	2	4	2	3	4	4	4	4	4
5	5	5	4	5	5	5	5	5	5	5	5	5	5	5	4	4	5
3	3	3	3	3	3	3	3	3	3	5	4	4	3	3	3	3	3
4	5	4	5	4	4	5	4	4	4	4	4	4	4	4	4	4	4
5	5	5	4	5	5	5	5	5	5	5	5	5	5	4	5	5	5
4	4	4	3	4	3	3	4	4	2	4	4	4	4	3	4	3	3
3	3	3	3	3	3	3	5	3	3	3	3	3	3	3	4	3	3
4	4	4	4	4	4	4	4	4	3	4	4	3	3	4	3	3	3
3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3
3	3	2	3	3	3	3	4	4	2	4	4	3	3	3	3	3	3
4	5	4	5	5	5	5	5	4	5	5	5	5	5	5	5	4	5
5	5	5	5	4	5	5	1	4	4	5	5	4	5	5	4	4	5
4	4	4	4	3	5	5	4	4	5	4	3	5	5	5	4	4	4
4	4	2	4	4	5	4	4	4	2	4	4	4	4	4	4	4	4
4	4	3	4	4	3	4	4	4	3	4	4	4	2	4	4	4	4
4	4	4	4	4	5	5	4	4	4	5	5	4	5	5	5	4	5
3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3
4	4	4	4	4	5	4	4	4	2	4	3	4	5	4	4	4	4
5	4	4	4	5	4	4	5	5	4	5	5	5	5	5	5	5	5
4	4	4	4	2	5	5	4	4	5	4	4	4	5	4	4	4	4
4	4	4	4	4	4	4	4	4	4	4	4	3	4	4	4	4	4
3	3	3	4	3	4	4	4	4	3	4	2	5	3	3	3	4	4
4	4	4	4	4	4	4	4	3	4	4	4	4	4	4	4	4	4
4	4	5	3	3	5	3	5	5	4	5	4	5	5	4	4	4	4
4	4	4	4	2	3	4	4	4	4	4	4	4	4	4	4	4	4
5	5	5	2	5	5	3	4	5	4	4	2	5	5	3	5	3	4
4	4	5	4	4	5	5	4	4	4	4	4	4	4	4	4	4	4
3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3
4	4	4	4	4	5	4	4	3	2	4	4	5	3	3	4	4	4
4	3	4	3	2	4	4	5	4	4	4	4	5	4	4	3	3	4
5	4	5	4	5	4	4	4	4	4	4	4	3	5	4	4	4	4
5	4	4	4	4	5	4	4	4	4	4	4	4	5	4	4	4	4
4	4	4	4	4	4	4	4	4	4	4	4	4	4	4	4	4	4
4	4	4	4	2	4	4	4	4	4	4	3	3	4	4	3	4	4
4	4	3	3	2	3	4	4	4	3	3	1	5	5	4	4	4	3
4	4	2	4	4	1	1	4	4	2	4	4	4	2	4	4	5	5
4	2	4	3	3	4	4	3	3	4	4	2	4	4	4	4	3	4
5	4	5	4	5	5	4	4	4	3	5	4	3	5	4	4	4	4
4	4	4	4	5	5	5	4	4	3	4	4	4	4	4	4	4	4
4	4	3	3	3	5	4	2	4	3	5	4	3	4	2	5	4	5
4	4	3	4	4	5	5	4	4	4	4	4	4	5	4	3	4	4
4	4	4	4	3	4	4	4	4	3	4	4	4	4	4	4	4	4
3	3	2	3	2	4	3	3	3	2	4	3	5	2	3	3	3	2
4	4	5	4	4	4	5	4	4	4	4	5	5	5	4	4	4	4
5	4	5	4	5	5	5	5	4	3	5	4	5	5	5	4	4	0
1	2	2	3	4	3	3	4	3	2	4	3	4	4	1	4	3	2
3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3
5	4	5	4	2	5	5	5	4	4	5	5	3	5	5	5	4	5
4	4	2	4	4	4	4	4	4	3	4	4	4	3	3	4	4	3
4	3	4	4	2	5	5	5	4	5	5	3	4	5	4	3	4	4
3	3	3	4	2	3	3	4	3	3	4	4	5	4	4	4	4	3
4	4	4	3	4	4	4	2	4	4	4	4	4	4	4	4	4	4
4	4	3	4	4	4	4	4	4	2	4	4	4	2	4	4	4	4
3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3
5	5	5	3	5	5	5	4	4	5	5	4	5	5	4	4	4	4
4	3	5	3	3	5	3	5	4	5	4	3	3	5	5	3	3	3
5	4	5	5	5	5	5	5	5	5	5	4	4	5	4	4	5	4
4	4	3	4	4	4	4	3	4	4	4	4	4	4	4	4	4	4
4	4	4	2	4	5	2	4	4	4	4	4	4	4	4	4	4	4
4	4	4	4	5	5	4	5	4	4	5	4	4	5	4	4	4	4
3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3
5	5	4	4	4	5	5	1	5	5	5	4	5	5	5	4	4	4
0	0	6	0	0	6	6	0	0	6	0	0	0	6	0	0	0	0
5	5	4	4	4	4	4	4	4	4	4	4	2	4	4	4	3	4
4	4	3	4	4	5	4	3	4	4	4	4	5	5	4	4	5	3
4	4	4	4	4	4	4	4	4	4	5	3	4	4	4	4	4	4
5	4	4	4	3	5	4	4	5	5	5	4	4	4	4	4	4	5
4	4	5	4	5	5	4	4	4	4	4	4	4	4	4	4	4	4
4	4	4	4	3	4	4	4	4	2	4	4	5	4	4	4	4	4
4	4	5	3	4	4	3	5	5	3	4	4	4	5	4	4	4	4
3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3
5	4	4	5	5	4	5	4	4	3	4	4	5	5	4	4	4	4
5	4	5	4	5	5	5	4	4	5	4	5	5	5	4	5	4	4
5	4	5	5	4	5	4	4	4	4	5	4	5	5	4	4	5	4
4	4	4	4	3	5	5	5	4	5	5	5	5	5	5	4	4	4
4	4	4	3	4	4	4	4	4	3	4	4	4	4	4	3	4	4
4	4	5	3	4	5	5	4	4	5	5	4	4	5	5	4	4	4
4	4	4	4	4	5	5	5	4	5	5	4	5	5	5	4	5	4
4	4	4	4	4	5	5	4	4	5	5	4	3	4	4	4	5	4
4	4	4	4	5	4	5	4	4	4	4	4	5	5	4	4	4	4
4	4	3	5	4	5	3	4	4	3	5	4	4	5	4	4	4	4
5	5	5	5	5	5	5	5	5	3	5	5	5	5	5	3	4	5
4	4	4	3	3	3	3	4	4	3	4	4	4	4	4	3	4	4
4	5	4	5	4	5	5	4	5	4	5	4	4	5	4	4	4	4
3	4	3	4	4	4	4	3	4	4	4	4	4	4	4	3	4	4
5	4	5	4	5	3	5	5	4	4	4	4	4	4	4	4	4	4
3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3
2	3	1	4	2	2	3	3	2	1	4	1	1	4	3	3	3	4
5	5	5	5	4	5	5	5	5	3	5	5	5	5	5	5	5	0
4	4	4	4	4	5	5	4	4	4	4	4	4	4	4	4	4	4
5	5	5	5	5	4	4	5	5	5	5	5	5	5	5	5	5	5
1	1	5	1	1	5	5	1	1	5	1	1	1	5	1	1	1	1
5	5	5	5	4	4	5	4	4	4	4	5	2	4	4	4	4	4
5	4	5	5	4	5	5	5	5	3	5	5	5	5	5	5	5	5
3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3
5	4	4	4	3	3	5	4	4	2	4	3	5	4	4	4	3	4
5	5	5	5	5	5	5	5	5	5	5	5	5	5	5	5	5	5
3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3
4	4	4	3	5	5	5	4	4	4	5	4	5	4	5	4	3	4
5	5	5	5	5	5	5	5	5	5	5	5	5	5	5	5	4	5
4	4	5	3	5	5	3	5	5	4	4	4	5	4	4	4	4	4
4	4	5	4	4	4	5	4	5	4	5	4	5	5	5	4	4	4
5	5	5	5	5	5	5	5	5	5	5	5	5	5	5	5	5	5
4	4	5	4	4	4	4	4	4	4	4	4	4	5	4	4	4	4
5	5	4	4	5	2	4	5	5	5	5	5	5	4	4	5	4	5
4	4	4	4	4	4	4	4	4	4	4	4	4	4	4	4	4	4
4	4	4	4	4	5	5	3	4	3	4	4	4	4	4	3	4	4
4	3	2	4	4	4	4	4	4	4	4	3	4	4	4	2	4	4
4	4	4	4	2	5	5	5	4	4	5	5	5	4	5	4	4	4
4	4	3	4	4	4	4	4	4	5	5	4	4	4	4	4	5	4
5	5	5	5	5	5	5	5	4	4	5	4	0	5	5	5	5	5
3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3
4	4	3	3	4	3	3	4	3	2	4	4	4	3	4	3	4	4
3	3	2	3	4	2	2	3	3	2	4	3	4	4	3	3	3	3
4	4	3	2	5	4	2	3	5	3	4	3	5	5	4	1	3	4
3	4	4	4	4	5	4	4	4	3	4	3	4	4	4	3	4	4
5	4	5	5	4	5	4	5	5	4	5	5	5	5	4	4	5	5
5	5	5	4	4	5	5	5	5	4	5	5	5	5	4	5	5	5
5	4	4	4	4	5	5	4	4	4	5	4	5	4	4	4	4	4
5	5	5	4	5	5	5	5	5	5	5	5	5	5	5	5	5	5
5	4	5	4	5	3	4	5	5	3	5	4	5	5	4	3	3	4
4	4	3	3	3	4	3	3	3	3	4	3	3	3	4	4	3	3
5	4	5	5	5	4	5	5	4	4	3	4	5	4	4	5	4	4
4	4	4	4	3	5	5	4	4	5	4	3	5	5	5	4	4	4
4	4	4	4	4	4	4	4	4	4	4	4	4	4	4	4	4	4
4	3	4	5	4	4	4	4	4	3	4	4	3	3	4	4	4	4
3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3	3
4	4	3	4	4	5	3	4	4	2	4	4	4	5	4	3	4	4
5	5	4	4	5	2	4	5	5	5	5	5	5	4	4	5	4	5
5	4	5	4	5	5	5	5	5	4	4	4	5	5	5	5	5	4

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	3 seconds
R Server	'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\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 & 3 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=114895&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]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=114895&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=114895&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	3 seconds
R Server	'Sir Ronald Aylmer Fisher' @ 193.190.124.24

Cronbach Alpha and Related Statistics
Items	Cronbach Alpha	Std. Alpha	G6(smc)	Average R
All itmes	0.9316	0.9354	0.9577	0.4457
Q32n1 excluded	0.9232	0.9275	0.9517	0.4293
Q32n2 excluded	0.9248	0.9285	0.9527	0.4331
Q32n3 excluded	0.9298	0.934	0.9543	0.4545
Q32n4 excluded	0.927	0.9311	0.9523	0.4427
Q32n5 excluded	0.9283	0.9323	0.9561	0.4474
Q32n6 excluded	0.9321	0.9359	0.9565	0.462
Q32n7 excluded	0.9303	0.9345	0.954	0.4562
Q32n8 excluded	0.9306	0.9343	0.9574	0.4556
Q32n9 excluded	0.9241	0.9278	0.9515	0.4307
Q32n10 excluded	0.9325	0.936	0.9565	0.4624
Q32n11 excluded	0.9252	0.929	0.953	0.4351
Q32n12 excluded	0.9264	0.9306	0.9542	0.4411
Q32n13 excluded	0.9305	0.9341	0.9567	0.4548
Q32n14 excluded	0.9296	0.9341	0.9559	0.4548
Q32n15 excluded	0.925	0.9293	0.9538	0.4359
Q32n16 excluded	0.9273	0.9315	0.9549	0.4443
Q32n17 excluded	0.9253	0.9289	0.9523	0.4346
Q32n18 excluded	0.9282	0.9322	0.956	0.4473

\begin{tabular}{lllllllll}
\hline
Cronbach Alpha and Related Statistics \tabularnewline
Items & Cronbach Alpha & Std. Alpha & G6(smc) & Average R \tabularnewline
All itmes & 0.9316 & 0.9354 & 0.9577 & 0.4457 \tabularnewline
Q32n1 excluded & 0.9232 & 0.9275 & 0.9517 & 0.4293 \tabularnewline
Q32n2 excluded & 0.9248 & 0.9285 & 0.9527 & 0.4331 \tabularnewline
Q32n3 excluded & 0.9298 & 0.934 & 0.9543 & 0.4545 \tabularnewline
Q32n4 excluded & 0.927 & 0.9311 & 0.9523 & 0.4427 \tabularnewline
Q32n5 excluded & 0.9283 & 0.9323 & 0.9561 & 0.4474 \tabularnewline
Q32n6 excluded & 0.9321 & 0.9359 & 0.9565 & 0.462 \tabularnewline
Q32n7 excluded & 0.9303 & 0.9345 & 0.954 & 0.4562 \tabularnewline
Q32n8 excluded & 0.9306 & 0.9343 & 0.9574 & 0.4556 \tabularnewline
Q32n9 excluded & 0.9241 & 0.9278 & 0.9515 & 0.4307 \tabularnewline
Q32n10 excluded & 0.9325 & 0.936 & 0.9565 & 0.4624 \tabularnewline
Q32n11 excluded & 0.9252 & 0.929 & 0.953 & 0.4351 \tabularnewline
Q32n12 excluded & 0.9264 & 0.9306 & 0.9542 & 0.4411 \tabularnewline
Q32n13 excluded & 0.9305 & 0.9341 & 0.9567 & 0.4548 \tabularnewline
Q32n14 excluded & 0.9296 & 0.9341 & 0.9559 & 0.4548 \tabularnewline
Q32n15 excluded & 0.925 & 0.9293 & 0.9538 & 0.4359 \tabularnewline
Q32n16 excluded & 0.9273 & 0.9315 & 0.9549 & 0.4443 \tabularnewline
Q32n17 excluded & 0.9253 & 0.9289 & 0.9523 & 0.4346 \tabularnewline
Q32n18 excluded & 0.9282 & 0.9322 & 0.956 & 0.4473 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=114895&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.9316[/C][C]0.9354[/C][C]0.9577[/C][C]0.4457[/C][/ROW]
[ROW][C]Q32n1 excluded[/C][C]0.9232[/C][C]0.9275[/C][C]0.9517[/C][C]0.4293[/C][/ROW]
[ROW][C]Q32n2 excluded[/C][C]0.9248[/C][C]0.9285[/C][C]0.9527[/C][C]0.4331[/C][/ROW]
[ROW][C]Q32n3 excluded[/C][C]0.9298[/C][C]0.934[/C][C]0.9543[/C][C]0.4545[/C][/ROW]
[ROW][C]Q32n4 excluded[/C][C]0.927[/C][C]0.9311[/C][C]0.9523[/C][C]0.4427[/C][/ROW]
[ROW][C]Q32n5 excluded[/C][C]0.9283[/C][C]0.9323[/C][C]0.9561[/C][C]0.4474[/C][/ROW]
[ROW][C]Q32n6 excluded[/C][C]0.9321[/C][C]0.9359[/C][C]0.9565[/C][C]0.462[/C][/ROW]
[ROW][C]Q32n7 excluded[/C][C]0.9303[/C][C]0.9345[/C][C]0.954[/C][C]0.4562[/C][/ROW]
[ROW][C]Q32n8 excluded[/C][C]0.9306[/C][C]0.9343[/C][C]0.9574[/C][C]0.4556[/C][/ROW]
[ROW][C]Q32n9 excluded[/C][C]0.9241[/C][C]0.9278[/C][C]0.9515[/C][C]0.4307[/C][/ROW]
[ROW][C]Q32n10 excluded[/C][C]0.9325[/C][C]0.936[/C][C]0.9565[/C][C]0.4624[/C][/ROW]
[ROW][C]Q32n11 excluded[/C][C]0.9252[/C][C]0.929[/C][C]0.953[/C][C]0.4351[/C][/ROW]
[ROW][C]Q32n12 excluded[/C][C]0.9264[/C][C]0.9306[/C][C]0.9542[/C][C]0.4411[/C][/ROW]
[ROW][C]Q32n13 excluded[/C][C]0.9305[/C][C]0.9341[/C][C]0.9567[/C][C]0.4548[/C][/ROW]
[ROW][C]Q32n14 excluded[/C][C]0.9296[/C][C]0.9341[/C][C]0.9559[/C][C]0.4548[/C][/ROW]
[ROW][C]Q32n15 excluded[/C][C]0.925[/C][C]0.9293[/C][C]0.9538[/C][C]0.4359[/C][/ROW]
[ROW][C]Q32n16 excluded[/C][C]0.9273[/C][C]0.9315[/C][C]0.9549[/C][C]0.4443[/C][/ROW]
[ROW][C]Q32n17 excluded[/C][C]0.9253[/C][C]0.9289[/C][C]0.9523[/C][C]0.4346[/C][/ROW]
[ROW][C]Q32n18 excluded[/C][C]0.9282[/C][C]0.9322[/C][C]0.956[/C][C]0.4473[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=114895&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=114895&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.9316	0.9354	0.9577	0.4457
Q32n1 excluded	0.9232	0.9275	0.9517	0.4293
Q32n2 excluded	0.9248	0.9285	0.9527	0.4331
Q32n3 excluded	0.9298	0.934	0.9543	0.4545
Q32n4 excluded	0.927	0.9311	0.9523	0.4427
Q32n5 excluded	0.9283	0.9323	0.9561	0.4474
Q32n6 excluded	0.9321	0.9359	0.9565	0.462
Q32n7 excluded	0.9303	0.9345	0.954	0.4562
Q32n8 excluded	0.9306	0.9343	0.9574	0.4556
Q32n9 excluded	0.9241	0.9278	0.9515	0.4307
Q32n10 excluded	0.9325	0.936	0.9565	0.4624
Q32n11 excluded	0.9252	0.929	0.953	0.4351
Q32n12 excluded	0.9264	0.9306	0.9542	0.4411
Q32n13 excluded	0.9305	0.9341	0.9567	0.4548
Q32n14 excluded	0.9296	0.9341	0.9559	0.4548
Q32n15 excluded	0.925	0.9293	0.9538	0.4359
Q32n16 excluded	0.9273	0.9315	0.9549	0.4443
Q32n17 excluded	0.9253	0.9289	0.9523	0.4346
Q32n18 excluded	0.9282	0.9322	0.956	0.4473

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code