• 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	146283	1
869	120982	56	58	28	98364	1
1530	176508	54	60	38	86146	1
2172	179321	89	108	30	96933	1
901	123185	40	49	22	79234	1
463	52746	25	0	26	42551	1
3201	385534	92	121	25	195663	1
371	33170	18	1	18	6853	1
1192	101645	63	20	11	21529	0
1583	149061	44	43	26	95757	1
1439	165446	33	69	25	85584	1
1764	237213	84	78	38	143983	1
1495	173326	88	86	44	75851	1
1373	133131	55	44	30	59238	1
2187	258873	60	104	40	93163	1
1491	180083	66	63	34	96037	1
4041	324799	154	158	47	151511	1
1706	230964	53	102	30	136368	1
2152	236785	119	77	31	112642	1
1036	135473	41	82	23	94728	1
1882	202925	61	115	36	105499	1
1929	215147	58	101	36	121527	1
2242	344297	75	80	30	127766	1
1220	153935	33	50	25	98958	1
1289	132943	40	83	39	77900	1
2515	174724	92	123	34	85646	1
2147	174415	100	73	31	98579	1
2352	225548	112	81	31	130767	1
1638	223632	73	105	33	131741	1
1222	124817	40	47	25	53907	1
1812	221698	45	105	33	178812	1
1677	210767	60	94	35	146761	1
1579	170266	62	44	42	82036	1
1731	260561	75	114	43	163253	1
807	84853	31	38	30	27032	1
2452	294424	77	107	33	171975	1
829	101011	34	30	13	65990	0
1940	215641	46	71	32	86572	1
2662	325107	99	84	36	159676	1
186	7176	17	0	0	1929	0
1499	167542	66	59	28	85371	1
865	106408	30	33	14	58391	1
1793	96560	76	42	17	31580	0
2527	265769	146	96	32	136815	1
2747	269651	67	106	30	120642	1
1324	149112	56	56	35	69107	1
2702	175824	107	57	20	50495	0
1383	152871	58	59	28	108016	1
1179	111665	34	39	28	46341	1
2099	116408	61	34	39	78348	1
4308	362301	119	76	34	79336	1
918	78800	42	20	26	56968	1
1831	183167	66	91	39	93176	1
3373	277965	89	115	39	161632	1
1713	150629	44	85	33	87850	1
1438	168809	66	76	28	127969	1
496	24188	24	8	4	15049	1
2253	329267	259	79	39	155135	1
744	65029	17	21	18	25109	1
1161	101097	64	30	14	45824	1
2352	218946	41	76	29	102996	1
2144	244052	68	101	44	160604	1
4691	341570	168	94	21	158051	0
1112	103597	43	27	16	44547	0
2694	233328	132	92	28	162647	1
1973	256462	105	123	35	174141	1
1769	206161	71	75	28	60622	1
3148	311473	112	128	38	179566	1
2474	235800	94	105	23	184301	1
2084	177939	82	55	36	75661	1
1954	207176	70	56	32	96144	1
1226	196553	57	41	29	129847	1
1389	174184	53	72	25	117286	1
1496	143246	103	67	27	71180	1
2269	187559	121	75	36	109377	1
1833	187681	62	114	28	85298	1
1268	119016	52	118	23	73631	1
1943	182192	52	77	40	86767	1
893	73566	32	22	23	23824	1
1762	194979	62	66	40	93487	1
1403	167488	45	69	28	82981	1
1425	143756	46	105	34	73815	1
1857	275541	63	116	33	94552	1
1840	243199	75	88	28	132190	1
1502	182999	88	73	34	128754	1
1441	135649	46	99	30	66363	1
1420	152299	53	62	33	67808	1
1416	120221	37	53	22	61724	1
2970	346485	90	118	38	131722	1
1317	145790	63	30	26	68580	1
1644	193339	78	100	35	106175	1
870	80953	25	49	8	55792	1
1654	122774	45	24	24	25157	1
1054	130585	46	67	29	76669	1
937	112611	41	46	20	57283	0
3004	286468	144	57	29	105805	1
2008	241066	82	75	45	129484	1
2547	148446	91	135	37	72413	1
1885	204713	71	68	33	87831	1
1626	182079	63	124	33	96971	1
1468	140344	53	33	25	71299	1
2445	220516	62	98	32	77494	1
1964	243060	63	58	29	120336	1
1381	162765	32	68	28	93913	1
1369	182613	39	81	28	136048	1
1659	232138	62	131	31	181248	1
2888	265318	117	110	52	146123	1
1290	85574	34	37	21	32036	0
2845	310839	92	130	24	186646	1
1982	225060	93	93	41	102255	1
1904	232317	54	118	33	168237	1
1391	144966	144	39	32	64219	1
602	43287	14	13	19	19630	1
1743	155754	61	74	20	76825	1
1559	164709	109	81	31	115338	1
2014	201940	38	109	31	109427	1
2143	235454	73	151	32	118168	1
2146	220801	75	51	18	84845	0
874	99466	50	28	23	153197	1
1590	92661	61	40	17	29877	0
1590	133328	55	56	20	63506	0
1210	61361	77	27	12	22445	0
2072	125930	75	37	17	47695	0
1281	100750	72	83	30	68370	1
1401	224549	50	54	31	146304	1
834	82316	32	27	10	38233	0
1105	102010	53	28	13	42071	0
1272	101523	42	59	22	50517	0
1944	243511	71	133	42	103950	1
391	22938	10	12	1	5841	1
761	41566	35	0	9	2341	0
1605	152474	65	106	32	84396	1
530	61857	25	23	11	24610	1
1988	99923	66	44	25	35753	0
1386	132487	41	71	36	55515	1
2395	317394	86	116	31	209056	1
387	21054	16	4	0	6622	1
1742	209641	42	62	24	115814	1
620	22648	19	12	13	11609	0
449	31414	19	18	8	13155	1
800	46698	45	14	13	18274	0
1684	131698	65	60	19	72875	0
1050	91735	35	7	18	10112	0
2699	244749	95	98	33	142775	1
1606	184510	49	64	40	68847	1
1502	79863	37	29	22	17659	0
1204	128423	64	32	38	20112	1
1138	97839	38	25	24	61023	1
568	38214	34	16	8	13983	1
1459	151101	32	48	35	65176	1
2158	272458	65	100	43	132432	1
1111	172494	52	46	43	112494	1
1421	108043	62	45	14	45109	0
2833	328107	65	129	41	170875	1
1955	250579	83	130	38	180759	1
2922	351067	95	136	45	214921	1
1002	158015	29	59	31	100226	1
1060	98866	18	25	13	32043	0
956	85439	33	32	28	54454	1
2186	229242	247	63	31	78876	1
3604	351619	139	95	40	170745	1
1035	84207	29	14	30	6940	1
1417	120445	118	36	16	49025	0
3261	324598	110	113	37	122037	1
1587	131069	67	47	30	53782	1
1424	204271	42	92	35	127748	1
1701	165543	65	70	32	86839	1
1249	141722	94	19	27	44830	1
946	116048	64	50	20	77395	0
1926	250047	81	41	18	89324	0
3352	299775	95	91	31	103300	1
1641	195838	67	111	31	112283	1
2035	173260	63	41	21	10901	1
2312	254488	83	120	39	120691	1
1369	104389	45	135	41	58106	1
1577	136084	30	27	13	57140	0
2201	199476	70	87	32	122422	1
961	92499	32	25	18	25899	0
1900	224330	83	131	39	139296	1
1254	135781	31	45	14	52678	0
1335	74408	67	29	7	23853	0
1597	81240	66	58	17	17306	0
207	14688	10	4	0	7953	1
1645	181633	70	47	30	89455	1
2429	271856	103	109	37	147866	1
151	7199	5	7	0	4245	1
474	46660	20	12	5	21509	1
141	17547	5	0	1	7670	1
1639	133368	36	37	16	66675	0
872	95227	34	37	32	14336	1
1318	152601	48	46	24	53608	1
1018	98146	40	15	17	30059	0
1383	79619	43	42	11	29668	0
1314	59194	31	7	24	22097	0
1335	139942	42	54	22	96841	0
1403	118612	46	54	12	41907	0
910	72880	33	14	19	27080	0
616	65475	18	16	13	35885	0
1407	99643	55	33	17	41247	0
771	71965	35	32	15	28313	0
766	77272	59	21	16	36845	0
473	49289	19	15	24	16548	0
1376	135131	66	38	15	36134	0
1232	108446	60	22	17	55764	0
1521	89746	36	28	18	28910	0
572	44296	25	10	20	13339	0
1059	77648	47	31	16	25319	0
1544	181528	54	32	16	66956	0
1230	134019	53	32	18	47487	0
1206	124064	40	43	22	52785	0
1205	92630	40	27	8	44683	0
1255	121848	39	37	17	35619	0
613	52915	14	20	18	21920	0
721	81872	45	32	16	45608	0
1109	58981	36	0	23	7721	0
740	53515	28	5	22	20634	0
1126	60812	44	26	13	29788	0
728	56375	30	10	13	31931	0
689	65490	22	27	16	37754	0
592	80949	17	11	16	32505	0
995	76302	31	29	20	40557	0
1613	104011	55	25	22	94238	0
2048	98104	54	55	17	44197	0
705	67989	21	23	18	43228	0
301	30989	14	5	17	4103	0
1803	135458	81	43	12	44144	0
799	73504	35	23	7	32868	0
861	63123	43	34	17	27640	0
1186	61254	46	36	14	14063	0
1451	74914	30	35	23	28990	0
628	31774	23	0	17	4694	0
1161	81437	38	37	14	42648	0
1463	87186	54	28	15	64329	0
742	50090	20	16	17	21928	0
979	65745	53	26	21	25836	0
675	56653	45	38	18	22779	0
1241	158399	39	23	18	40820	0
676	46455	20	22	17	27530	0
1049	73624	24	30	17	32378	0
620	38395	31	16	16	10824	0
1081	91899	35	18	15	39613	0
1688	139526	151	28	21	60865	0
736	52164	52	32	16	19787	0
617	51567	30	21	14	20107	0
812	70551	31	23	15	36605	0
1051	84856	29	29	17	40961	0
1656	102538	57	50	15	48231	0
705	86678	40	12	15	39725	0
945	85709	44	21	10	21455	0
554	34662	25	18	6	23430	0
1597	150580	77	27	22	62991	0
982	99611	35	41	21	49363	0
222	19349	11	13	1	9604	0
1212	99373	63	12	18	24552	0
1143	86230	44	21	17	31493	0
435	30837	19	8	4	3439	0
532	31706	13	26	10	19555	0
882	89806	42	27	16	21228	0
608	62088	38	13	16	23177	0
459	40151	29	16	9	22094	0
578	27634	20	2	16	2342	0
826	76990	27	42	17	38798	0
509	37460	20	5	7	3255	0
717	54157	19	37	15	24261	0
637	49862	37	17	14	18511	0
857	84337	26	38	14	40798	0
830	64175	42	37	18	28893	0
652	59382	49	29	12	21425	0
707	119308	30	32	16	50276	0
954	76702	49	35	21	37643	0
1461	103425	67	17	19	30377	0
672	70344	28	20	16	27126	0
778	43410	19	7	1	13	0
1141	104838	49	46	16	42097	0
680	62215	27	24	10	24451	0
1090	69304	30	40	19	14335	0
616	53117	22	3	12	5084	0
285	19764	12	10	2	9927	0
1145	86680	31	37	14	43527	0
733	84105	20	17	17	27184	0
888	77945	20	28	19	21610	0
849	89113	39	19	14	20484	0
1182	91005	29	29	11	20156	0
528	40248	16	8	4	6012	0
642	64187	27	10	16	18475	0
947	50857	21	15	20	12645	0
819	56613	19	15	12	11017	0
757	62792	35	28	15	37623	0
894	72535	14	17	16	35873	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')