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

210907	56	30	145	0
120982	56	28	101	0
176508	54	38	98	0
179321	89	30	132	NA
123185	40	22	60	NA
52746	25	26	38	NA
385534	92	25	144	NA
33170	18	18	5	NA
101645	63	11	28	NA
149061	44	26	84	0
165446	33	25	79	NA
237213	84	38	127	0
173326	88	44	78	NA
133131	55	30	60	1
258873	60	40	131	NA
180083	66	34	84	NA
324799	154	47	133	0
230964	53	30	150	0
236785	119	31	91	1
135473	41	23	132	NA
202925	61	36	136	NA
215147	58	36	124	NA
344297	75	30	118	0
153935	33	25	70	NA
132943	40	39	107	NA
174724	92	34	119	0
174415	100	31	89	0
225548	112	31	112	NA
223632	73	33	108	0
124817	40	25	52	0
221698	45	33	112	NA
210767	60	35	116	NA
170266	62	42	123	NA
260561	75	43	125	NA
84853	31	30	27	NA
294424	77	33	162	0
101011	34	13	32	NA
215641	46	32	64	NA
325107	99	36	92	NA
7176	17	0	0	NA
167542	66	28	83	NA
106408	30	14	41	0
96560	76	17	47	0
265769	146	32	120	0
269651	67	30	105	NA
149112	56	35	79	1
175824	107	20	65	0
152871	58	28	70	0
111665	34	28	55	0
116408	61	39	39	NA
362301	119	34	67	0
78800	42	26	21	NA
183167	66	39	127	0
277965	89	39	152	NA
150629	44	33	113	NA
168809	66	28	99	NA
24188	24	4	7	NA
329267	259	39	141	0
65029	17	18	21	NA
101097	64	14	35	NA
218946	41	29	109	1
244052	68	44	133	0
341570	168	21	123	1
103597	43	16	26	0
233328	132	28	230	NA
256462	105	35	166	NA
206161	71	28	68	NA
311473	112	38	147	NA
235800	94	23	179	NA
177939	82	36	61	NA
207176	70	32	101	NA
196553	57	29	108	0
174184	53	25	90	NA
143246	103	27	114	0
187559	121	36	103	NA
187681	62	28	142	NA
119016	52	23	79	NA
182192	52	40	88	NA
73566	32	23	25	NA
194979	62	40	83	NA
167488	45	28	113	0
143756	46	34	118	0
275541	63	33	110	NA
243199	75	28	129	NA
182999	88	34	51	0
135649	46	30	93	NA
152299	53	33	76	0
120221	37	22	49	NA
346485	90	38	118	0
145790	63	26	38	NA
193339	78	35	141	0
80953	25	8	58	NA
122774	45	24	27	0
130585	46	29	91	0
112611	41	20	48	1
286468	144	29	63	0
241066	82	45	56	NA
148446	91	37	144	NA
204713	71	33	73	NA
182079	63	33	168	1
140344	53	25	64	1
220516	62	32	97	0
243060	63	29	117	1
162765	32	28	100	0
182613	39	28	149	NA
232138	62	31	187	NA
265318	117	52	127	NA
85574	34	21	37	0
310839	92	24	245	NA
225060	93	41	87	1
232317	54	33	177	NA
144966	144	32	49	NA
43287	14	19	49	NA
155754	61	20	73	NA
164709	109	31	177	0
201940	38	31	94	NA
235454	73	32	117	NA
220801	75	18	60	0
99466	50	23	55	0
92661	61	17	39	0
133328	55	20	64	1
61361	77	12	26	0
125930	75	17	64	NA
100750	72	30	58	1
224549	50	31	95	NA
82316	32	10	25	NA
102010	53	13	26	NA
101523	42	22	76	0
243511	71	42	129	0
22938	10	1	11	NA
41566	35	9	2	NA
152474	65	32	101	1
61857	25	11	28	NA
99923	66	25	36	0
132487	41	36	89	0
317394	86	31	193	NA
21054	16	0	4	NA
209641	42	24	84	NA
22648	19	13	23	0
31414	19	8	39	NA
46698	45	13	14	NA
131698	65	19	78	1
91735	35	18	14	NA
244749	95	33	101	1
184510	49	40	82	NA
79863	37	22	24	NA
128423	64	38	36	1
97839	38	24	75	1
38214	34	8	16	NA
151101	32	35	55	NA
272458	65	43	131	0
172494	52	43	131	0
108043	62	14	39	0
328107	65	41	144	0
250579	83	38	139	NA
351067	95	45	211	0
158015	29	31	78	NA
98866	18	13	50	NA
85439	33	28	39	NA
229242	247	31	90	0
351619	139	40	166	NA
84207	29	30	12	NA
120445	118	16	57	0
324598	110	37	133	0
131069	67	30	69	0
204271	42	35	119	NA
165543	65	32	119	NA
141722	94	27	65	NA
116048	64	20	61	1
250047	81	18	49	1
299775	95	31	101	0
195838	67	31	196	0
173260	63	21	15	0
254488	83	39	136	0
104389	45	41	89	NA
136084	30	13	40	NA
199476	70	32	123	NA
92499	32	18	21	0
224330	83	39	163	0
135781	31	14	29	0
74408	67	7	35	NA
81240	66	17	13	NA
14688	10	0	5	NA
181633	70	30	96	1
271856	103	37	151	NA
7199	5	0	6	NA
46660	20	5	13	NA
17547	5	1	3	NA
133368	36	16	56	NA
95227	34	32	23	NA
152601	48	24	57	NA
98146	40	17	14	1
79619	43	11	43	NA
59194	31	24	20	0
139942	42	22	72	NA
118612	46	12	87	1
72880	33	19	21	NA
65475	18	13	56	0
99643	55	17	59	NA
71965	35	15	82	NA
77272	59	16	43	NA
49289	19	24	25	NA
135131	66	15	38	NA
108446	60	17	25	0
89746	36	18	38	NA
44296	25	20	12	NA
77648	47	16	29	NA
181528	54	16	47	0
134019	53	18	45	0
124064	40	22	40	NA
92630	40	8	30	NA
121848	39	17	41	0
52915	14	18	25	NA
81872	45	16	23	NA
58981	36	23	14	0
53515	28	22	16	0
60812	44	13	26	NA
56375	30	13	21	0
65490	22	16	27	NA
80949	17	16	9	NA
76302	31	20	33	0
104011	55	22	42	0
98104	54	17	68	0
67989	21	18	32	NA
30989	14	17	6	NA
135458	81	12	67	NA
73504	35	7	33	NA
63123	43	17	77	0
61254	46	14	46	NA
74914	30	23	30	NA
31774	23	17	0	0
81437	38	14	36	0
87186	54	15	46	NA
50090	20	17	18	NA
65745	53	21	48	1
56653	45	18	29	0
158399	39	18	28	1
46455	20	17	34	NA
73624	24	17	33	0
38395	31	16	34	NA
91899	35	15	33	NA
139526	151	21	80	NA
52164	52	16	32	NA
51567	30	14	30	NA
70551	31	15	41	NA
84856	29	17	41	NA
102538	57	15	51	0
86678	40	15	18	0
85709	44	10	34	NA
34662	25	6	31	NA
150580	77	22	39	0
99611	35	21	54	0
19349	11	1	14	NA
99373	63	18	24	0
86230	44	17	24	0
30837	19	4	8	NA
31706	13	10	26	NA
89806	42	16	19	NA
62088	38	16	11	NA
40151	29	9	14	NA
27634	20	16	1	NA
76990	27	17	39	NA
37460	20	7	5	NA
54157	19	15	37	0
49862	37	14	32	NA
84337	26	14	38	NA
64175	42	18	47	0
59382	49	12	47	0
119308	30	16	37	0
76702	49	21	51	NA
103425	67	19	45	NA
70344	28	16	21	NA
43410	19	1	1	NA
104838	49	16	42	NA
62215	27	10	26	NA
69304	30	19	21	NA
53117	22	12	4	NA
19764	12	2	10	NA
86680	31	14	43	NA
84105	20	17	34	0
77945	20	19	31	NA
89113	39	14	19	NA
91005	29	11	34	NA
40248	16	4	6	NA
64187	27	16	11	0
50857	21	20	24	NA
56613	19	12	16	NA
62792	35	15	72	NA
72535	14	16	21	NA

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