Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_cronbach.wasp
Title produced by softwareCronbach Alpha
Date of computationWed, 14 Feb 2024 17:33:01 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2024/Feb/14/t1707928481a6pyy208u2hwgz2.htm/, Retrieved Tue, 19 May 2026 19:10:40 +0200
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=, Retrieved Tue, 19 May 2026 19:10:40 +0200
QR Codes:

Original text written by user:
IsPrivate?This computation is private
User-defined keywords
Estimated Impact0
Dataseries X:
1	1	4	4	4	4	1	4	5	5	4	4	4	3	4	1	3	4	4	4	4	4	4	3	4	4	4	4	4	4	4	4	4	3	3	4	4	4	4	4	4	4	4	4	4	4	4	4	3	4	4	4	4	3	4
4	1	4	4	4	1	4	1	4	4	3	4	5	4	3	2	4	1	4	5	5	5	5	1	5	5	5	5	1	5	1	1	1	5	5	5	5	5	5	5	3	5	5	5	2	4	4	4	5	5	5	5	5	5	5
3	1	4	2	2	2	4	1	4	3	2	2	3	2	1	2	2	1	1	4	1	1	1	3	2	4	4	4	1	1	1	1	1	1	3	4	4	4	4	4	4	2	2	4	4	4	4	4	2	2	4	2	2	1	4
2	2	4	4	2	1	4	1	4	4	4	4	3	2	5	2	4	2	2	4	4	2	1	4	4	5	4	4	1	2	2	4	4	4	4	5	2	4	4	5	5	2	2	4	2	4	2	5	3	4	5	4	4	1	4
5	1	4	4	4	4	1	1	5	5	5	4	4	4	3	4	3	4	4	3	4	4	4	3	4	4	4	4	4	4	3	4	4	4	1	3	4	4	4	4	4	4	4	4	4	4	2	4	4	3	4	4	4	1	1
5	5	5	5	5	5	5	5	5	5	5	5	5	5	5	4	5	3	4	5	3	3	5	5	5	5	5	3	5	5	5	5	5	5	4	5	5	5	5	5	5	5	5	5	5	5	5	1	1	5	5	5	5	3	4
1	1	4	4	4	4	3	1	5	4	4	4	3	3	3	2	4	3	1	3	4	4	4	5	5	4	4	4	4	4	4	4	4	4	4	5	3	4	4	4	4	4	4	2	3	2	4	4	3	4	4	4	4	1	4




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center
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 Outputview raw output of R engine  \tabularnewline
Computing time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \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=&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]0 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [ROW]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=&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=&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 Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center
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 items0.96060.967410.3504
Q1 excluded0.96110.967410.3543
Q2 excluded0.9590.966210.3463
Q3 excluded0.960.966110.3454
Q4 excluded0.95890.965910.3438
Q5 excluded0.95870.966110.3452
Q6 excluded0.960.967110.3526
Q7 excluded0.9620.967910.3583
Q8 excluded0.95910.966410.3476
Q9 excluded0.96020.967210.3534
Q10 excluded0.95950.966510.3481
Q11 excluded0.95940.966610.349
Q12 excluded0.95890.965910.3438
Q13 excluded0.95930.966210.3458
Q14 excluded0.95870.965910.3442
Q15 excluded0.95940.966510.3483
Q16 excluded0.96010.967210.353
Q17 excluded0.95910.96610.3449
Q18 excluded0.96050.967710.3568
Q19 excluded0.95940.966610.3489
Q20 excluded0.96020.96710.3521
Q21 excluded0.96060.967510.3556
Q22 excluded0.96030.967310.3539
Q23 excluded0.95880.966310.3466
Q24 excluded0.96120.967910.3584
Q25 excluded0.95910.966310.3465
Q26 excluded0.96030.966910.3514
Q27 excluded0.960.966310.3467
Q28 excluded0.96030.967410.3544
Q29 excluded0.95950.966810.3504
Q30 excluded0.95850.966110.3453
Q31 excluded0.95920.966610.3492
Q32 excluded0.960.96710.352
Q33 excluded0.960.96710.352
Q34 excluded0.95890.966210.346
Q35 excluded0.96120.967810.3574
Q36 excluded0.96060.967510.3557
Q37 excluded0.96010.967110.3525
Q38 excluded0.960.966310.3467
Q39 excluded0.960.966310.3467
Q40 excluded0.96030.966910.3514
Q41 excluded0.96070.967910.3584
Q42 excluded0.95880.966210.3459
Q43 excluded0.95880.966210.3459
Q44 excluded0.96050.967310.3542
Q45 excluded0.96060.967710.3569
Q46 excluded0.96050.967410.3546
Q47 excluded0.96030.967310.354
Q48 excluded0.95890.966210.3459
Q49 excluded0.96130.96810.3593
Q50 excluded0.9590.966110.3451
Q51 excluded0.96030.966910.3514
Q52 excluded0.95890.96610.3445
Q53 excluded0.95890.96610.3445
Q54 excluded0.96020.96710.3515
Q55 excluded0.96190.968410.3617

\begin{tabular}{lllllllll}
\hline
Cronbach Alpha and Related Statistics \tabularnewline
Items & Cronbach Alpha & Std. Alpha & G6(smc) & Average R \tabularnewline
All items & 0.9606 & 0.9674 & 1 & 0.3504 \tabularnewline
Q1 excluded & 0.9611 & 0.9674 & 1 & 0.3543 \tabularnewline
Q2 excluded & 0.959 & 0.9662 & 1 & 0.3463 \tabularnewline
Q3 excluded & 0.96 & 0.9661 & 1 & 0.3454 \tabularnewline
Q4 excluded & 0.9589 & 0.9659 & 1 & 0.3438 \tabularnewline
Q5 excluded & 0.9587 & 0.9661 & 1 & 0.3452 \tabularnewline
Q6 excluded & 0.96 & 0.9671 & 1 & 0.3526 \tabularnewline
Q7 excluded & 0.962 & 0.9679 & 1 & 0.3583 \tabularnewline
Q8 excluded & 0.9591 & 0.9664 & 1 & 0.3476 \tabularnewline
Q9 excluded & 0.9602 & 0.9672 & 1 & 0.3534 \tabularnewline
Q10 excluded & 0.9595 & 0.9665 & 1 & 0.3481 \tabularnewline
Q11 excluded & 0.9594 & 0.9666 & 1 & 0.349 \tabularnewline
Q12 excluded & 0.9589 & 0.9659 & 1 & 0.3438 \tabularnewline
Q13 excluded & 0.9593 & 0.9662 & 1 & 0.3458 \tabularnewline
Q14 excluded & 0.9587 & 0.9659 & 1 & 0.3442 \tabularnewline
Q15 excluded & 0.9594 & 0.9665 & 1 & 0.3483 \tabularnewline
Q16 excluded & 0.9601 & 0.9672 & 1 & 0.353 \tabularnewline
Q17 excluded & 0.9591 & 0.966 & 1 & 0.3449 \tabularnewline
Q18 excluded & 0.9605 & 0.9677 & 1 & 0.3568 \tabularnewline
Q19 excluded & 0.9594 & 0.9666 & 1 & 0.3489 \tabularnewline
Q20 excluded & 0.9602 & 0.967 & 1 & 0.3521 \tabularnewline
Q21 excluded & 0.9606 & 0.9675 & 1 & 0.3556 \tabularnewline
Q22 excluded & 0.9603 & 0.9673 & 1 & 0.3539 \tabularnewline
Q23 excluded & 0.9588 & 0.9663 & 1 & 0.3466 \tabularnewline
Q24 excluded & 0.9612 & 0.9679 & 1 & 0.3584 \tabularnewline
Q25 excluded & 0.9591 & 0.9663 & 1 & 0.3465 \tabularnewline
Q26 excluded & 0.9603 & 0.9669 & 1 & 0.3514 \tabularnewline
Q27 excluded & 0.96 & 0.9663 & 1 & 0.3467 \tabularnewline
Q28 excluded & 0.9603 & 0.9674 & 1 & 0.3544 \tabularnewline
Q29 excluded & 0.9595 & 0.9668 & 1 & 0.3504 \tabularnewline
Q30 excluded & 0.9585 & 0.9661 & 1 & 0.3453 \tabularnewline
Q31 excluded & 0.9592 & 0.9666 & 1 & 0.3492 \tabularnewline
Q32 excluded & 0.96 & 0.967 & 1 & 0.352 \tabularnewline
Q33 excluded & 0.96 & 0.967 & 1 & 0.352 \tabularnewline
Q34 excluded & 0.9589 & 0.9662 & 1 & 0.346 \tabularnewline
Q35 excluded & 0.9612 & 0.9678 & 1 & 0.3574 \tabularnewline
Q36 excluded & 0.9606 & 0.9675 & 1 & 0.3557 \tabularnewline
Q37 excluded & 0.9601 & 0.9671 & 1 & 0.3525 \tabularnewline
Q38 excluded & 0.96 & 0.9663 & 1 & 0.3467 \tabularnewline
Q39 excluded & 0.96 & 0.9663 & 1 & 0.3467 \tabularnewline
Q40 excluded & 0.9603 & 0.9669 & 1 & 0.3514 \tabularnewline
Q41 excluded & 0.9607 & 0.9679 & 1 & 0.3584 \tabularnewline
Q42 excluded & 0.9588 & 0.9662 & 1 & 0.3459 \tabularnewline
Q43 excluded & 0.9588 & 0.9662 & 1 & 0.3459 \tabularnewline
Q44 excluded & 0.9605 & 0.9673 & 1 & 0.3542 \tabularnewline
Q45 excluded & 0.9606 & 0.9677 & 1 & 0.3569 \tabularnewline
Q46 excluded & 0.9605 & 0.9674 & 1 & 0.3546 \tabularnewline
Q47 excluded & 0.9603 & 0.9673 & 1 & 0.354 \tabularnewline
Q48 excluded & 0.9589 & 0.9662 & 1 & 0.3459 \tabularnewline
Q49 excluded & 0.9613 & 0.968 & 1 & 0.3593 \tabularnewline
Q50 excluded & 0.959 & 0.9661 & 1 & 0.3451 \tabularnewline
Q51 excluded & 0.9603 & 0.9669 & 1 & 0.3514 \tabularnewline
Q52 excluded & 0.9589 & 0.966 & 1 & 0.3445 \tabularnewline
Q53 excluded & 0.9589 & 0.966 & 1 & 0.3445 \tabularnewline
Q54 excluded & 0.9602 & 0.967 & 1 & 0.3515 \tabularnewline
Q55
 excluded & 0.9619 & 0.9684 & 1 & 0.3617 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=&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 items[/C][C]0.9606[/C][C]0.9674[/C][C]1[/C][C]0.3504[/C][/ROW]
[ROW][C]Q1 excluded[/C][C]0.9611[/C][C]0.9674[/C][C]1[/C][C]0.3543[/C][/ROW]
[ROW][C]Q2 excluded[/C][C]0.959[/C][C]0.9662[/C][C]1[/C][C]0.3463[/C][/ROW]
[ROW][C]Q3 excluded[/C][C]0.96[/C][C]0.9661[/C][C]1[/C][C]0.3454[/C][/ROW]
[ROW][C]Q4 excluded[/C][C]0.9589[/C][C]0.9659[/C][C]1[/C][C]0.3438[/C][/ROW]
[ROW][C]Q5 excluded[/C][C]0.9587[/C][C]0.9661[/C][C]1[/C][C]0.3452[/C][/ROW]
[ROW][C]Q6 excluded[/C][C]0.96[/C][C]0.9671[/C][C]1[/C][C]0.3526[/C][/ROW]
[ROW][C]Q7 excluded[/C][C]0.962[/C][C]0.9679[/C][C]1[/C][C]0.3583[/C][/ROW]
[ROW][C]Q8 excluded[/C][C]0.9591[/C][C]0.9664[/C][C]1[/C][C]0.3476[/C][/ROW]
[ROW][C]Q9 excluded[/C][C]0.9602[/C][C]0.9672[/C][C]1[/C][C]0.3534[/C][/ROW]
[ROW][C]Q10 excluded[/C][C]0.9595[/C][C]0.9665[/C][C]1[/C][C]0.3481[/C][/ROW]
[ROW][C]Q11 excluded[/C][C]0.9594[/C][C]0.9666[/C][C]1[/C][C]0.349[/C][/ROW]
[ROW][C]Q12 excluded[/C][C]0.9589[/C][C]0.9659[/C][C]1[/C][C]0.3438[/C][/ROW]
[ROW][C]Q13 excluded[/C][C]0.9593[/C][C]0.9662[/C][C]1[/C][C]0.3458[/C][/ROW]
[ROW][C]Q14 excluded[/C][C]0.9587[/C][C]0.9659[/C][C]1[/C][C]0.3442[/C][/ROW]
[ROW][C]Q15 excluded[/C][C]0.9594[/C][C]0.9665[/C][C]1[/C][C]0.3483[/C][/ROW]
[ROW][C]Q16 excluded[/C][C]0.9601[/C][C]0.9672[/C][C]1[/C][C]0.353[/C][/ROW]
[ROW][C]Q17 excluded[/C][C]0.9591[/C][C]0.966[/C][C]1[/C][C]0.3449[/C][/ROW]
[ROW][C]Q18 excluded[/C][C]0.9605[/C][C]0.9677[/C][C]1[/C][C]0.3568[/C][/ROW]
[ROW][C]Q19 excluded[/C][C]0.9594[/C][C]0.9666[/C][C]1[/C][C]0.3489[/C][/ROW]
[ROW][C]Q20 excluded[/C][C]0.9602[/C][C]0.967[/C][C]1[/C][C]0.3521[/C][/ROW]
[ROW][C]Q21 excluded[/C][C]0.9606[/C][C]0.9675[/C][C]1[/C][C]0.3556[/C][/ROW]
[ROW][C]Q22 excluded[/C][C]0.9603[/C][C]0.9673[/C][C]1[/C][C]0.3539[/C][/ROW]
[ROW][C]Q23 excluded[/C][C]0.9588[/C][C]0.9663[/C][C]1[/C][C]0.3466[/C][/ROW]
[ROW][C]Q24 excluded[/C][C]0.9612[/C][C]0.9679[/C][C]1[/C][C]0.3584[/C][/ROW]
[ROW][C]Q25 excluded[/C][C]0.9591[/C][C]0.9663[/C][C]1[/C][C]0.3465[/C][/ROW]
[ROW][C]Q26 excluded[/C][C]0.9603[/C][C]0.9669[/C][C]1[/C][C]0.3514[/C][/ROW]
[ROW][C]Q27 excluded[/C][C]0.96[/C][C]0.9663[/C][C]1[/C][C]0.3467[/C][/ROW]
[ROW][C]Q28 excluded[/C][C]0.9603[/C][C]0.9674[/C][C]1[/C][C]0.3544[/C][/ROW]
[ROW][C]Q29 excluded[/C][C]0.9595[/C][C]0.9668[/C][C]1[/C][C]0.3504[/C][/ROW]
[ROW][C]Q30 excluded[/C][C]0.9585[/C][C]0.9661[/C][C]1[/C][C]0.3453[/C][/ROW]
[ROW][C]Q31 excluded[/C][C]0.9592[/C][C]0.9666[/C][C]1[/C][C]0.3492[/C][/ROW]
[ROW][C]Q32 excluded[/C][C]0.96[/C][C]0.967[/C][C]1[/C][C]0.352[/C][/ROW]
[ROW][C]Q33 excluded[/C][C]0.96[/C][C]0.967[/C][C]1[/C][C]0.352[/C][/ROW]
[ROW][C]Q34 excluded[/C][C]0.9589[/C][C]0.9662[/C][C]1[/C][C]0.346[/C][/ROW]
[ROW][C]Q35 excluded[/C][C]0.9612[/C][C]0.9678[/C][C]1[/C][C]0.3574[/C][/ROW]
[ROW][C]Q36 excluded[/C][C]0.9606[/C][C]0.9675[/C][C]1[/C][C]0.3557[/C][/ROW]
[ROW][C]Q37 excluded[/C][C]0.9601[/C][C]0.9671[/C][C]1[/C][C]0.3525[/C][/ROW]
[ROW][C]Q38 excluded[/C][C]0.96[/C][C]0.9663[/C][C]1[/C][C]0.3467[/C][/ROW]
[ROW][C]Q39 excluded[/C][C]0.96[/C][C]0.9663[/C][C]1[/C][C]0.3467[/C][/ROW]
[ROW][C]Q40 excluded[/C][C]0.9603[/C][C]0.9669[/C][C]1[/C][C]0.3514[/C][/ROW]
[ROW][C]Q41 excluded[/C][C]0.9607[/C][C]0.9679[/C][C]1[/C][C]0.3584[/C][/ROW]
[ROW][C]Q42 excluded[/C][C]0.9588[/C][C]0.9662[/C][C]1[/C][C]0.3459[/C][/ROW]
[ROW][C]Q43 excluded[/C][C]0.9588[/C][C]0.9662[/C][C]1[/C][C]0.3459[/C][/ROW]
[ROW][C]Q44 excluded[/C][C]0.9605[/C][C]0.9673[/C][C]1[/C][C]0.3542[/C][/ROW]
[ROW][C]Q45 excluded[/C][C]0.9606[/C][C]0.9677[/C][C]1[/C][C]0.3569[/C][/ROW]
[ROW][C]Q46 excluded[/C][C]0.9605[/C][C]0.9674[/C][C]1[/C][C]0.3546[/C][/ROW]
[ROW][C]Q47 excluded[/C][C]0.9603[/C][C]0.9673[/C][C]1[/C][C]0.354[/C][/ROW]
[ROW][C]Q48 excluded[/C][C]0.9589[/C][C]0.9662[/C][C]1[/C][C]0.3459[/C][/ROW]
[ROW][C]Q49 excluded[/C][C]0.9613[/C][C]0.968[/C][C]1[/C][C]0.3593[/C][/ROW]
[ROW][C]Q50 excluded[/C][C]0.959[/C][C]0.9661[/C][C]1[/C][C]0.3451[/C][/ROW]
[ROW][C]Q51 excluded[/C][C]0.9603[/C][C]0.9669[/C][C]1[/C][C]0.3514[/C][/ROW]
[ROW][C]Q52 excluded[/C][C]0.9589[/C][C]0.966[/C][C]1[/C][C]0.3445[/C][/ROW]
[ROW][C]Q53 excluded[/C][C]0.9589[/C][C]0.966[/C][C]1[/C][C]0.3445[/C][/ROW]
[ROW][C]Q54 excluded[/C][C]0.9602[/C][C]0.967[/C][C]1[/C][C]0.3515[/C][/ROW]
[ROW][C]Q55
 excluded[/C][C]0.9619[/C][C]0.9684[/C][C]1[/C][C]0.3617[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=&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 items0.96060.967410.3504
Q1 excluded0.96110.967410.3543
Q2 excluded0.9590.966210.3463
Q3 excluded0.960.966110.3454
Q4 excluded0.95890.965910.3438
Q5 excluded0.95870.966110.3452
Q6 excluded0.960.967110.3526
Q7 excluded0.9620.967910.3583
Q8 excluded0.95910.966410.3476
Q9 excluded0.96020.967210.3534
Q10 excluded0.95950.966510.3481
Q11 excluded0.95940.966610.349
Q12 excluded0.95890.965910.3438
Q13 excluded0.95930.966210.3458
Q14 excluded0.95870.965910.3442
Q15 excluded0.95940.966510.3483
Q16 excluded0.96010.967210.353
Q17 excluded0.95910.96610.3449
Q18 excluded0.96050.967710.3568
Q19 excluded0.95940.966610.3489
Q20 excluded0.96020.96710.3521
Q21 excluded0.96060.967510.3556
Q22 excluded0.96030.967310.3539
Q23 excluded0.95880.966310.3466
Q24 excluded0.96120.967910.3584
Q25 excluded0.95910.966310.3465
Q26 excluded0.96030.966910.3514
Q27 excluded0.960.966310.3467
Q28 excluded0.96030.967410.3544
Q29 excluded0.95950.966810.3504
Q30 excluded0.95850.966110.3453
Q31 excluded0.95920.966610.3492
Q32 excluded0.960.96710.352
Q33 excluded0.960.96710.352
Q34 excluded0.95890.966210.346
Q35 excluded0.96120.967810.3574
Q36 excluded0.96060.967510.3557
Q37 excluded0.96010.967110.3525
Q38 excluded0.960.966310.3467
Q39 excluded0.960.966310.3467
Q40 excluded0.96030.966910.3514
Q41 excluded0.96070.967910.3584
Q42 excluded0.95880.966210.3459
Q43 excluded0.95880.966210.3459
Q44 excluded0.96050.967310.3542
Q45 excluded0.96060.967710.3569
Q46 excluded0.96050.967410.3546
Q47 excluded0.96030.967310.354
Q48 excluded0.95890.966210.3459
Q49 excluded0.96130.96810.3593
Q50 excluded0.9590.966110.3451
Q51 excluded0.96030.966910.3514
Q52 excluded0.95890.96610.3445
Q53 excluded0.95890.96610.3445
Q54 excluded0.96020.96710.3515
Q55 excluded0.96190.968410.3617



Parameters (Session):
par1 = TRUE ;
Parameters (R input):
par1 = TRUE ;
R code (references can be found in the software module):
par1 <- 'TRUE'
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 items',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')