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

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

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