Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_pairs.wasp
Title produced by softwareKendall tau Correlation Matrix
Date of computationThu, 15 Dec 2011 09:23:35 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Dec/15/t1323959477flb76rixbl86ihk.htm/, Retrieved Wed, 08 May 2024 15:43:47 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=155442, Retrieved Wed, 08 May 2024 15:43:47 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact100
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Kendall tau Correlation Matrix] [] [2011-12-15 14:23:35] [c8f7c4812ba63eaa5bf379ee3b4bd6a3] [Current]
Feedback Forum

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




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 2 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=155442&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=155442&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=155442&T=0

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net







Correlations for all pairs of data series (method=pearson)
time_in_rfcloginsshared_compendiumsblogged_computationsfeedback_messages_p120compendiums_reviewed
time_in_rfc10.7160.2940.8310.7690.758
logins0.71610.250.5660.5460.549
shared_compendiums0.2940.2510.2380.4020.389
blogged_computations0.8310.5660.23810.7740.762
feedback_messages_p1200.7690.5460.4020.77410.918
compendiums_reviewed0.7580.5490.3890.7620.9181

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & time_in_rfc & logins & shared_compendiums & blogged_computations & feedback_messages_p120 & compendiums_reviewed \tabularnewline
time_in_rfc & 1 & 0.716 & 0.294 & 0.831 & 0.769 & 0.758 \tabularnewline
logins & 0.716 & 1 & 0.25 & 0.566 & 0.546 & 0.549 \tabularnewline
shared_compendiums & 0.294 & 0.25 & 1 & 0.238 & 0.402 & 0.389 \tabularnewline
blogged_computations & 0.831 & 0.566 & 0.238 & 1 & 0.774 & 0.762 \tabularnewline
feedback_messages_p120 & 0.769 & 0.546 & 0.402 & 0.774 & 1 & 0.918 \tabularnewline
compendiums_reviewed & 0.758 & 0.549 & 0.389 & 0.762 & 0.918 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=155442&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]time_in_rfc[/C][C]logins[/C][C]shared_compendiums[/C][C]blogged_computations[/C][C]feedback_messages_p120[/C][C]compendiums_reviewed[/C][/ROW]
[ROW][C]time_in_rfc[/C][C]1[/C][C]0.716[/C][C]0.294[/C][C]0.831[/C][C]0.769[/C][C]0.758[/C][/ROW]
[ROW][C]logins[/C][C]0.716[/C][C]1[/C][C]0.25[/C][C]0.566[/C][C]0.546[/C][C]0.549[/C][/ROW]
[ROW][C]shared_compendiums[/C][C]0.294[/C][C]0.25[/C][C]1[/C][C]0.238[/C][C]0.402[/C][C]0.389[/C][/ROW]
[ROW][C]blogged_computations[/C][C]0.831[/C][C]0.566[/C][C]0.238[/C][C]1[/C][C]0.774[/C][C]0.762[/C][/ROW]
[ROW][C]feedback_messages_p120[/C][C]0.769[/C][C]0.546[/C][C]0.402[/C][C]0.774[/C][C]1[/C][C]0.918[/C][/ROW]
[ROW][C]compendiums_reviewed[/C][C]0.758[/C][C]0.549[/C][C]0.389[/C][C]0.762[/C][C]0.918[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=155442&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=155442&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Correlations for all pairs of data series (method=pearson)
time_in_rfcloginsshared_compendiumsblogged_computationsfeedback_messages_p120compendiums_reviewed
time_in_rfc10.7160.2940.8310.7690.758
logins0.71610.250.5660.5460.549
shared_compendiums0.2940.2510.2380.4020.389
blogged_computations0.8310.5660.23810.7740.762
feedback_messages_p1200.7690.5460.4020.77410.918
compendiums_reviewed0.7580.5490.3890.7620.9181







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
time_in_rfc;logins0.7160.79820.609
p-value(0)(0)(0)
time_in_rfc;shared_compendiums0.29410.32960.2453
p-value(0)(0)(0)
time_in_rfc;blogged_computations0.83090.87170.683
p-value(0)(0)(0)
time_in_rfc;feedback_messages_p1200.76890.80520.6046
p-value(0)(0)(0)
time_in_rfc;compendiums_reviewed0.7580.78920.5899
p-value(0)(0)(0)
logins;shared_compendiums0.25050.27950.2078
p-value(0)(0)(0)
logins;blogged_computations0.56610.71780.523
p-value(0)(0)(0)
logins;feedback_messages_p1200.54620.61660.4437
p-value(0)(0)(0)
logins;compendiums_reviewed0.54880.62840.4525
p-value(0)(0)(0)
shared_compendiums;blogged_computations0.2380.27590.2074
p-value(0)(0)(0)
shared_compendiums;feedback_messages_p1200.40190.37530.278
p-value(0)(0)(0)
shared_compendiums;compendiums_reviewed0.38950.35110.2616
p-value(0)(0)(0)
blogged_computations;feedback_messages_p1200.77390.77910.577
p-value(0)(0)(0)
blogged_computations;compendiums_reviewed0.76230.77220.574
p-value(0)(0)(0)
feedback_messages_p120;compendiums_reviewed0.91820.90670.7707
p-value(0)(0)(0)

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series with p-values \tabularnewline
pair & Pearson r & Spearman rho & Kendall tau \tabularnewline
time_in_rfc;logins & 0.716 & 0.7982 & 0.609 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time_in_rfc;shared_compendiums & 0.2941 & 0.3296 & 0.2453 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time_in_rfc;blogged_computations & 0.8309 & 0.8717 & 0.683 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time_in_rfc;feedback_messages_p120 & 0.7689 & 0.8052 & 0.6046 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time_in_rfc;compendiums_reviewed & 0.758 & 0.7892 & 0.5899 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
logins;shared_compendiums & 0.2505 & 0.2795 & 0.2078 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
logins;blogged_computations & 0.5661 & 0.7178 & 0.523 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
logins;feedback_messages_p120 & 0.5462 & 0.6166 & 0.4437 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
logins;compendiums_reviewed & 0.5488 & 0.6284 & 0.4525 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
shared_compendiums;blogged_computations & 0.238 & 0.2759 & 0.2074 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
shared_compendiums;feedback_messages_p120 & 0.4019 & 0.3753 & 0.278 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
shared_compendiums;compendiums_reviewed & 0.3895 & 0.3511 & 0.2616 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
blogged_computations;feedback_messages_p120 & 0.7739 & 0.7791 & 0.577 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
blogged_computations;compendiums_reviewed & 0.7623 & 0.7722 & 0.574 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
feedback_messages_p120;compendiums_reviewed & 0.9182 & 0.9067 & 0.7707 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=155442&T=2

[TABLE]
[ROW][C]Correlations for all pairs of data series with p-values[/C][/ROW]
[ROW][C]pair[/C][C]Pearson r[/C][C]Spearman rho[/C][C]Kendall tau[/C][/ROW]
[ROW][C]time_in_rfc;logins[/C][C]0.716[/C][C]0.7982[/C][C]0.609[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time_in_rfc;shared_compendiums[/C][C]0.2941[/C][C]0.3296[/C][C]0.2453[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time_in_rfc;blogged_computations[/C][C]0.8309[/C][C]0.8717[/C][C]0.683[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time_in_rfc;feedback_messages_p120[/C][C]0.7689[/C][C]0.8052[/C][C]0.6046[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time_in_rfc;compendiums_reviewed[/C][C]0.758[/C][C]0.7892[/C][C]0.5899[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;shared_compendiums[/C][C]0.2505[/C][C]0.2795[/C][C]0.2078[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;blogged_computations[/C][C]0.5661[/C][C]0.7178[/C][C]0.523[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;feedback_messages_p120[/C][C]0.5462[/C][C]0.6166[/C][C]0.4437[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;compendiums_reviewed[/C][C]0.5488[/C][C]0.6284[/C][C]0.4525[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]shared_compendiums;blogged_computations[/C][C]0.238[/C][C]0.2759[/C][C]0.2074[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]shared_compendiums;feedback_messages_p120[/C][C]0.4019[/C][C]0.3753[/C][C]0.278[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]shared_compendiums;compendiums_reviewed[/C][C]0.3895[/C][C]0.3511[/C][C]0.2616[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]blogged_computations;feedback_messages_p120[/C][C]0.7739[/C][C]0.7791[/C][C]0.577[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]blogged_computations;compendiums_reviewed[/C][C]0.7623[/C][C]0.7722[/C][C]0.574[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]feedback_messages_p120;compendiums_reviewed[/C][C]0.9182[/C][C]0.9067[/C][C]0.7707[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=155442&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=155442&T=2

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
time_in_rfc;logins0.7160.79820.609
p-value(0)(0)(0)
time_in_rfc;shared_compendiums0.29410.32960.2453
p-value(0)(0)(0)
time_in_rfc;blogged_computations0.83090.87170.683
p-value(0)(0)(0)
time_in_rfc;feedback_messages_p1200.76890.80520.6046
p-value(0)(0)(0)
time_in_rfc;compendiums_reviewed0.7580.78920.5899
p-value(0)(0)(0)
logins;shared_compendiums0.25050.27950.2078
p-value(0)(0)(0)
logins;blogged_computations0.56610.71780.523
p-value(0)(0)(0)
logins;feedback_messages_p1200.54620.61660.4437
p-value(0)(0)(0)
logins;compendiums_reviewed0.54880.62840.4525
p-value(0)(0)(0)
shared_compendiums;blogged_computations0.2380.27590.2074
p-value(0)(0)(0)
shared_compendiums;feedback_messages_p1200.40190.37530.278
p-value(0)(0)(0)
shared_compendiums;compendiums_reviewed0.38950.35110.2616
p-value(0)(0)(0)
blogged_computations;feedback_messages_p1200.77390.77910.577
p-value(0)(0)(0)
blogged_computations;compendiums_reviewed0.76230.77220.574
p-value(0)(0)(0)
feedback_messages_p120;compendiums_reviewed0.91820.90670.7707
p-value(0)(0)(0)



Parameters (Session):
par1 = pearson ;
Parameters (R input):
par1 = pearson ;
R code (references can be found in the software module):
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')