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 computationMon, 03 Jun 2019 14:03:28 +0200
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2019/Jun/03/t1559563887y5abskiieal2p3z.htm/, Retrieved Thu, 02 May 2024 16:10:02 +0200
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=, Retrieved Thu, 02 May 2024 16:10:02 +0200
QR Codes:

Original text written by user:
IsPrivate?This computation is private
User-defined keywords
Estimated Impact0

Tree of Dependent Computations

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
7	7	7	6	5
7	9	6	4	1
8	8	9	9	3
9	8	7	8	5
9	8	7	8	3
8	9	9	8	3
7	7	7	8	7
4	9	3	1	1
7	8	8	7	7
8	9	9	7	1
9	9	9	8	2
7	6	7	5	1
8	8	8	8	8
6	8	8	9	4
6	8	6	5	1
8	9	7	7	3
9	8	9	9	2
7	7	7	8	6
9	9	8	8	2
9	7	9	9	4
6	6	9	8	1
6	8	7	5	6
6	8	8	5	5
6	7	8	6	3
NA	NA	NA	NA	NA
9	7	8	7	3
8	8	8	8	4
7	9	6	7	2
8	7	7	7	3
7	8	9	6	7
8	9	9	9	1
5	5	5	5	5
8	8	8	8	3
9	8	9	9	7
9	9	9	9	6
6	8	9	6	7
8	9	8	9	6
8	9	9	9	1
9	9	8	9	NA
9	5	9	5	5
7	8	8	8	3
8	8	9	9	2
7	9	8	6	6
7	7	6	6	6
9	9	9	9	4
9	9	9	9	1
8	8	8	8	5
8	9	7	4	3
9	8	7	4	3
6	7	8	5	6
5	8	4	6	1
5	6	5	3	4
NA	6	7	7	6
7	7	7	8	7
6	6	7	6	2
9	9	9	9	6
9	9	9	9	9
7	9	8	9	1
8	7	8	7	3
9	9	8	9	1
7	8	8	5	2
7	6	6	7	6
7	7	7	7	5
8	9	9	6	3
8	9	8	8	7
9	9	9	9	4
8	8	8	7	1
9	9	9	7	4
8	8	8	8	4
8	8	8	7	4
8	9	8	8	3
7	9	8	8	1
7	8	8	8	5
9	8	9	8	4
9	9	9	9	1
8	9	9	7	1
8	8	9	7	3
8	8	8	8	8
7	9	8	5	5
7	7	7	8	1
6	8	8	8	4
8	9	9	8	3
9	9	9	9	1
5	8	8	8	6
9	9	9	9	3
9	9	9	8	8
7	1	9	1	9
6	9	9	9	6
8	9	8	8	7
7	7	7	6	6
9	9	9	9	9
8	8	8	8	7
7	8	9	6	1
8	8	8	7	5
9	8	9	7	7
8	7	8	8	1
8	8	8	8	5
9	9	9	9	4
9	9	7	6	3
9	7	7	7	5
2	9	9	9	7
7	7	8	7	1
2	9	9	9	2
8	8	7	7	1
6	8	9	8	8
9	9	9	9	3
5	5	7	8	1
7	8	8	6	6
8	8	8	8	2
7	9	7	8	1
7	7	7	7	4
7	8	9	8	3
7	7	6	5	6
8	7	6	7	6
8	4	7	4	2
9	9	9	9	1
9	8	8	8	4
9	9	9	8	1
9	8	8	7	3
9	9	9	8	6
8	9	6	7	3
7	9	8	7	4
9	9	9	9	1
9	9	9	8	1
4	8	8	4	4
9	8	7	7	3
8	9	8	7	6
5	4	5	6	6
7	9	7	4	1
9	8	9	8	1
7	8	9	8	1
9	9	9	8	1
9	8	8	7	4
7	9	8	7	5
9	9	6	5	1
6	7	8	8	3
8	7	8	7	1
4	9	8	3	1
8	9	8	7	8
9	9	9	8	1
8	7	7	7	4
8	8	9	7	1
9	9	9	7	1
9	9	9	9	1
8	9	8	8	2
8	9	9	7	5
9	9	9	9	8
8	7	8	8	3
9	5	7	4	1
7	7	8	6	1
8	7	7	6	1
8	9	9	8	5
8	8	8	8	2
8	6	8	8	1
9	9	9	9	1
8	8	9	7	2
8	8	8	8	3
9	9	9	9	7
6	6	7	7	3
7	8	8	8	4
8	4	9	9	1
8	9	8	7	2
7	9	9	8	5
NA	NA	NA	NA	NA
8	9	9	8	3
8	9	8	7	2
8	9	6	8	1
7	7	7	6	4
9	8	9	7	3
8	8	7	7	4
NA	NA	NA	NA	NA
9	9	8	7	3
7	5	7	4	2
8	5	7	8	3
6	6	7	7	1
1	7	7	7	1
2	8	9	8	1
7	7	7	7	7
9	9	8	7	6
9	8	8	8	1
7	8	9	8	2
9	8	9	9	1
8	7	9	9	1
7	8	8	8	8
9	9	8	3	5
8	9	9	8	7
8	8	7	3	1
1	1	1	1	1
9	9	8	8	1
8	6	6	6	4
7	7	6	6	3
8	9	9	9	1
9	7	7	7	5
8	5	5	7	6
7	9	8	8	3
9	9	9	9	1
8	8	8	8	3
8	9	9	5	1
9	9	9	9	1
9	7	9	6	1
NA	NA	NA	NA	NA
5	5	7	6	6
7	7	7	6	1
7	7	7	7	3
8	8	9	9	1
7	8	7	7	7
8	9	8	8	1
6	6	6	4	1
9	8	8	7	1
9	9	7	5	1
8	8	8	8	6
9	9	9	9	6
7	9	7	5	1
8	9	9	7	1
5	7	8	8	7
8	9	9	5	1
6	4	6	6	2
8	8	8	8	3
7	8	7	8	6
7	8	8	8	6
6	4	6	6	6
9	9	8	7	1
7	9	7	6	5
7	5	7	8	2
6	8	6	6	1
6	7	8	7	5
6	4	6	5	4
7	4	6	7	7
8	9	9	9	5
4	9	8	7	3
9	7	8	7	3
NA	NA	NA	NA	NA
6	6	6	6	6
6	8	9	8	2
6	8	8	6	1
8	8	8	8	5
5	5	5	5	5
7	9	8	6	1
8	5	7	6	7
9	9	9	9	2
8	8	5	6	1
7	6	6	7	6
7	8	9	9	6
9	8	9	7	4
9	4	7	5	2
9	9	9	8	1
7	8	9	6	7
7	9	8	7	7
7	8	8	8	3
7	9	8	6	1
9	8	9	9	7
7	7	6	6	1
5	2	8	5	2
7	8	8	8	1
6	5	6	4	3
8	8	8	8	2
8	9	8	9	2
NA	NA	NA	NA	NA
8	9	9	9	2
7	7	6	7	2
5	5	5	5	5
9	9	7	6	1
6	6	6	6	6
8	9	9	9	2
7	7	7	6	8
9	9	9	9	1
8	8	8	6	6
7	9	8	6	2
7	8	8	8	2
8	9	9	8	1
6	5	6	6	6
8	8	8	8	1
8	8	9	9	1
9	9	9	8	7
8	9	8	5	5
7	6	7	7	3
6	8	8	8	4
8	8	8	6	5
8	8	8	8	6
8	8	9	9	1
7	6	7	7	5
8	9	9	7	2
5	9	5	7	1
7	6	8	9	2
7	7	6	5	1
8	7	8	8	3
9	9	9	9	4
8	8	8	8	2
9	8	8	7	4
8	7	7	7	4
7	8	5	6	2
5	6	8	8	3
7	9	9	9	5
7	8	7	7	2
9	9	7	8	1
NA	NA	NA	NA	NA
7	8	7	8	1
3	6	4	6	7
8	9	8	8	3
9	2	2	5	1
9	9	9	9	1
9	9	9	8	1
6	8	8	9	2
8	8	7	7	3
7	8	8	6	4
5	5	NA	NA	6
8	7	8	7	4
8	8	8	8	1
9	8	9	8	2
9	8	8	7	2
9	9	9	8	5
9	7	9	9	1
6	6	6	6	7
9	9	9	8	9
9	NA	9	8	5
8	7	8	7	8
9	8	7	6	8
5	7	5	4	4
8	8	8	8	6
8	8	8	8	5
3	6	7	7	5
8	8	9	7	3
8	8	9	9	3
7	9	8	7	1
7	9	9	9	1
9	9	9	9	5
7	8	8	8	3
8	8	8	8	6
1	6	8	5	1
9	9	9	9	5
9	9	8	8	7
9	9	9	9	6
8	8	8	9	3
6	8	7	8	2
8	8	8	8	8
6	6	8	7	4
7	7	8	7	7
8	8	8	8	1
9	9	9	8	5
8	7	9	8	6
8	8	9	9	7
7	9	7	9	1
7	7	6	7	5
7	7	7	8	4
3	7	6	9	1
9	9	9	9	4
9	9	9	9	1
7	7	9	6	3
5	5	6	6	7
9	8	8	9	8
7	8	7	8	2
8	8	7	7	1
8	8	8	7	6
7	8	8	8	1
4	8	8	8	2
3	8	7	7	1
8	8	9	9	5
8	9	7	9	1
7	8	8	8	6
9	9	9	9	5
9	8	9	9	4
6	9	8	1	1
7	8	8	8	2
7	8	7	6	3
4	9	5	5	3
8	8	8	8	6
8	9	9	9	2
9	9	7	7	1
8	6	8	7	3
9	9	9	9	7
7	8	7	7	3
8	9	8	7	3
NA	NA	NA	NA	NA
9	9	8	9	8
7	9	9	8	1
7	6	7	6	7
9	9	9	7	1
8	7	8	7	6
7	9	7	5	2
9	9	9	8	5
6	8	8	6	1
5	6	5	5	6
NA	8	9	7	7
8	9	8	8	3
8	8	8	7	8
NA	NA	NA	NA	NA
6	7	7	7	2
9	9	9	9	1
6	7	8	6	4
7	9	9	9	5
6	9	9	9	8
8	9	9	9	1
9	9	6	7	2
7	8	7	6	1
8	8	7	7	6
7	7	6	8	4
8	7	9	8	7
8	8	8	7	7
8	9	9	9	5
8	8	8	8	2
9	7	9	9	1
8	8	7	7	3
6	6	9	8	1
8	7	8	7	1
8	6	7	7	7
9	8	8	8	3
7	9	8	7	4
8	9	8	6	8
8	8	9	NA	2
7	7	8	9	3
8	8	8	8	5
6	8	9	8	1
8	7	8	8	1
8	9	9	8	1
8	9	9	9	5
2	6	7	2	7
9	9	9	8	1
8	9	9	9	8
7	4	4	7	5
5	5	5	5	5
8	8	8	8	8
5	7	7	8	2
7	9	9	9	2
7	8	9	9	2
7	8	8	7	3
9	9	9	9	3
6	8	7	8	4
7	8	7	8	5
8	8	8	8	7
9	8	9	8	1
6	6	6	6	6
9	8	9	9	6
8	7	8	8	7
7	4	7	6	5
8	8	8	6	2
8	8	8	8	1
9	9	9	7	6
9	9	9	9	1
9	9	9	8	1
6	7	8	8	4
8	9	9	8	1
7	9	3	3	5
9	9	9	9	1
7	6	7	7	4
9	9	9	7	2
8	8	9	8	7
2	7	2	7	2
8	9	9	9	6
8	9	8	7	1
7	7	7	7	8
8	8	7	7	8
9	8	9	8	7
8	9	9	9	2
8	8	7	8	8
6	7	NA	7	6
5	7	8	5	6
9	9	9	9	1
8	7	7	7	6
8	7	7	8	8
7	6	3	7	4
7	8	7	6	3
7	7	7	7	1
8	9	9	6	1
9	8	9	9	2
8	9	9	9	3
7	9	9	9	2
8	8	9	7	6
8	7	7	6	2
6	7	7	8	2
9	9	9	9	6
8	8	8	7	6
6	6	5	5	5
9	9	9	9	2
5	7	8	6	5
9	7	9	9	3
6	6	6	7	3
8	9	8	7	1
8	8	7	5	3
8	9	9	8	1
9	9	9	8	3
7	7	7	6	2
7	7	7	7	7
4	6	6	4	5
7	7	7	7	6
7	6	8	8	6
7	7	7	7	7
9	9	8	8	6
5	9	8	3	3
7	9	7	6	1
8	8	8	5	4
8	6	8	8	6
2	5	6	5	3
8	8	8	6	6
5	7	7	7	3
9	8	7	5	3
8	8	8	8	5
7	8	7	7	1
8	7	8	7	6
7	9	8	5	3
9	9	9	9	4
6	7	8	9	1
9	9	9	8	2
9	9	8	9	2
6	8	8	6	2
7	8	9	9	2
7	7	8	8	9
9	7	8	8	9
7	9	7	7	8
8	9	9	9	2
6	8	7	8	1
8	9	9	5	1
2	2	8	2	2
7	7	8	8	1
3	9	9	9	1
9	9	8	8	7
8	8	8	7	6
9	7	9	9	1
9	7	9	5	8
7	8	6	6	2
8	9	7	8	6
8	7	7	6	3
8	9	8	8	1
8	8	8	2	1
9	6	9	9	1
7	7	7	7	4
7	7	7	7	5
9	9	9	8	2
9	9	8	8	1
9	9	8	8	5
9	9	9	8	5
9	9	9	9	6
8	8	8	8	7
9	3	8	9	1
6	9	8	7	1
6	7	8	8	6
8	8	8	7	1
7	7	8	6	1
9	8	9	6	3
7	7	7	8	2
8	3	NA	8	2
NA	8	7	8	8
9	3	9	6	3
6	6	7	4	7
9	9	9	7	6
6	8	6	7	4
8	8	9	7	3
7	6	7	3	1
7	8	8	8	1
8	8	7	7	4
8	9	8	8	7
9	9	9	9	1
9	9	8	7	3
9	8	8	6	5
7	7	6	5	3
8	9	9	9	4
9	9	5	1	3
1	2	7	6	4
6	8	7	7	2
6	8	7	5	5
NA	6	7	6	1
7	9	8	6	2
8	7	7	6	1
7	9	8	7	2
7	8	8	5	4
8	6	8	7	3
9	9	9	8	1
7	5	6	6	3
7	5	8	7	7
9	7	8	8	1
6	6	7	7	8
7	8	8	8	5
8	8	8	8	1
8	8	6	6	8
6	6	6	6	6
8	8	9	9	7
8	8	7	7	6
8	9	8	7	7
7	8	7	8	8
8	9	9	7	3
8	7	8	8	9
8	8	7	6	1
8	9	9	8	6
8	9	9	8	3
8	8	8	7	2
7	1	9	4	5
9	7	5	5	1
6	7	7	8	1
7	7	8	5	5
9	8	9	9	4
8	8	8	6	2
8	8	8	8	4
7	9	9	5	5
7	7	7	7	8
9	6	5	5	8
5	8	7	7	5
7	9	9	9	5
9	9	8	9	8
8	9	9	9	2
7	9	9	9	8
8	9	9	8	1
6	7	7	5	4
8	8	7	8	1
8	8	6	6	2
9	9	9	6	2
5	9	7	7	1
8	9	9	7	6
8	9	8	7	3
8	8	8	6	2
8	8	8	9	8
9	7	9	7	1
8	9	9	9	7
7	9	8	7	4
7	8	8	7	4
9	7	9	9	4
9	8	7	7	1
9	9	9	9	7
7	7	9	9	1
8	9	8	8	1
9	9	9	9	9
8	8	8	8	8
8	9	9	9	5
6	7	6	6	2
7	7	8	7	2
9	9	8	7	7
9	9	8	9	1
8	9	9	9	1
9	7	9	8	5
8	9	8	8	1
9	8	9	8	7
7	7	8	8	8
8	6	7	6	9
8	9	9	9	2
8	9	8	1	1
8	9	8	8	2
9	9	9	9	9
9	8	8	9	1
7	9	8	9	6
5	8	9	9	1
6	9	7	9	1
7	8	7	7	6
8	9	8	8	5
7	8	9	5	1
6	3	4	4	6
9	9	9	8	8
9	9	9	9	7
7	6	7	7	2
7	8	9	7	3
NA	NA	NA	NA	NA
7	8	7	8	5
8	NA	8	6	8
9	9	8	5	4
9	8	8	7	1
5	7	7	7	1
NA	NA	NA	NA	NA
7	6	7	7	1
8	8	8	9	2
7	5	8	7	3
8	8	8	8	8
7	8	8	8	6
9	9	9	9	4
4	6	7	7	2
9	8	7	7	1
8	8	9	9	7
8	NA	8	8	5
7	8	8	8	1
5	9	9	8	1
8	8	9	9	8
8	9	7	8	9
9	9	8	7	4
7	9	9	9	5
7	8	8	7	5
9	9	9	9	4
9	8	7	6	5
NA	NA	NA	NA	NA
8	9	9	8	1
9	9	9	9	1
7	9	9	8	4
7	6	7	4	4
8	8	7	6	6
9	9	9	9	1
9	8	8	7	3
6	9	9	3	3
9	9	9	9	1
8	8	8	8	6
6	8	9	7	6
8	8	8	8	1
3	8	4	2	4
7	6	9	9	4
7	9	9	8	1
7	8	5	5	2
7	8	7	4	4
9	9	9	3	1
5	9	9	9	1
9	8	8	8	7
8	9	9	9	7
6	7	3	5	1
8	7	7	8	8
9	8	8	8	4
8	8	8	7	1
9	9	9	8	1
7	6	7	7	6
8	9	9	8	5
8	9	9	6	1
8	9	8	8	4
5	6	6	7	5
5	8	7	9	7
8	7	7	5	5
NA	NA	NA	NA	NA
4	7	6	4	1
7	8	9	8	8
8	8	8	9	6
9	9	9	8	6
5	5	5	5	6
9	8	8	7	6
8	6	7	8	5
8	6	6	7	3
7	8	9	8	3
9	9	9	9	1
9	9	8	6	1
9	7	8	7	6
9	8	7	6	7
7	6	8	9	8
8	9	9	7	1
8	8	5	7	3
9	7	9	9	1
7	5	5	8	6
8	5	5	2	2

Tables (Output of Computation)





Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center

\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 time1 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \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]1 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/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:  
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 time1 seconds
R ServerBig Analytics Cloud Computing Center






Cronbach Alpha and Related Statistics
ItemsCronbach AlphaStd. AlphaG6(smc)Average R
All itmes0.53750.63950.63660.2619
DD excluded0.44380.56450.56140.2447
DK excluded0.39110.52120.52440.2139
DP excluded0.38620.48620.4660.1913
DQ excluded0.43250.55010.53330.2341
DT excluded0.74030.74740.69710.4252

\begin{tabular}{lllllllll}
\hline
Cronbach Alpha and Related Statistics \tabularnewline
Items & Cronbach Alpha & Std. Alpha & G6(smc) & Average R \tabularnewline
All itmes & 0.5375 & 0.6395 & 0.6366 & 0.2619 \tabularnewline
DD excluded & 0.4438 & 0.5645 & 0.5614 & 0.2447 \tabularnewline
DK excluded & 0.3911 & 0.5212 & 0.5244 & 0.2139 \tabularnewline
DP excluded & 0.3862 & 0.4862 & 0.466 & 0.1913 \tabularnewline
DQ excluded & 0.4325 & 0.5501 & 0.5333 & 0.2341 \tabularnewline
DT excluded & 0.7403 & 0.7474 & 0.6971 & 0.4252 \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 itmes[/C][C]0.5375[/C][C]0.6395[/C][C]0.6366[/C][C]0.2619[/C][/ROW]
[ROW][C]DD excluded[/C][C]0.4438[/C][C]0.5645[/C][C]0.5614[/C][C]0.2447[/C][/ROW]
[ROW][C]DK excluded[/C][C]0.3911[/C][C]0.5212[/C][C]0.5244[/C][C]0.2139[/C][/ROW]
[ROW][C]DP excluded[/C][C]0.3862[/C][C]0.4862[/C][C]0.466[/C][C]0.1913[/C][/ROW]
[ROW][C]DQ excluded[/C][C]0.4325[/C][C]0.5501[/C][C]0.5333[/C][C]0.2341[/C][/ROW]
[ROW][C]DT excluded[/C][C]0.7403[/C][C]0.7474[/C][C]0.6971[/C][C]0.4252[/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:  
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.53750.63950.63660.2619
DD excluded0.44380.56450.56140.2447
DK excluded0.39110.52120.52440.2139
DP excluded0.38620.48620.4660.1913
DQ excluded0.43250.55010.53330.2341
DT excluded0.74030.74740.69710.4252


Figures (Output of Computation)

Input Parameters & R Code

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