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

115	112285	24188	146283	144
109	84786	18273	98364	103
146	83123	14130	86146	98
116	101193	32287	96933	135
68	38361	8654	79234	61
101	68504	9245	42551	39
96	119182	33251	195663	150
67	22807	1271	6853	5
44	17140	5279	21529	28
100	116174	27101	95757	84
93	57635	16373	85584	80
140	66198	19716	143983	130
166	71701	17753	75851	82
99	57793	9028	59238	60
139	80444	18653	93163	131
130	53855	8828	96037	84
181	97668	29498	151511	140
116	133824	27563	136368	151
116	101481	18293	112642	91
88	99645	22530	94728	138
139	114789	15977	105499	150
135	99052	35082	121527	124
108	67654	16116	127766	119
89	65553	15849	98958	73
156	97500	16026	77900	110
129	69112	26569	85646	123
118	82753	24785	98579	90
118	85323	17569	130767	116
125	72654	23825	131741	113
95	30727	7869	53907	56
126	77873	14975	178812	115
135	117478	37791	146761	119
154	74007	9605	82036	129
165	90183	27295	163253	127
113	61542	2746	27032	27
127	101494	34461	171975	175
52	27570	8098	65990	35
121	55813	4787	86572	64
136	79215	24919	159676	96
0	1423	603	1929	0
108	55461	16329	85371	84
46	31081	12558	58391	41
54	22996	7784	31580	47
124	83122	28522	136815	126
115	70106	22265	120642	105
128	60578	14459	69107	80
80	39992	14526	50495	70
97	79892	22240	108016	73
104	49810	11802	46341	57
59	71570	7623	78348	40
125	100708	11912	79336	68
82	33032	7935	56968	21
149	82875	18220	93176	127
149	139077	19199	161632	154
122	71595	19918	87850	116
118	72260	21884	127969	102
12	5950	2694	15049	7
144	115762	15808	155135	148
67	32551	3597	25109	21
52	31701	5296	45824	35
108	80670	25239	102996	112
166	143558	29801	160604	137
80	117105	18450	158051	135
60	23789	7132	44547	26
107	120733	34861	162647	230
127	105195	35940	174141	181
107	73107	16688	60622	71
146	132068	24683	179566	147
84	149193	46230	184301	190
141	46821	10387	75661	64
123	87011	21436	96144	105
111	95260	30546	129847	107
98	55183	19746	117286	94
105	106671	15977	71180	116
135	73511	22583	109377	106
107	92945	17274	85298	143
85	78664	16469	73631	81
155	70054	14251	86767	89
88	22618	3007	23824	26
155	74011	16851	93487	84
104	83737	21113	82981	113
132	69094	17401	73815	120
127	93133	23958	94552	110
108	95536	23567	132190	134
129	225920	13065	128754	54
116	62133	15358	66363	96
122	61370	14587	67808	78
85	43836	12770	61724	51
147	106117	24021	131722	121
99	38692	9648	68580	38
87	84651	20537	106175	145
28	56622	7905	55792	59
90	15986	4527	25157	27
109	95364	30495	76669	91
78	26706	7117	57283	48
111	89691	17719	105805	68
158	67267	27056	129484	58
141	126846	33473	72413	150
122	41140	9758	87831	74
124	102860	21115	96971	181
93	51715	7236	71299	65
124	55801	13790	77494	97
112	111813	32902	120336	121
108	120293	25131	93913	99
99	138599	30910	136048	152
117	161647	35947	181248	188
199	115929	29848	146123	138
78	24266	6943	32036	40
91	162901	42705	186646	254
158	109825	31808	102255	87
126	129838	26675	168237	178
122	37510	8435	64219	51
71	43750	7409	19630	49
75	40652	14993	76825	73
115	87771	36867	115338	176
119	85872	33835	109427	94
124	89275	24164	118168	120
72	44418	12607	84845	66
91	192565	22609	153197	56
45	35232	5892	29877	39
78	40909	17014	63506	66
39	13294	5394	22445	27
68	32387	9178	47695	65
119	140867	6440	68370	58
117	120662	21916	146304	98
39	21233	4011	38233	25
50	44332	5818	42071	26
88	61056	18647	50517	77
155	101338	20556	103950	130
0	1168	238	5841	11
36	13497	70	2341	2
123	65567	22392	84396	101
32	25162	3913	24610	31
99	32334	12237	35753	36
136	40735	8388	55515	120
117	91413	22120	209056	195
0	855	338	6622	4
88	97068	11727	115814	89
39	44339	3704	11609	24
25	14116	3988	13155	39
52	10288	3030	18274	14
75	65622	13520	72875	78
71	16563	1421	10112	15
124	76643	20923	142775	106
151	110681	20237	68847	83
71	29011	3219	17659	24
145	92696	3769	20112	37
87	94785	12252	61023	77
27	8773	1888	13983	16
131	83209	14497	65176	56
162	93815	28864	132432	132
165	86687	21721	112494	144
54	34553	4821	45109	40
159	105547	33644	170875	153
147	103487	15923	180759	143
170	213688	42935	214921	220
119	71220	18864	100226	79
49	23517	4977	32043	50
104	56926	7785	54454	39
120	91721	17939	78876	95
150	115168	23436	170745	169
112	111194	325	6940	12
59	51009	13539	49025	63
136	135777	34538	122037	134
107	51513	12198	53782	69
130	74163	26924	127748	119
115	51633	12716	86839	119
107	75345	8172	44830	75
75	33416	10855	77395	63
71	83305	11932	89324	55
120	98952	14300	103300	103
116	102372	25515	112283	197
79	37238	2805	10901	16
150	103772	29402	120691	140
156	123969	16440	58106	89
51	27142	11221	57140	40
118	135400	28732	122422	125
71	21399	5250	25899	21
144	130115	28608	139296	167
47	24874	8092	52678	32
28	34988	4473	23853	36
68	45549	1572	17306	13
0	6023	2065	7953	5
110	64466	14817	89455	96
147	54990	16714	147866	151
0	1644	556	4245	6
15	6179	2089	21509	13
4	3926	2658	7670	3
64	32755	10695	66675	57
111	34777	1669	14336	23
85	73224	16267	53608	61
68	27114	7768	30059	21
40	20760	7252	29668	43
80	37636	6387	22097	20
88	65461	18715	96841	82
48	30080	7936	41907	90
76	24094	8643	27080	25
51	69008	7294	35885	60
67	54968	4570	41247	61
59	46090	7185	28313	85
61	27507	10058	36845	43
76	10672	2342	16548	25
60	34029	8509	36134	41
68	46300	13275	55764	26
71	24760	6816	28910	38
76	18779	1930	13339	12
62	21280	8086	25319	29
61	40662	10737	66956	49
67	28987	8033	47487	46
88	22827	7058	52785	41
30	18513	6782	44683	31
64	30594	5401	35619	41
68	24006	6521	21920	26
64	27913	10856	45608	23
91	42744	2154	7721	14
88	12934	6117	20634	16
52	22574	5238	29788	25
49	41385	4820	31931	21
62	18653	5615	37754	32
61	18472	4272	32505	9
76	30976	8702	40557	35
88	63339	15340	94238	42
66	25568	8030	44197	68
71	33747	9526	43228	32
68	4154	1278	4103	6
48	19474	4236	44144	68
25	35130	3023	32868	33
68	39067	7196	27640	84
41	13310	3394	14063	46
90	65892	6371	28990	30
66	4143	1574	4694	0
54	28579	9620	42648	36
59	51776	6978	64329	47
60	21152	4911	21928	20
77	38084	8645	25836	50
68	27717	8987	22779	30
72	32928	5544	40820	30
67	11342	3083	27530	34
64	19499	6909	32378	33
63	16380	3189	10824	34
59	36874	6745	39613	37
84	48259	16724	60865	83
64	16734	4850	19787	32
56	28207	7025	20107	30
54	30143	6047	36605	43
67	41369	7377	40961	41
58	45833	9078	48231	51
59	29156	4605	39725	19
40	35944	3238	21455	37
22	36278	8100	23430	33
83	45588	9653	62991	41
81	45097	8914	49363	54
2	3895	786	9604	14
72	28394	6700	24552	25
61	18632	5788	31493	25
15	2325	593	3439	8
32	25139	4506	19555	26
62	27975	6382	21228	20
58	14483	5621	23177	11
36	13127	3997	22094	14
59	5839	520	2342	3
68	24069	8891	38798	40
21	3738	999	3255	5
55	18625	7067	24261	38
54	36341	4639	18511	32
55	24548	5654	40798	41
72	21792	6928	28893	46
41	26263	1514	21425	47
61	23686	9238	50276	37
67	49303	8204	37643	51
76	25659	5926	30377	49
64	28904	5785	27126	21
3	2781	4	13	1
63	29236	5930	42097	44
40	19546	3710	24451	26
69	22818	705	14335	21
48	32689	443	5084	4
8	5752	2416	9927	10
52	22197	7747	43527	43
66	20055	5432	27184	34
76	25272	4913	21610	32
43	82206	2650	20484	20
39	32073	2370	20156	34
14	5444	775	6012	6
61	20154	5576	18475	12
71	36944	1352	12645	24
44	8019	3080	11017	16
60	30884	10205	37623	72
64	19540	6095	35873	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')