• QR Code (size=2)
• QR Code (size=3)
• QR Code (size=4)
• QR Code (size=5)
• QR Code (size=6)

1418	210907	56	79	30	112285	144
869	120982	56	58	28	84786	103
1530	176508	54	60	38	83123	98
2172	179321	89	108	30	101193	135
901	123185	40	49	22	38361	61
463	52746	25	0	26	68504	39
3201	385534	92	121	25	119182	150
371	33170	18	1	18	22807	5
1192	101645	63	20	11	17140	28
1583	149061	44	43	26	116174	84
1439	165446	33	69	25	57635	80
1764	237213	84	78	38	66198	130
1495	173326	88	86	44	71701	82
1373	133131	55	44	30	57793	60
2187	258873	60	104	40	80444	131
1491	180083	66	63	34	53855	84
4041	324799	154	158	47	97668	140
1706	230964	53	102	30	133824	151
2152	236785	119	77	31	101481	91
1036	135473	41	82	23	99645	138
1882	202925	61	115	36	114789	150
1929	215147	58	101	36	99052	124
2242	344297	75	80	30	67654	119
1220	153935	33	50	25	65553	73
1289	132943	40	83	39	97500	110
2515	174724	92	123	34	69112	123
2147	174415	100	73	31	82753	90
2352	225548	112	81	31	85323	116
1638	223632	73	105	33	72654	113
1222	124817	40	47	25	30727	56
1812	221698	45	105	33	77873	115
1677	210767	60	94	35	117478	119
1579	170266	62	44	42	74007	129
1731	260561	75	114	43	90183	127
807	84853	31	38	30	61542	27
2452	294424	77	107	33	101494	175
829	101011	34	30	13	27570	35
1940	215641	46	71	32	55813	64
2662	325107	99	84	36	79215	96
186	7176	17	0	0	1423	0
1499	167542	66	59	28	55461	84
865	106408	30	33	14	31081	41
1793	96560	76	42	17	22996	47
2527	265769	146	96	32	83122	126
2747	269651	67	106	30	70106	105
1324	149112	56	56	35	60578	80
2702	175824	107	57	20	39992	70
1383	152871	58	59	28	79892	73
1179	111665	34	39	28	49810	57
2099	116408	61	34	39	71570	40
4308	362301	119	76	34	100708	68
918	78800	42	20	26	33032	21
1831	183167	66	91	39	82875	127
3373	277965	89	115	39	139077	154
1713	150629	44	85	33	71595	116
1438	168809	66	76	28	72260	102
496	24188	24	8	4	5950	7
2253	329267	259	79	39	115762	148
744	65029	17	21	18	32551	21
1161	101097	64	30	14	31701	35
2352	218946	41	76	29	80670	112
2144	244052	68	101	44	143558	137
4691	341570	168	94	21	117105	135
1112	103597	43	27	16	23789	26
2694	233328	132	92	28	120733	230
1973	256462	105	123	35	105195	181
1769	206161	71	75	28	73107	71
3148	311473	112	128	38	132068	147
2474	235800	94	105	23	149193	190
2084	177939	82	55	36	46821	64
1954	207176	70	56	32	87011	105
1226	196553	57	41	29	95260	107
1389	174184	53	72	25	55183	94
1496	143246	103	67	27	106671	116
2269	187559	121	75	36	73511	106
1833	187681	62	114	28	92945	143
1268	119016	52	118	23	78664	81
1943	182192	52	77	40	70054	89
893	73566	32	22	23	22618	26
1762	194979	62	66	40	74011	84
1403	167488	45	69	28	83737	113
1425	143756	46	105	34	69094	120
1857	275541	63	116	33	93133	110
1840	243199	75	88	28	95536	134
1502	182999	88	73	34	225920	54
1441	135649	46	99	30	62133	96
1420	152299	53	62	33	61370	78
1416	120221	37	53	22	43836	51
2970	346485	90	118	38	106117	121
1317	145790	63	30	26	38692	38
1644	193339	78	100	35	84651	145
870	80953	25	49	8	56622	59
1654	122774	45	24	24	15986	27
1054	130585	46	67	29	95364	91
937	112611	41	46	20	26706	48
3004	286468	144	57	29	89691	68
2008	241066	82	75	45	67267	58
2547	148446	91	135	37	126846	150
1885	204713	71	68	33	41140	74
1626	182079	63	124	33	102860	181
1468	140344	53	33	25	51715	65
2445	220516	62	98	32	55801	97
1964	243060	63	58	29	111813	121
1381	162765	32	68	28	120293	99
1369	182613	39	81	28	138599	152
1659	232138	62	131	31	161647	188
2888	265318	117	110	52	115929	138
1290	85574	34	37	21	24266	40
2845	310839	92	130	24	162901	254
1982	225060	93	93	41	109825	87
1904	232317	54	118	33	129838	178
1391	144966	144	39	32	37510	51
602	43287	14	13	19	43750	49
1743	155754	61	74	20	40652	73
1559	164709	109	81	31	87771	176
2014	201940	38	109	31	85872	94
2143	235454	73	151	32	89275	120
2146	220801	75	51	18	44418	66
874	99466	50	28	23	192565	56
1590	92661	61	40	17	35232	39
1590	133328	55	56	20	40909	66
1210	61361	77	27	12	13294	27
2072	125930	75	37	17	32387	65
1281	100750	72	83	30	140867	58
1401	224549	50	54	31	120662	98
834	82316	32	27	10	21233	25
1105	102010	53	28	13	44332	26
1272	101523	42	59	22	61056	77
1944	243511	71	133	42	101338	130
391	22938	10	12	1	1168	11
761	41566	35	0	9	13497	2
1605	152474	65	106	32	65567	101
530	61857	25	23	11	25162	31
1988	99923	66	44	25	32334	36
1386	132487	41	71	36	40735	120
2395	317394	86	116	31	91413	195
387	21054	16	4	0	855	4
1742	209641	42	62	24	97068	89
620	22648	19	12	13	44339	24
449	31414	19	18	8	14116	39
800	46698	45	14	13	10288	14
1684	131698	65	60	19	65622	78
1050	91735	35	7	18	16563	15
2699	244749	95	98	33	76643	106
1606	184510	49	64	40	110681	83
1502	79863	37	29	22	29011	24
1204	128423	64	32	38	92696	37
1138	97839	38	25	24	94785	77
568	38214	34	16	8	8773	16
1459	151101	32	48	35	83209	56
2158	272458	65	100	43	93815	132
1111	172494	52	46	43	86687	144
1421	108043	62	45	14	34553	40
2833	328107	65	129	41	105547	153
1955	250579	83	130	38	103487	143
2922	351067	95	136	45	213688	220
1002	158015	29	59	31	71220	79
1060	98866	18	25	13	23517	50
956	85439	33	32	28	56926	39
2186	229242	247	63	31	91721	95
3604	351619	139	95	40	115168	169
1035	84207	29	14	30	111194	12
1417	120445	118	36	16	51009	63
3261	324598	110	113	37	135777	134
1587	131069	67	47	30	51513	69
1424	204271	42	92	35	74163	119
1701	165543	65	70	32	51633	119
1249	141722	94	19	27	75345	75
946	116048	64	50	20	33416	63
1926	250047	81	41	18	83305	55
3352	299775	95	91	31	98952	103
1641	195838	67	111	31	102372	197
2035	173260	63	41	21	37238	16
2312	254488	83	120	39	103772	140
1369	104389	45	135	41	123969	89
1577	136084	30	27	13	27142	40
2201	199476	70	87	32	135400	125
961	92499	32	25	18	21399	21
1900	224330	83	131	39	130115	167
1254	135781	31	45	14	24874	32
1335	74408	67	29	7	34988	36
1597	81240	66	58	17	45549	13
207	14688	10	4	0	6023	5
1645	181633	70	47	30	64466	96
2429	271856	103	109	37	54990	151
151	7199	5	7	0	1644	6
474	46660	20	12	5	6179	13
141	17547	5	0	1	3926	3
1639	133368	36	37	16	32755	57
872	95227	34	37	32	34777	23
1318	152601	48	46	24	73224	61
1018	98146	40	15	17	27114	21
1383	79619	43	42	11	20760	43
1314	59194	31	7	24	37636	20
1335	139942	42	54	22	65461	82
1403	118612	46	54	12	30080	90
910	72880	33	14	19	24094	25
616	65475	18	16	13	69008	60
1407	99643	55	33	17	54968	61
771	71965	35	32	15	46090	85
766	77272	59	21	16	27507	43
473	49289	19	15	24	10672	25
1376	135131	66	38	15	34029	41
1232	108446	60	22	17	46300	26
1521	89746	36	28	18	24760	38
572	44296	25	10	20	18779	12
1059	77648	47	31	16	21280	29
1544	181528	54	32	16	40662	49
1230	134019	53	32	18	28987	46
1206	124064	40	43	22	22827	41
1205	92630	40	27	8	18513	31
1255	121848	39	37	17	30594	41
613	52915	14	20	18	24006	26
721	81872	45	32	16	27913	23
1109	58981	36	0	23	42744	14
740	53515	28	5	22	12934	16
1126	60812	44	26	13	22574	25
728	56375	30	10	13	41385	21
689	65490	22	27	16	18653	32
592	80949	17	11	16	18472	9
995	76302	31	29	20	30976	35
1613	104011	55	25	22	63339	42
2048	98104	54	55	17	25568	68
705	67989	21	23	18	33747	32
301	30989	14	5	17	4154	6
1803	135458	81	43	12	19474	68
799	73504	35	23	7	35130	33
861	63123	43	34	17	39067	84
1186	61254	46	36	14	13310	46
1451	74914	30	35	23	65892	30
628	31774	23	0	17	4143	0
1161	81437	38	37	14	28579	36
1463	87186	54	28	15	51776	47
742	50090	20	16	17	21152	20
979	65745	53	26	21	38084	50
675	56653	45	38	18	27717	30
1241	158399	39	23	18	32928	30
676	46455	20	22	17	11342	34
1049	73624	24	30	17	19499	33
620	38395	31	16	16	16380	34
1081	91899	35	18	15	36874	37
1688	139526	151	28	21	48259	83
736	52164	52	32	16	16734	32
617	51567	30	21	14	28207	30
812	70551	31	23	15	30143	43
1051	84856	29	29	17	41369	41
1656	102538	57	50	15	45833	51
705	86678	40	12	15	29156	19
945	85709	44	21	10	35944	37
554	34662	25	18	6	36278	33
1597	150580	77	27	22	45588	41
982	99611	35	41	21	45097	54
222	19349	11	13	1	3895	14
1212	99373	63	12	18	28394	25
1143	86230	44	21	17	18632	25
435	30837	19	8	4	2325	8
532	31706	13	26	10	25139	26
882	89806	42	27	16	27975	20
608	62088	38	13	16	14483	11
459	40151	29	16	9	13127	14
578	27634	20	2	16	5839	3
826	76990	27	42	17	24069	40
509	37460	20	5	7	3738	5
717	54157	19	37	15	18625	38
637	49862	37	17	14	36341	32
857	84337	26	38	14	24548	41
830	64175	42	37	18	21792	46
652	59382	49	29	12	26263	47
707	119308	30	32	16	23686	37
954	76702	49	35	21	49303	51
1461	103425	67	17	19	25659	49
672	70344	28	20	16	28904	21
778	43410	19	7	1	2781	1
1141	104838	49	46	16	29236	44
680	62215	27	24	10	19546	26
1090	69304	30	40	19	22818	21
616	53117	22	3	12	32689	4
285	19764	12	10	2	5752	10
1145	86680	31	37	14	22197	43
733	84105	20	17	17	20055	34
888	77945	20	28	19	25272	32
849	89113	39	19	14	82206	20
1182	91005	29	29	11	32073	34
528	40248	16	8	4	5444	6
642	64187	27	10	16	20154	12
947	50857	21	15	20	36944	24
819	56613	19	15	12	8019	16
757	62792	35	28	15	30884	72
894	72535	14	17	16	19540	27

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