FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

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 computationWed, 20 Dec 2017 00:06:43 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2017/Dec/20/t1513724831dfmpy4uyf31p09g.htm/, Retrieved Tue, 14 May 2024 01:42:58 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=310428, Retrieved Tue, 14 May 2024 01:42:58 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact102

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Kendall tau Correlation Matrix] [correlation matri...] [2017-12-19 23:06:43] [906db62ac77b324063fa7e908483789b] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
696688,604651165	19676
352705,439528025	164151,080000001
319574,638709679	78510
477423,742857145	84907
367801,886792454	24611
274864,902439025	20398
268557,456896553	58634
278133,333333334	14542
295714,876033059	55694
248817,238095239	10445
269479,037037038	13210
339098,412698414	94347
282146,621621623	37707
276913,437500001	47598,4900000002
299348,974576272	115364,3
286877,061728396	39132
294213,424657535	34479
274111,111111112	18190
273200	16482
254486,301369864	33246,0400000001
241181,44329897	48014
242297,647058824	24736
231933,287234043	47013
304091,452991454	57152
227886,363636364	10967
206437,500000001	11802
203580,645161291	15196,1400000001
189857,142857144	7007
186250,62295082	28530
202128,648648649	17942
159677,419354839	15495
205985,294117648	42019,9000000002
138800	7441
184500	4814
233863,636363637	5094
247600	4574
NA	NA
NA	NA
180545	5311
195693,367816093	40622
186400	4811
195004,925925927	12787
173002,344827587	13570
768799,666666669	35135,9100000001
396408,351398603	443489,880000002
333012,196473553	310566,580000001
450103,638211384	188593,950000001
402611,020833335	35336
329363,597826088	70963
307309,390243904	156678
307136,375000001	41468
337954,417475729	76512
298323,513513515	28003
321571,42857143	16194
379975,988212182	398136
342990,655405407	117811,82
305157,674329503	203185
367618,938271606	313847,400000001
312401,407079647	88039
314522,227272728	120103,06
295640,170731708	63356
300461,333333334	59671
294039,740458016	101447
260929,465909092	282523,480000001
236330,319148937	75290
237333,042968751	201325
348898,986595175	295136,400000001
268294,642857144	42415
233048,492063493	49525
246930,500000001	73591
211025,742857144	28634
219798,310810812	115997
209255,319148937	73974
199053,40909091	71526
240813,197674419	206413
191339,344262296	49047
191263,861111112	29782
296692,307692309	20739
180113,636363637	17764
219879,62962963	21451
200283,333333334	25451
183236,437500001	39354
230024,657534247	115424
199255,400000001	19590
201685,129870131	60598
185738,500000001	32916
1204779,82142858	34442
486519,701639346	365852,350000001
367067,984189725	306816,490000001
674273,195876291	116096
468263,157894739	21555
393096,42857143	34283
371882,68478261	108930,22
333584,363636365	53242
355567,307692309	30391
376638,666666668	17562
NA	NA
410573,558359623	382938,910000001
388078,065420562	127634
333090,123076924	159348
403567,45982143	269987
380060,144927538	84950
374110,402597404	91396,0500000003
352891,17647059	40537
319904,323529413	84237
353421,065934067	110574
280325,088983052	282130
284952,550724639	83566
273109,56115108	166421
387253,962655603	288503
311362,150000001	23939
271336,734693879	59233
286554,320987655	98079
230462,500000001	47224
260264,555555556	107825
232095,536842106	109548
220546,428571429	83537
254369,361581922	208810
220285,185185186	66941
184526,666666667	25717
352437,500000001	37578
237241,666666668	50223
250652,828571429	41619
217147,482142858	68224
216206,475409837	73378
262783,342592594	128499
264145,833333334	30024
221150	60657
220755,405405406	46000
1725140,62500001	79134
587732,690391461	926816
443836,50628931	954690
751042,188888892	486980
NA	NA
446450,980392158	151282,550000001
534854,109589043	194692
417337,410256412	138780
519213,79310345	157456
428684,923076925	95761
363979,142857144	51712
551485,576374747	1432439
415876,173076925	569078,110000002
397172,222222224	596627
584141,385786804	782722,410000003
484789,347222224	187814,210000001
465323,011904764	342290,540000001
485237,500000002	156828
395078,211538463	377481
391279,371428573	322108,420000001
346927,672955976	398362
293548,281250001	134814
305482,880000001	372334
502349,132911394	967805,520000004
433811,083333335	45190
348089,042553193	132012
296546,610169493	139136
307426,896551725	173646
312584,745762713	160179
291063,87878788	154804
254937,461538462	142975
302153,183333334	623970
231501,216216217	229615,750000001
198328,846153847	104517
410200	34284
291942,951219513	114966
246704,545454546	46021
243267,346938776	186478
225874,137931035	158199
345577,777777779	234188
313323,529411766	40306
281908,711864408	153366
260971	97258
304505,127071824	39074,9300000001
215470,671171172	16335,9200000001
235716,238095239	14816,6000000001
218653,65669989	63707,4700000002
187151,593846155	22221
156507,142857143	4470
223999,934337999	59229,0900000002
164842,031914894	13757
152397,273504274	8730,42000000003
148576	2888,31000000001
139074,588	16904,6800000001
100315,217391305	3284
205566,6179402	19981,6100000001
213880,952380953	1612
132200	1928
183335,525547446	10147
108692,307692308	966
134448,275862069	6362
167510	2841
116715,85	14043
166988,01923077	4053
152346,428571429	1187
123397,435897436	2939
161304,487179488	4944,55000000002
144800	5252,37000000002
106275,757575758	2406
86722,2222222225	1147
146338,235294118	1983,55000000001
124256	1425
124450,083333334	793
103384,615384616	1837
78092,5200000003	1734
129619,047619048	1447
120547,775956285	12158,26
121774,193548388	4313
108406,230769231	41624,2500000001
97578,9523809527	2595
124246,785714286	4537
97294,016393443	7911
93838,7096774197	4832
100456,521739131	4393
85212,3243243246	10175
88542,172727273	14635,8900000001
419029,581901491	308607,200000001
245263,78997462	310650,640000001
249489,736547086	173031,360000001
247720,680939638	623488,140000002
222739,553339981	188220,210000001
198559,529850747	79740
254770,846946868	230311,070000001
192198,51458886	142512,53
182138,747076024	132402,22
171772,493273543	43558,1300000002
178771,545876888	164147,790000001
162862,712230216	53898,5300000002
250599,05612245	147971,670000001
190272,042553192	16709,6300000001
178501,398843931	36245
200223,269662922	96626,6800000004
167838	10433
172913,36673774	93344,7300000003
157965,400000001	28995
163252,977777778	206480,010000001
193686,886543536	76125
173217,90909091	24269
154679,29842932	39864
234845,122015916	77180,4700000003
169130,586387435	77718,8200000003
123144,103448276	17283
106043,209876544	15176
176683,016393443	23963
144578,571428572	10932
139844,255813954	8866
129712,65942029	26852
116036,626506025	16823
154395,34883721	18173,0600000001
149122,333984376	97166,0800000004
130421,894736843	33092,3100000001
139168,27898359	347401,280000001
127374,153284672	29185
134713,946745563	66278,7300000002
130189,540630183	115208,7
130028,343457944	80592,1500000003
107868,767068273	48740,5500000002
102978,721311476	163199,540000001
107305,550239235	203242,560000001
570154,759259261	104086,35
280834,195933458	453387,280000002
257401,819505096	292009,750000001
287594,523892269	468887,760000002
250749,303904925	249710,680000001
223133,143292684	140008,84
260657,504213484	299464,440000001
239199,355608593	174172,760000001
225938,550116551	177994,440000001
212532,902439025	68531,9400000002
208340,590538337	263320,810000001
184152,325102881	103935
259620,32857143	173142,830000001
232675,884615385	22251
202237,307189543	65331,1800000002
226747,734463278	74287
202433,040404041	42887
206617,708463951	131375,55
176421,022556392	56876
192922,89608637	305876,670000001
190188,429752067	217064
193396,518867925	96678,8400000003
177340,702054795	129007
258227,678004536	189602,110000001
175371,081012659	174831
149076,923076924	45125
133719,117647059	29974
213398,41509434	44572
167209,048192772	35463
157016,666666667	29672
146969,277227723	42554
135344,090909091	27975
161780,606666667	68072
170496,106250001	133737,1
155032,68627451	66724,0300000002
160577,255659122	308579
146648,419161677	71773
146194	108171,54
154064,405844156	125846,76
149563,513157895	60816
121971,904761905	117141
128148,687747036	210732,010000001
127362,026722926	296019
675784,354838712	22423
293262,911051214	283624
248916,903890161	334207,050000001
312587,818991099	251501
259544,269961978	195370,390000001
226855,351851853	123149,37
268128,913357402	210292,470000001
257471,288732395	107313,41
242785,803921569	113374,3
222969,387500001	60712,4100000002
219032,377483444	226389,300000001
208784,750000001	109010,9
275275	101175
244401,111111112	21563
217052,848101267	61358
231508,301369864	54333
203027,346938776	35699
228718,824175825	68368
197185,51724138	44715
208909,875576038	162229,740000001
199909,575609757	321890
199154,32900433	179832
190190,61904762	178888
276288,987603307	185127
188839,647928995	260040,930000001
148092,787878788	75980
146304,347826087	34920
247008,461538462	39489
185958,238805971	52651
163739,090909091	43886
167317,307692308	40856
148669,250000001	51466
183875,339130435	89115,3800000003
207199,875000001	157300,600000001
170844,444444445	97828
199296,824615385	247829,820000001
150692,298245615	85947
152465,506329114	121709
172008	93780,7000000003
177301,525000001	29522
149796,656000001	97071
150577,433179724	162420,580000001
149494,747081713	189442
427927,700000002	36628
353345,77922078	441334
289408,575757577	587588
405286,972602741	290465,490000001
348284,020618558	410936,980000001
283750,11594203	288496
331440,867256638	336406,250000001
332993,261904763	150146,750000001
338918,91891892	124228,53
287036,842105264	138233,600000001
299266,058139536	227795,910000001
281497,594339624	415181
336326,606557378	255234
457237,333333335	73980
317777	228926
300930	62680,1400000002
268893,090909092	117445
277078,214285715	103012,95
276275,652173914	94824,0200000003
288352	160431
235477,428571429	432534
229799,285714287	244729
246401,105263159	144777
374510,177966103	376934,350000001
254836,180904524	626373
207863,160000001	223756
171177,419354839	100455
285483,333333334	63398
225083,265306123	151573
201556,744680852	124176
224169,047619048	63122
183288,884615385	208465
241385,576923078	122965,78
265201,839622642	303384,330000001
214480,183908047	221010
269347,556701032	233802
225812,44871795	340514
230992,475609757	235337
248674,016393443	170739
180400	21667
193260,066666667	253405
188882,025316456	263951,820000001
206357,160000001	160047

Tables (Output of Computation)





Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=310428&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]0 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=310428&T=0

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

As an alternative you can also use a QR Code:  
QR Code


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

Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center






Correlations for all pairs of data series (method=pearson)
averagepricetotalsurface
averageprice10.314
totalsurface0.3141

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & averageprice & totalsurface \tabularnewline
averageprice & 1 & 0.314 \tabularnewline
totalsurface & 0.314 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=310428&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]averageprice[/C][C]totalsurface[/C][/ROW]
[ROW][C]averageprice[/C][C]1[/C][C]0.314[/C][/ROW]
[ROW][C]totalsurface[/C][C]0.314[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=310428&T=1

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

As an alternative you can also use a QR Code:  
QR Code


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

Correlations for all pairs of data series (method=pearson)
averagepricetotalsurface
averageprice10.314
totalsurface0.3141






Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
averageprice;totalsurface0.31390.45950.3213
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
averageprice;totalsurface & 0.3139 & 0.4595 & 0.3213 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=310428&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]averageprice;totalsurface[/C][C]0.3139[/C][C]0.4595[/C][C]0.3213[/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=310428&T=2

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

As an alternative you can also use a QR Code:  
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
averageprice;totalsurface0.31390.45950.3213
p-value(0)(0)(0)






Meta Analysis of Correlation Tests
Number of significant by total number of Correlations
Type I errorPearson rSpearman rhoKendall tau
0.01111
0.02111
0.03111
0.04111
0.05111
0.06111
0.07111
0.08111
0.09111
0.1111

\begin{tabular}{lllllllll}
\hline
Meta Analysis of Correlation Tests \tabularnewline
Number of significant by total number of Correlations \tabularnewline
Type I error & Pearson r & Spearman rho & Kendall tau \tabularnewline
0.01 & 1 & 1 & 1 \tabularnewline
0.02 & 1 & 1 & 1 \tabularnewline
0.03 & 1 & 1 & 1 \tabularnewline
0.04 & 1 & 1 & 1 \tabularnewline
0.05 & 1 & 1 & 1 \tabularnewline
0.06 & 1 & 1 & 1 \tabularnewline
0.07 & 1 & 1 & 1 \tabularnewline
0.08 & 1 & 1 & 1 \tabularnewline
0.09 & 1 & 1 & 1 \tabularnewline
0.1 & 1 & 1 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=310428&T=3

[TABLE]
[ROW][C]Meta Analysis of Correlation Tests[/C][/ROW]
[ROW][C]Number of significant by total number of Correlations[/C][/ROW]
[ROW][C]Type I error[/C][C]Pearson r[/C][C]Spearman rho[/C][C]Kendall tau[/C][/ROW]
[ROW][C]0.01[/C][C]1[/C][C]1[/C][C]1[/C][/ROW]
[ROW][C]0.02[/C][C]1[/C][C]1[/C][C]1[/C][/ROW]
[ROW][C]0.03[/C][C]1[/C][C]1[/C][C]1[/C][/ROW]
[ROW][C]0.04[/C][C]1[/C][C]1[/C][C]1[/C][/ROW]
[ROW][C]0.05[/C][C]1[/C][C]1[/C][C]1[/C][/ROW]
[ROW][C]0.06[/C][C]1[/C][C]1[/C][C]1[/C][/ROW]
[ROW][C]0.07[/C][C]1[/C][C]1[/C][C]1[/C][/ROW]
[ROW][C]0.08[/C][C]1[/C][C]1[/C][C]1[/C][/ROW]
[ROW][C]0.09[/C][C]1[/C][C]1[/C][C]1[/C][/ROW]
[ROW][C]0.1[/C][C]1[/C][C]1[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=310428&T=3

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

As an alternative you can also use a QR Code:  
QR Code


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

Meta Analysis of Correlation Tests
Number of significant by total number of Correlations
Type I errorPearson rSpearman rhoKendall tau
0.01111
0.02111
0.03111
0.04111
0.05111
0.06111
0.07111
0.08111
0.09111
0.1111


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
Parameters (R input):
par1 = pearson ;
R code (references can be found in the software module):
par1 <- 'pearson'
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', ...)
}
x <- na.omit(x)
y <- t(na.omit(t(y)))
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])
print(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')
ncorrs <- (n*n -n)/2
mycorrs <- array(0, dim=c(10,3))
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)
for (iii in 1:10) {
iiid100 <- iii / 100
if (rp$p.value < iiid100) mycorrs[iii, 1] = mycorrs[iii, 1] + 1
if (rs$p.value < iiid100) mycorrs[iii, 2] = mycorrs[iii, 2] + 1
if (rk$p.value < iiid100) mycorrs[iii, 3] = mycorrs[iii, 3] + 1
}
}
}
a<-table.end(a)
table.save(a,file='mytable1.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Meta Analysis of Correlation Tests',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Number of significant by total number of Correlations',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Type I error',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)
for (iii in 1:10) {
iiid100 <- iii / 100
a<-table.row.start(a)
a<-table.element(a,round(iiid100,2),header=T)
a<-table.element(a,round(mycorrs[iii,1]/ncorrs,2))
a<-table.element(a,round(mycorrs[iii,2]/ncorrs,2))
a<-table.element(a,round(mycorrs[iii,3]/ncorrs,2))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable2.tab')