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

1530	210907	56	79	30	3
2172	120982	56	58	28	4
901	176508	54	60	38	12
463	179321	89	108	30	2
3201	123185	40	49	22	1
371	52746	25	0	26	3
1192	385534	92	121	25	0
1583	33170	18	1	18	0
1439	101645	63	20	11	0
1764	149061	44	43	26	5
1495	165446	33	69	25	0
1373	237213	84	78	38	0
2187	173326	88	86	44	7
1491	133131	55	44	30	7
4041	258873	60	104	40	3
1706	180083	66	63	34	9
2152	324799	154	158	47	0
1036	230964	53	102	30	4
1882	236785	119	77	31	3
1929	135473	41	82	23	0
2242	202925	61	115	36	7
1220	215147	58	101	36	0
1289	344297	75	80	30	1
2515	153935	33	50	25	5
2147	132943	40	83	39	7
2352	174724	92	123	34	0
1638	174415	100	73	31	0
1222	225548	112	81	31	5
1812	223632	73	105	33	0
1677	124817	40	47	25	0
1579	221698	45	105	33	0
1731	210767	60	94	35	3
807	170266	62	44	42	4
2452	260561	75	114	43	1
829	84853	31	38	30	4
1940	294424	77	107	33	2
2662	101011	34	30	13	0
186	215641	46	71	32	0
1499	325107	99	84	36	0
865	7176	17	0	0	0
1793	167542	66	59	28	2
2527	106408	30	33	14	1
2747	96560	76	42	17	0
1324	265769	146	96	32	2
2702	269651	67	106	30	10
1383	149112	56	56	35	6
1179	175824	107	57	20	0
2099	152871	58	59	28	5
4308	111665	34	39	28	4
918	116408	61	34	39	1
1831	362301	119	76	34	2
3373	78800	42	20	26	2
1713	183167	66	91	39	0
1438	277965	89	115	39	8
496	150629	44	85	33	3
2253	168809	66	76	28	0
744	24188	24	8	4	0
1161	329267	259	79	39	8
2352	65029	17	21	18	5
2144	101097	64	30	14	3
4691	218946	41	76	29	1
1112	244052	68	101	44	5
2694	341570	168	94	21	1
1973	103597	43	27	16	1
1769	233328	132	92	28	5
3148	256462	105	123	35	0
2474	206161	71	75	28	12
2084	311473	112	128	38	8
1954	235800	94	105	23	8
1226	177939	82	55	36	8
1389	207176	70	56	32	8
1496	196553	57	41	29	2
2269	174184	53	72	25	0
1833	143246	103	67	27	5
1268	187559	121	75	36	8
1943	187681	62	114	28	2
893	119016	52	118	23	5
1762	182192	52	77	40	12
1403	73566	32	22	23	6
1425	194979	62	66	40	7
1857	167488	45	69	28	2
1840	143756	46	105	34	0
1502	275541	63	116	33	4
1441	243199	75	88	28	3
1420	182999	88	73	34	6
1416	135649	46	99	30	2
2970	152299	53	62	33	0
1317	120221	37	53	22	1
1644	346485	90	118	38	0
870	145790	63	30	26	5
1654	193339	78	100	35	2
1054	80953	25	49	8	0
937	122774	45	24	24	0
3004	130585	46	67	29	5
2008	112611	41	46	20	0
2547	286468	144	57	29	1
1885	241066	82	75	45	0
1626	148446	91	135	37	1
1468	204713	71	68	33	1
2445	182079	63	124	33	2
1964	140344	53	33	25	6
1381	220516	62	98	32	1
1369	243060	63	58	29	4
1659	162765	32	68	28	2
2888	182613	39	81	28	3
1290	232138	62	131	31	0
2845	265318	117	110	52	10
1982	85574	34	37	21	0
1904	310839	92	130	24	9
1391	225060	93	93	41	7
602	232317	54	118	33	0
1743	144966	144	39	32	0
1559	43287	14	13	19	4
2014	155754	61	74	20	4
2143	164709	109	81	31	0
2146	201940	38	109	31	0
874	235454	73	151	32	0
1590	220801	75	51	18	1
1590	99466	50	28	23	0
1210	92661	61	40	17	1
2072	133328	55	56	20	0
1281	61361	77	27	12	0
1401	125930	75	37	17	4
834	100750	72	83	30	0
1105	224549	50	54	31	4
1272	82316	32	27	10	4
1944	102010	53	28	13	3
391	101523	42	59	22	0
761	243511	71	133	42	0
1605	22938	10	12	1	0
530	41566	35	0	9	5
1988	152474	65	106	32	0
1386	61857	25	23	11	4
2395	99923	66	44	25	0
387	132487	41	71	36	0
1742	317394	86	116	31	1
620	21054	16	4	0	0
449	209641	42	62	24	5
800	22648	19	12	13	0
1684	31414	19	18	8	0
1050	46698	45	14	13	0
2699	131698	65	60	19	0
1606	91735	35	7	18	0
1502	244749	95	98	33	2
1204	184510	49	64	40	7
1138	79863	37	29	22	1
568	128423	64	32	38	8
1459	97839	38	25	24	2
2158	38214	34	16	8	0
1111	151101	32	48	35	2
1421	272458	65	100	43	0
2833	172494	52	46	43	0
1955	108043	62	45	14	1
2922	328107	65	129	41	3
1002	250579	83	130	38	0
1060	351067	95	136	45	3
956	158015	29	59	31	0
2186	98866	18	25	13	0
3604	85439	33	32	28	0
1035	229242	247	63	31	4
1417	351619	139	95	40	4
3261	84207	29	14	30	11
1587	120445	118	36	16	0
1424	324598	110	113	37	0
1701	131069	67	47	30	4
1249	204271	42	92	35	0
946	165543	65	70	32	1
1926	141722	94	19	27	0
3352	116048	64	50	20	0
1641	250047	81	41	18	0
2035	299775	95	91	31	9
2312	195838	67	111	31	1
1369	173260	63	41	21	3
1577	254488	83	120	39	10
2201	104389	45	135	41	5
961	136084	30	27	13	0
1900	199476	70	87	32	2
1254	92499	32	25	18	0
1335	224330	83	131	39	1
1597	135781	31	45	14	2
207	74408	67	29	7	4
1645	81240	66	58	17	0
2429	14688	10	4	0	0
151	181633	70	47	30	2
474	271856	103	109	37	1
141	7199	5	7	0	0
1639	46660	20	12	5	0
872	17547	5	0	1	0
1318	133368	36	37	16	1
1018	95227	34	37	32	0
1383	152601	48	46	24	2
1314	98146	40	15	17	0
1335	79619	43	42	11	3
1403	59194	31	7	24	6
910	139942	42	54	22	0
616	118612	46	54	12	2
1407	72880	33	14	19	0
771	65475	18	16	13	2
766	99643	55	33	17	1
473	71965	35	32	15	1
1376	77272	59	21	16	2
1232	49289	19	15	24	1
1521	135131	66	38	15	0
572	108446	60	22	17	1
1059	89746	36	28	18	3
1544	44296	25	10	20	0
1230	77648	47	31	16	0
1206	181528	54	32	16	0
1205	134019	53	32	18	0
1255	124064	40	43	22	1
613	92630	40	27	8	4
721	121848	39	37	17	0
1109	52915	14	20	18	0
740	81872	45	32	16	0
1126	58981	36	0	23	7
728	53515	28	5	22	2
689	60812	44	26	13	0
592	56375	30	10	13	7
995	65490	22	27	16	3
1613	80949	17	11	16	0
2048	76302	31	29	20	0
705	104011	55	25	22	6
301	98104	54	55	17	2
1803	67989	21	23	18	0
799	30989	14	5	17	0
861	135458	81	43	12	3
1186	73504	35	23	7	0
1451	63123	43	34	17	1
628	61254	46	36	14	1
1161	74914	30	35	23	0
1463	31774	23	0	17	1
742	81437	38	37	14	0
979	87186	54	28	15	0
675	50090	20	16	17	0
1241	65745	53	26	21	0
676	56653	45	38	18	0
1049	158399	39	23	18	0
620	46455	20	22	17	0
1081	73624	24	30	17	0
1688	38395	31	16	16	0
736	91899	35	18	15	0
617	139526	151	28	21	0
812	52164	52	32	16	0
1051	51567	30	21	14	2
1656	70551	31	23	15	0
705	84856	29	29	17	1
945	102538	57	50	15	1
554	86678	40	12	15	0
1597	85709	44	21	10	0
982	34662	25	18	6	0
222	150580	77	27	22	0
1212	99611	35	41	21	0
1143	19349	11	13	1	0
435	99373	63	12	18	1
532	86230	44	21	17	0
882	30837	19	8	4	0
608	31706	13	26	10	0
459	89806	42	27	16	0
578	62088	38	13	16	1
826	40151	29	16	9	0
509	27634	20	2	16	0
717	76990	27	42	17	0
637	37460	20	5	7	0
857	54157	19	37	15	0
830	49862	37	17	14	0
652	84337	26	38	14	0
707	64175	42	37	18	0
954	59382	49	29	12	0
1461	119308	30	32	16	0
672	76702	49	35	21	0
778	103425	67	17	19	1
1141	70344	28	20	16	0
680	43410	19	7	1	0
1090	104838	49	46	16	1
616	62215	27	24	10	0
285	69304	30	40	19	6
1145	53117	22	3	12	3
733	19764	12	10	2	1
888	86680	31	37	14	2
849	84105	20	17	17	0
1182	77945	20	28	19	0
528	89113	39	19	14	0
642	91005	29	29	11	3
947	40248	16	8	4	1
819	64187	27	10	16	0
757	50857	21	15	20	0
894	56613	19	15	12	1
1418	62792	35	28	15	0
869	72535	14	17	16	0

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