Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Module--
Title produced by softwareKendall tau Correlation Matrix
Date of computationTue, 21 Aug 2012 19:09:12 -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/Aug/21/t1345590600tuj2sgg5zx3k0hf.htm/, Retrieved Thu, 02 May 2024 16:33:02 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=169481, Retrieved Thu, 02 May 2024 16:33:02 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact183
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [] [2010-12-05 18:56:24] [b98453cac15ba1066b407e146608df68]
- RMPD  [Kendall tau Correlation Matrix] [kendall tau paper] [2011-12-22 15:27:53] [729e3e98c2c68b03161978d53cee5b12]
- RMP       [Kendall tau Correlation Matrix] [] [2012-08-21 23:09:12] [6ca9362bade14820cda7467b7288bbb3] [Current]
Feedback Forum

Post a new message
Dataseries X:
162687	1845	95	595	21	20465
201906	1796	62	545	20	33629
7215	192	18	72	0	1423
146367	2444	97	679	27	25629
257045	3567	139	1201	31	54002
524450	6917	265	1967	36	151036
188294	1840	58	595	23	33287
195674	1740	60	496	30	31172
177020	2078	44	670	30	28113
330194	3118	99	1047	27	57803
121844	1946	75	634	24	49830
203938	2370	72	743	30	52143
113213	1944	106	686	22	21055
220751	3198	120	1086	28	47007
172905	1491	63	419	18	28735
156326	1573	88	474	22	59147
145178	1807	58	442	37	78950
89171	1309	61	373	15	13497
172624	2820	88	899	34	46154
39790	776	27	242	18	53249
87927	1162	62	399	15	10726
241285	2818	103	850	30	83700
195820	1761	73	642	25	40400
146946	2315	56	717	34	33797
159763	1994	89	619	21	36205
207078	1806	34	657	21	30165
212394	2152	166	691	25	58534
201536	1457	95	366	31	44663
394662	3000	121	994	31	92556
217892	2236	46	929	20	40078
182286	1685	45	490	28	34711
181740	1626	47	553	22	31076
137978	2257	107	738	17	74608
255929	3373	130	1028	25	58092
236489	2571	55	844	25	42009
0	1	1	0	0	0
230761	2142	64	1000	31	36022
132807	1878	54	629	14	23333
157118	2190	49	532	35	53349
253254	2186	68	811	34	92596
269329	2533	72	837	22	49598
161273	1823	61	682	34	44093
107181	1095	33	400	23	84205
195891	2162	79	804	24	63369
139667	1365	51	419	26	60132
171101	1245	99	334	23	37403
81407	756	33	216	35	24460
247563	2417	104	786	24	46456
239807	2327	90	752	31	66616
172743	2786	59	964	30	41554
48188	658	28	205	22	22346
169355	2012	70	506	23	30874
325322	2616	77	830	27	68701
241518	2071	79	694	30	35728
195583	1911	59	691	33	29010
159913	1775	57	547	12	23110
220241	1919	70	538	26	38844
101694	1047	26	329	26	27084
157258	1190	68	427	23	35139
202536	2890	99	972	38	57476
173505	1836	64	541	32	33277
150518	2254	83	836	21	31141
141491	1392	64	376	22	61281
125612	1325	38	467	26	25820
166049	1317	36	430	28	23284
124197	1525	42	483	33	35378
195043	2335	71	504	36	74990
138708	2897	65	887	25	29653
116552	1118	40	271	25	64622
31970	340	15	101	21	4157
258158	2977	115	1097	19	29245
151194	1452	79	470	12	50008
135926	1550	68	528	30	52338
119629	1685	73	475	21	13310
171518	2728	71	698	39	92901
108949	1574	45	425	32	10956
183471	2413	60	709	28	34241
159966	2563	98	824	29	75043
93786	1079	34	336	21	21152
84971	1235	72	395	31	42249
88882	980	76	234	26	42005
304603	2246	65	830	29	41152
75101	1076	30	334	23	14399
145043	1637	40	524	25	28263
95827	1208	48	393	22	17215
173924	1865	58	574	26	48140
241957	2726	237	672	33	62897
115367	1208	115	284	24	22883
118408	1419	64	450	24	41622
164078	1609	53	653	21	40715
158931	1864	41	684	28	65897
184139	2412	82	706	28	76542
152856	1238	58	417	25	37477
144014	1462	59	549	15	53216
62535	973	42	394	13	40911
245196	2319	117	730	36	57021
199841	1890	71	571	27	73116
19349	223	12	67	1	3895
247280	2526	108	877	24	46609
159408	2072	83	856	31	29351
72128	778	30	306	4	2325
104253	1194	26	382	21	31747
151090	1424	57	435	27	32665
137382	1328	66	336	23	19249
87448	839	42	227	12	15292
27676	596	22	194	16	5842
165507	1671	50	410	29	33994
132148	1167	37	273	26	13018
0	0	0	0	0	0
95778	1106	34	343	25	98177
109001	1148	67	376	21	37941
158833	1485	46	495	24	31032
147690	1526	63	448	21	32683
89887	962	63	313	21	34545
3616	78	5	14	0	0
0	0	0	0	0	0
199005	1184	45	410	23	27525
160930	1671	92	606	33	66856
177948	2142	102	593	32	28549
136061	1015	39	312	23	38610
43410	778	19	292	1	2781
184277	1856	74	547	29	41211
108858	1056	43	302	20	22698
151030	2297	59	660	33	41194
60493	731	40	174	12	32689
19764	285	12	75	2	5752
177559	1872	56	572	21	26757
140281	1181	35	389	28	22527
164249	1725	54	562	35	44810
11796	256	9	79	2	0
10674	98	9	33	0	0
151322	1435	59	487	18	100674
6836	41	3	11	1	0
174712	1930	67	664	21	57786
5118	42	3	6	0	0
40248	528	16	183	4	5444
0	0	0	0	0	0
127628	1121	50	342	29	28470
88837	1305	38	269	26	61849
7131	81	4	27	0	0
9056	262	15	99	4	2179
87957	1099	26	305	19	8019
144470	1290	53	327	22	39644
111408	1248	20	459	22	23494




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=169481&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 time2 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net







Correlations for all pairs of data series (method=kendall)
TimePageviewsLoginsCompendiumviewsreviewedcompendiumscaracters
Time10.6990.5490.6790.4330.456
Pageviews0.69910.6150.840.4590.46
Logins0.5490.61510.5710.3580.46
Compendiumviews0.6790.840.57110.4130.438
reviewedcompendiums0.4330.4590.3580.41310.427
caracters0.4560.460.460.4380.4271

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=kendall) \tabularnewline
  & Time & Pageviews & Logins & Compendiumviews & reviewedcompendiums & caracters \tabularnewline
Time & 1 & 0.699 & 0.549 & 0.679 & 0.433 & 0.456 \tabularnewline
Pageviews & 0.699 & 1 & 0.615 & 0.84 & 0.459 & 0.46 \tabularnewline
Logins & 0.549 & 0.615 & 1 & 0.571 & 0.358 & 0.46 \tabularnewline
Compendiumviews & 0.679 & 0.84 & 0.571 & 1 & 0.413 & 0.438 \tabularnewline
reviewedcompendiums & 0.433 & 0.459 & 0.358 & 0.413 & 1 & 0.427 \tabularnewline
caracters & 0.456 & 0.46 & 0.46 & 0.438 & 0.427 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=169481&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=kendall)[/C][/ROW]
[ROW][C] [/C][C]Time[/C][C]Pageviews[/C][C]Logins[/C][C]Compendiumviews[/C][C]reviewedcompendiums[/C][C]caracters[/C][/ROW]
[ROW][C]Time[/C][C]1[/C][C]0.699[/C][C]0.549[/C][C]0.679[/C][C]0.433[/C][C]0.456[/C][/ROW]
[ROW][C]Pageviews[/C][C]0.699[/C][C]1[/C][C]0.615[/C][C]0.84[/C][C]0.459[/C][C]0.46[/C][/ROW]
[ROW][C]Logins[/C][C]0.549[/C][C]0.615[/C][C]1[/C][C]0.571[/C][C]0.358[/C][C]0.46[/C][/ROW]
[ROW][C]Compendiumviews[/C][C]0.679[/C][C]0.84[/C][C]0.571[/C][C]1[/C][C]0.413[/C][C]0.438[/C][/ROW]
[ROW][C]reviewedcompendiums[/C][C]0.433[/C][C]0.459[/C][C]0.358[/C][C]0.413[/C][C]1[/C][C]0.427[/C][/ROW]
[ROW][C]caracters[/C][C]0.456[/C][C]0.46[/C][C]0.46[/C][C]0.438[/C][C]0.427[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=169481&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=169481&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Correlations for all pairs of data series (method=kendall)
TimePageviewsLoginsCompendiumviewsreviewedcompendiumscaracters
Time10.6990.5490.6790.4330.456
Pageviews0.69910.6150.840.4590.46
Logins0.5490.61510.5710.3580.46
Compendiumviews0.6790.840.57110.4130.438
reviewedcompendiums0.4330.4590.3580.41310.427
caracters0.4560.460.460.4380.4271







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
Time;Pageviews0.89210.8570.6985
p-value(0)(0)(0)
Time;Logins0.75920.71480.5489
p-value(0)(0)(0)
Time;Compendiumviews0.88210.8480.6789
p-value(0)(0)(0)
Time;reviewedcompendiums0.6720.58220.4327
p-value(0)(0)(0)
Time;caracters0.67870.60990.4556
p-value(0)(0)(0)
Pageviews;Logins0.81750.78020.6149
p-value(0)(0)(0)
Pageviews;Compendiumviews0.96590.96050.8401
p-value(0)(0)(0)
Pageviews;reviewedcompendiums0.67520.61750.459
p-value(0)(0)(0)
Pageviews;caracters0.68560.61860.4598
p-value(0)(0)(0)
Logins;Compendiumviews0.75950.73720.5713
p-value(0)(0)(0)
Logins;reviewedcompendiums0.5470.48670.3582
p-value(0)(0)(0)
Logins;caracters0.61680.60520.4597
p-value(0)(0)(0)
Compendiumviews;reviewedcompendiums0.62740.55920.4126
p-value(0)(0)(0)
Compendiumviews;caracters0.63760.59790.4378
p-value(0)(0)(0)
reviewedcompendiums;caracters0.61630.56850.4267
p-value(0)(0)(0)

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series with p-values \tabularnewline
pair & Pearson r & Spearman rho & Kendall tau \tabularnewline
Time;Pageviews & 0.8921 & 0.857 & 0.6985 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Time;Logins & 0.7592 & 0.7148 & 0.5489 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Time;Compendiumviews & 0.8821 & 0.848 & 0.6789 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Time;reviewedcompendiums & 0.672 & 0.5822 & 0.4327 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Time;caracters & 0.6787 & 0.6099 & 0.4556 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pageviews;Logins & 0.8175 & 0.7802 & 0.6149 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pageviews;Compendiumviews & 0.9659 & 0.9605 & 0.8401 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pageviews;reviewedcompendiums & 0.6752 & 0.6175 & 0.459 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pageviews;caracters & 0.6856 & 0.6186 & 0.4598 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Logins;Compendiumviews & 0.7595 & 0.7372 & 0.5713 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Logins;reviewedcompendiums & 0.547 & 0.4867 & 0.3582 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Logins;caracters & 0.6168 & 0.6052 & 0.4597 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Compendiumviews;reviewedcompendiums & 0.6274 & 0.5592 & 0.4126 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Compendiumviews;caracters & 0.6376 & 0.5979 & 0.4378 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
reviewedcompendiums;caracters & 0.6163 & 0.5685 & 0.4267 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=169481&T=2

[TABLE]
[ROW][C]Correlations for all pairs of data series with p-values[/C][/ROW]
[ROW][C]pair[/C][C]Pearson r[/C][C]Spearman rho[/C][C]Kendall tau[/C][/ROW]
[ROW][C]Time;Pageviews[/C][C]0.8921[/C][C]0.857[/C][C]0.6985[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Time;Logins[/C][C]0.7592[/C][C]0.7148[/C][C]0.5489[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Time;Compendiumviews[/C][C]0.8821[/C][C]0.848[/C][C]0.6789[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Time;reviewedcompendiums[/C][C]0.672[/C][C]0.5822[/C][C]0.4327[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Time;caracters[/C][C]0.6787[/C][C]0.6099[/C][C]0.4556[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pageviews;Logins[/C][C]0.8175[/C][C]0.7802[/C][C]0.6149[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pageviews;Compendiumviews[/C][C]0.9659[/C][C]0.9605[/C][C]0.8401[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pageviews;reviewedcompendiums[/C][C]0.6752[/C][C]0.6175[/C][C]0.459[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pageviews;caracters[/C][C]0.6856[/C][C]0.6186[/C][C]0.4598[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Logins;Compendiumviews[/C][C]0.7595[/C][C]0.7372[/C][C]0.5713[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Logins;reviewedcompendiums[/C][C]0.547[/C][C]0.4867[/C][C]0.3582[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Logins;caracters[/C][C]0.6168[/C][C]0.6052[/C][C]0.4597[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Compendiumviews;reviewedcompendiums[/C][C]0.6274[/C][C]0.5592[/C][C]0.4126[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Compendiumviews;caracters[/C][C]0.6376[/C][C]0.5979[/C][C]0.4378[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]reviewedcompendiums;caracters[/C][C]0.6163[/C][C]0.5685[/C][C]0.4267[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=169481&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=169481&T=2

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
Time;Pageviews0.89210.8570.6985
p-value(0)(0)(0)
Time;Logins0.75920.71480.5489
p-value(0)(0)(0)
Time;Compendiumviews0.88210.8480.6789
p-value(0)(0)(0)
Time;reviewedcompendiums0.6720.58220.4327
p-value(0)(0)(0)
Time;caracters0.67870.60990.4556
p-value(0)(0)(0)
Pageviews;Logins0.81750.78020.6149
p-value(0)(0)(0)
Pageviews;Compendiumviews0.96590.96050.8401
p-value(0)(0)(0)
Pageviews;reviewedcompendiums0.67520.61750.459
p-value(0)(0)(0)
Pageviews;caracters0.68560.61860.4598
p-value(0)(0)(0)
Logins;Compendiumviews0.75950.73720.5713
p-value(0)(0)(0)
Logins;reviewedcompendiums0.5470.48670.3582
p-value(0)(0)(0)
Logins;caracters0.61680.60520.4597
p-value(0)(0)(0)
Compendiumviews;reviewedcompendiums0.62740.55920.4126
p-value(0)(0)(0)
Compendiumviews;caracters0.63760.59790.4378
p-value(0)(0)(0)
reviewedcompendiums;caracters0.61630.56850.4267
p-value(0)(0)(0)



Parameters (Session):
par1 = kendall ;
Parameters (R input):
par1 = kendall ; par2 = ; par3 = ; par4 = ; par5 = ; par6 = ; par7 = ; par8 = ; par9 = ; par10 = ; par11 = ; par12 = ; par13 = ; par14 = ; par15 = ; par16 = ; par17 = ; par18 = ; par19 = ; par20 = ;
R code (references can be found in the software module):
panel.tau <- function(x, y, digits=2, prefix='', cex.cor)
{
usr <- par('usr'); on.exit(par(usr))
par(usr = c(0, 1, 0, 1))
rr <- cor.test(x, y, method=par1)
r <- round(rr$p.value,2)
txt <- format(c(r, 0.123456789), digits=digits)[1]
txt <- paste(prefix, txt, sep='')
if(missing(cex.cor)) cex <- 0.5/strwidth(txt)
text(0.5, 0.5, txt, cex = cex)
}
panel.hist <- function(x, ...)
{
usr <- par('usr'); on.exit(par(usr))
par(usr = c(usr[1:2], 0, 1.5) )
h <- hist(x, plot = FALSE)
breaks <- h$breaks; nB <- length(breaks)
y <- h$counts; y <- y/max(y)
rect(breaks[-nB], 0, breaks[-1], y, col='grey', ...)
}
bitmap(file='test1.png')
pairs(t(y),diag.panel=panel.hist, upper.panel=panel.smooth, lower.panel=panel.tau, main=main)
dev.off()
load(file='createtable')
n <- length(y[,1])
n
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,paste('Correlations for all pairs of data series (method=',par1,')',sep=''),n+1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,' ',header=TRUE)
for (i in 1:n) {
a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE)
}
a<-table.row.end(a)
for (i in 1:n) {
a<-table.row.start(a)
a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE)
for (j in 1:n) {
r <- cor.test(y[i,],y[j,],method=par1)
a<-table.element(a,round(r$estimate,3))
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Correlations for all pairs of data series with p-values',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'pair',1,TRUE)
a<-table.element(a,'Pearson r',1,TRUE)
a<-table.element(a,'Spearman rho',1,TRUE)
a<-table.element(a,'Kendall tau',1,TRUE)
a<-table.row.end(a)
cor.test(y[1,],y[2,],method=par1)
for (i in 1:(n-1))
{
for (j in (i+1):n)
{
a<-table.row.start(a)
dum <- paste(dimnames(t(x))[[2]][i],';',dimnames(t(x))[[2]][j],sep='')
a<-table.element(a,dum,header=TRUE)
rp <- cor.test(y[i,],y[j,],method='pearson')
a<-table.element(a,round(rp$estimate,4))
rs <- cor.test(y[i,],y[j,],method='spearman')
a<-table.element(a,round(rs$estimate,4))
rk <- cor.test(y[i,],y[j,],method='kendall')
a<-table.element(a,round(rk$estimate,4))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'p-value',header=T)
a<-table.element(a,paste('(',round(rp$p.value,4),')',sep=''))
a<-table.element(a,paste('(',round(rs$p.value,4),')',sep=''))
a<-table.element(a,paste('(',round(rk$p.value,4),')',sep=''))
a<-table.row.end(a)
}
}
a<-table.end(a)
table.save(a,file='mytable1.tab')