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, 22 Dec 2011 09:29:49 -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/22/t13245642398gdsi1sryozh8e3.htm/, Retrieved Fri, 03 May 2024 13:28:03 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=159504, Retrieved Fri, 03 May 2024 13:28:03 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact81
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Kendall tau Correlation Matrix] [kendall tau] [2011-12-22 14:29:49] [685fae5a377cc1dc51f9f02306b751ce] [Current]
Feedback Forum

Post a new message
Dataseries X:
1845	162687	95	595	21	20465
1796	201906	62	545	20	33629
192	7215	18	72	0	1423
2444	146367	97	679	27	25629
3567	257045	139	1201	31	54002
6917	524450	265	1967	36	151036
1840	188294	58	595	23	33287
1740	195674	60	496	30	31172
2078	177020	44	670	30	28113
3118	330194	99	1047	27	57803
1946	121844	75	634	24	49830
2370	203938	72	743	30	52143
1944	113213	106	686	22	21055
3198	220751	120	1086	28	47007
1491	172905	63	419	18	28735
1573	156326	88	474	22	59147
1807	145178	58	442	37	78950
1309	89171	61	373	15	13497
2820	172624	88	899	34	46154
776	39790	27	242	18	53249
1162	87927	62	399	15	10726
2818	241285	103	850	30	83700
1761	195820	73	642	25	40400
2315	146946	56	717	34	33797
1994	159763	89	619	21	36205
1806	207078	34	657	21	30165
2152	212394	166	691	25	58534
1457	201536	95	366	31	44663
3000	394662	121	994	31	92556
2236	217892	46	929	20	40078
1685	182286	45	490	28	34711
1626	181740	47	553	22	31076
2257	137978	107	738	17	74608
3373	255929	130	1028	25	58092
2571	236489	55	844	25	42009
1	0	1	0	0	0
2142	230761	64	1000	31	36022
1878	132807	54	629	14	23333
2190	157118	49	532	35	53349
2186	253254	68	811	34	92596
2533	269329	72	837	22	49598
1823	161273	61	682	34	44093
1095	107181	33	400	23	84205
2162	195891	79	804	24	63369
1365	139667	51	419	26	60132
1245	171101	99	334	23	37403
756	81407	33	216	35	24460
2417	247563	104	786	24	46456
2327	239807	90	752	31	66616
2786	172743	59	964	30	41554
658	48188	28	205	22	22346
2012	169355	70	506	23	30874
2616	325322	77	830	27	68701
2071	241518	79	694	30	35728
1911	195583	59	691	33	29010
1775	159913	57	547	12	23110
1919	220241	70	538	26	38844
1047	101694	26	329	26	27084
1190	157258	68	427	23	35139
2890	202536	99	972	38	57476
1836	173505	64	541	32	33277
2254	150518	83	836	21	31141
1392	141491	64	376	22	61281
1325	125612	38	467	26	25820
1317	166049	36	430	28	23284
1525	124197	42	483	33	35378
2335	195043	71	504	36	74990
2897	138708	65	887	25	29653
1118	116552	40	271	25	64622
340	31970	15	101	21	4157
2977	258158	115	1097	19	29245
1452	151194	79	470	12	50008
1550	135926	68	528	30	52338
1685	119629	73	475	21	13310
2728	171518	71	698	39	92901
1574	108949	45	425	32	10956
2413	183471	60	709	28	34241
2563	159966	98	824	29	75043
1079	93786	34	336	21	21152
1235	84971	72	395	31	42249
980	88882	76	234	26	42005
2246	304603	65	830	29	41152
1076	75101	30	334	23	14399
1637	145043	40	524	25	28263
1208	95827	48	393	22	17215
1865	173924	58	574	26	48140
2726	241957	237	672	33	62897
1208	115367	115	284	24	22883
1419	118408	64	450	24	41622
1609	164078	53	653	21	40715
1864	158931	41	684	28	65897
2412	184139	82	706	28	76542
1238	152856	58	417	25	37477
1462	144014	59	549	15	53216
973	62535	42	394	13	40911
2319	245196	117	730	36	57021
1890	199841	71	571	27	73116
223	19349	12	67	1	3895
2526	247280	108	877	24	46609
2072	159408	83	856	31	29351
778	72128	30	306	4	2325
1194	104253	26	382	21	31747
1424	151090	57	435	27	32665
1328	137382	66	336	23	19249
839	87448	42	227	12	15292
596	27676	22	194	16	5842
1671	165507	50	410	29	33994
1167	132148	37	273	26	13018
0	0	0	0	0	0
1106	95778	34	343	25	98177
1148	109001	67	376	21	37941
1485	158833	46	495	24	31032
1526	147690	63	448	21	32683
962	89887	63	313	21	34545
78	3616	5	14	0	0
0	0	0	0	0	0
1184	199005	45	410	23	27525
1671	160930	92	606	33	66856
2142	177948	102	593	32	28549
1015	136061	39	312	23	38610
778	43410	19	292	1	2781
1856	184277	74	547	29	41211
1056	108858	43	302	20	22698
2297	151030	59	660	33	41194
731	60493	40	174	12	32689
285	19764	12	75	2	5752
1872	177559	56	572	21	26757
1181	140281	35	389	28	22527
1725	164249	54	562	35	44810
256	11796	9	79	2	0
98	10674	9	33	0	0
1435	151322	59	487	18	100674
41	6836	3	11	1	0
1930	174712	67	664	21	57786
42	5118	3	6	0	0
528	40248	16	183	4	5444
0	0	0	0	0	0
1121	127628	50	342	29	28470
1305	88837	38	269	26	61849
81	7131	4	27	0	0
262	9056	15	99	4	2179
1099	87957	26	305	19	8019
1290	144470	53	327	22	39644
1248	111408	20	459	22	23494




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 & 1 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159504&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]1 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=159504&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159504&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 time1 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net







Correlations for all pairs of data series (method=kendall)
Timepageviewsn°loginscoursecompendiumviewsreviewedcompendiumsn°caracters
Time10.6990.6150.840.4590.46
pageviews0.69910.5490.6790.4330.456
n°logins0.6150.54910.5710.3580.46
coursecompendiumviews0.840.6790.57110.4130.438
reviewedcompendiums0.4590.4330.3580.41310.427
n°caracters0.460.4560.460.4380.4271

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=kendall) \tabularnewline
  & Time & pageviews & n°logins & coursecompendiumviews & reviewedcompendiums & n°caracters \tabularnewline
Time & 1 & 0.699 & 0.615 & 0.84 & 0.459 & 0.46 \tabularnewline
pageviews & 0.699 & 1 & 0.549 & 0.679 & 0.433 & 0.456 \tabularnewline
n°logins & 0.615 & 0.549 & 1 & 0.571 & 0.358 & 0.46 \tabularnewline
coursecompendiumviews & 0.84 & 0.679 & 0.571 & 1 & 0.413 & 0.438 \tabularnewline
reviewedcompendiums & 0.459 & 0.433 & 0.358 & 0.413 & 1 & 0.427 \tabularnewline
n°caracters & 0.46 & 0.456 & 0.46 & 0.438 & 0.427 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159504&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=kendall)[/C][/ROW]
[ROW][C] [/C][C]Time[/C][C]pageviews[/C][C]n°logins[/C][C]coursecompendiumviews[/C][C]reviewedcompendiums[/C][C]n°caracters[/C][/ROW]
[ROW][C]Time[/C][C]1[/C][C]0.699[/C][C]0.615[/C][C]0.84[/C][C]0.459[/C][C]0.46[/C][/ROW]
[ROW][C]pageviews[/C][C]0.699[/C][C]1[/C][C]0.549[/C][C]0.679[/C][C]0.433[/C][C]0.456[/C][/ROW]
[ROW][C]n°logins[/C][C]0.615[/C][C]0.549[/C][C]1[/C][C]0.571[/C][C]0.358[/C][C]0.46[/C][/ROW]
[ROW][C]coursecompendiumviews[/C][C]0.84[/C][C]0.679[/C][C]0.571[/C][C]1[/C][C]0.413[/C][C]0.438[/C][/ROW]
[ROW][C]reviewedcompendiums[/C][C]0.459[/C][C]0.433[/C][C]0.358[/C][C]0.413[/C][C]1[/C][C]0.427[/C][/ROW]
[ROW][C]n°caracters[/C][C]0.46[/C][C]0.456[/C][C]0.46[/C][C]0.438[/C][C]0.427[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=159504&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159504&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=kendall)
Timepageviewsn°loginscoursecompendiumviewsreviewedcompendiumsn°caracters
Time10.6990.6150.840.4590.46
pageviews0.69910.5490.6790.4330.456
n°logins0.6150.54910.5710.3580.46
coursecompendiumviews0.840.6790.57110.4130.438
reviewedcompendiums0.4590.4330.3580.41310.427
n°caracters0.460.4560.460.4380.4271







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
Time;pageviews0.89210.8570.6985
p-value(0)(0)(0)
Time;n°logins0.81750.78020.6149
p-value(0)(0)(0)
Time;coursecompendiumviews0.96590.96050.8401
p-value(0)(0)(0)
Time;reviewedcompendiums0.67520.61750.459
p-value(0)(0)(0)
Time;n°caracters0.68560.61860.4598
p-value(0)(0)(0)
pageviews;n°logins0.75920.71480.5489
p-value(0)(0)(0)
pageviews;coursecompendiumviews0.88210.8480.6789
p-value(0)(0)(0)
pageviews;reviewedcompendiums0.6720.58220.4327
p-value(0)(0)(0)
pageviews;n°caracters0.67870.60990.4556
p-value(0)(0)(0)
n°logins;coursecompendiumviews0.75950.73720.5713
p-value(0)(0)(0)
n°logins;reviewedcompendiums0.5470.48670.3582
p-value(0)(0)(0)
n°logins;n°caracters0.61680.60520.4597
p-value(0)(0)(0)
coursecompendiumviews;reviewedcompendiums0.62740.55920.4126
p-value(0)(0)(0)
coursecompendiumviews;n°caracters0.63760.59790.4378
p-value(0)(0)(0)
reviewedcompendiums;n°caracters0.61630.56850.4267
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;pageviews & 0.8921 & 0.857 & 0.6985 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Time;n°logins & 0.8175 & 0.7802 & 0.6149 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Time;coursecompendiumviews & 0.9659 & 0.9605 & 0.8401 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Time;reviewedcompendiums & 0.6752 & 0.6175 & 0.459 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Time;n°caracters & 0.6856 & 0.6186 & 0.4598 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
pageviews;n°logins & 0.7592 & 0.7148 & 0.5489 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
pageviews;coursecompendiumviews & 0.8821 & 0.848 & 0.6789 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
pageviews;reviewedcompendiums & 0.672 & 0.5822 & 0.4327 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
pageviews;n°caracters & 0.6787 & 0.6099 & 0.4556 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
n°logins;coursecompendiumviews & 0.7595 & 0.7372 & 0.5713 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
n°logins;reviewedcompendiums & 0.547 & 0.4867 & 0.3582 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
n°logins;n°caracters & 0.6168 & 0.6052 & 0.4597 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
coursecompendiumviews;reviewedcompendiums & 0.6274 & 0.5592 & 0.4126 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
coursecompendiumviews;n°caracters & 0.6376 & 0.5979 & 0.4378 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
reviewedcompendiums;n°caracters & 0.6163 & 0.5685 & 0.4267 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159504&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;pageviews[/C][C]0.8921[/C][C]0.857[/C][C]0.6985[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Time;n°logins[/C][C]0.8175[/C][C]0.7802[/C][C]0.6149[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Time;coursecompendiumviews[/C][C]0.9659[/C][C]0.9605[/C][C]0.8401[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Time;reviewedcompendiums[/C][C]0.6752[/C][C]0.6175[/C][C]0.459[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Time;n°caracters[/C][C]0.6856[/C][C]0.6186[/C][C]0.4598[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]pageviews;n°logins[/C][C]0.7592[/C][C]0.7148[/C][C]0.5489[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]pageviews;coursecompendiumviews[/C][C]0.8821[/C][C]0.848[/C][C]0.6789[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]pageviews;reviewedcompendiums[/C][C]0.672[/C][C]0.5822[/C][C]0.4327[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]pageviews;n°caracters[/C][C]0.6787[/C][C]0.6099[/C][C]0.4556[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]n°logins;coursecompendiumviews[/C][C]0.7595[/C][C]0.7372[/C][C]0.5713[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]n°logins;reviewedcompendiums[/C][C]0.547[/C][C]0.4867[/C][C]0.3582[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]n°logins;n°caracters[/C][C]0.6168[/C][C]0.6052[/C][C]0.4597[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]coursecompendiumviews;reviewedcompendiums[/C][C]0.6274[/C][C]0.5592[/C][C]0.4126[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]coursecompendiumviews;n°caracters[/C][C]0.6376[/C][C]0.5979[/C][C]0.4378[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]reviewedcompendiums;n°caracters[/C][C]0.6163[/C][C]0.5685[/C][C]0.4267[/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=159504&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159504&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;pageviews0.89210.8570.6985
p-value(0)(0)(0)
Time;n°logins0.81750.78020.6149
p-value(0)(0)(0)
Time;coursecompendiumviews0.96590.96050.8401
p-value(0)(0)(0)
Time;reviewedcompendiums0.67520.61750.459
p-value(0)(0)(0)
Time;n°caracters0.68560.61860.4598
p-value(0)(0)(0)
pageviews;n°logins0.75920.71480.5489
p-value(0)(0)(0)
pageviews;coursecompendiumviews0.88210.8480.6789
p-value(0)(0)(0)
pageviews;reviewedcompendiums0.6720.58220.4327
p-value(0)(0)(0)
pageviews;n°caracters0.67870.60990.4556
p-value(0)(0)(0)
n°logins;coursecompendiumviews0.75950.73720.5713
p-value(0)(0)(0)
n°logins;reviewedcompendiums0.5470.48670.3582
p-value(0)(0)(0)
n°logins;n°caracters0.61680.60520.4597
p-value(0)(0)(0)
coursecompendiumviews;reviewedcompendiums0.62740.55920.4126
p-value(0)(0)(0)
coursecompendiumviews;n°caracters0.63760.59790.4378
p-value(0)(0)(0)
reviewedcompendiums;n°caracters0.61630.56850.4267
p-value(0)(0)(0)



Parameters (Session):
par1 = kendall ;
Parameters (R input):
par1 = kendall ;
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')