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 computationSun, 05 Dec 2010 09:40:35 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Dec/05/t1291543711t74f72myedm7bod.htm/, Retrieved Wed, 01 May 2024 22:57:33 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=105300, Retrieved Wed, 01 May 2024 22:57:33 +0000
QR Codes:

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

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] [Artikel Correlati...] [2010-12-05 09:40:35] [59f7d3e7fcb6374015f4e6b9053b0f01] [Current]
- R  D    [Kendall tau Correlation Matrix] [Science Correlation] [2010-12-10 15:51:16] [56d90b683fcd93137645f9226b43c62b]
- RM D    [Variability] [Science Eq SWS] [2010-12-10 16:11:05] [56d90b683fcd93137645f9226b43c62b]
- RM D    [Multiple Regression] [Science Eq PS] [2010-12-10 16:15:35] [56d90b683fcd93137645f9226b43c62b]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1	6,60	6.3	2.0	8.3	4.5	42.0	3	1	3
2.547	4603,00	2.1	1.8	3.9	69.0	624.0	3	5	4
10,550	179,50	9.1	.7	9.8	27.0	180.0	4	4	4
0,023	0,30	15.8	3.9	19.7	19.0	35.0	1	1	1
160	169,00	5.2	1.0	6.2	30.4	392.0	4	5	4
3	25,60	10.9	3.6	14.5	28.0	63.0	1	2	1
52,160	440,00	8.3	1.4	9.7	50.0	230.0	1	1	1
0,425	6,40	11.0	1.5	12.5	7.0	112.0	5	4	4
465	423,00	3.2	.7	3.9	30.0	281.0	5	5	5
0,075	1,20	6.3	2.1	8.4	3.5	42.0	1	1	1
3	25,00	8.6	.0	8.6	50.0	28.0	2	2	2
0,785	3,50	6.6	4.1	10.7	6.0	42.0	2	2	2
0,2	5,00	9.5	1.2	10.7	10.4	120.0	2	2	2
27,660	115,00	3.3	.5	3.8	20.0	148.0	5	5	5
0,12	1,00	11.0	3.4	14.4	3.9	16.0	3	1	2
85	325,00	4.7	1.5	6.2	41.0	310.0	1	3	1
0,101	4,00	10.4	3.4	13.8	9.0	28.0	5	1	3
1,040	5,50	7.4	.8	8.2	7.6	68.0	5	3	4
521	655,00	2.1	.8	2.9	46.0	336.0	5	5	5
0,005	0,14	7.7	1.4	9.1	2.6	21.5	5	2	4
0,1	0,25	17.9	2.0	19.9	24.0	50.0	1	1	1
62	1320,00	6.1	1.9	8.0	100.0	267.0	1	1	1
0,023	0,40	11.9	1.3	13.2	3.2	19.0	4	1	3
0,048	0,33	10.8	2.0	12.8	2.0	30.0	4	1	3
1,700	6,30	13.8	5.6	19.4	5.0	12.0	2	1	1
3,500	10,80	14.3	3.1	17.4	6.5	120.0	2	1	1
0,48	15,50	15.2	1.8	17.0	12.0	140.0	2	2	2
10	115,00	10.0	.9	10.9	20.2	170.0	4	4	4
1,620	11,40	11.9	1.8	13.7	13.0	17.0	2	1	2
192	180,00	6.5	1.9	8.4	27.0	115.0	4	4	4
2,500	12,10	7.5	.9	8.4	18.0	31.0	5	5	5
0,28	1,90	10.6	2.6	13.2	4.7	21.0	3	1	3
4,235	50,40	7.4	2.4	9.8	9.8	52.0	1	1	1
6,800	179,00	8.4	1.2	9.6	29.0	164.0	2	3	2
0,75	12,30	5.7	.9	6.6	7.0	225.0	2	2	2
3,600	21,00	4.9	.5	5.4	6.0	225.0	3	2	3
55,500	175,00	3.2	.6	3.8	20.0	151.0	5	5	5
0,9	2,60	11.0	2.3	13.3	4.5	60.0	2	1	2
2	12,30	4.9	.5	5.4	7.5	200.0	3	1	3
0,104	2,50	13.2	2.6	15.8	2.3	46.0	3	2	2
4,190	58,00	9.7	.6	10.3	24.0	210.0	4	3	4
3,500	3,90	12.8	6.6	19.4	3.0	14.0	2	1	1

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\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 & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=105300&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]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=105300&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=105300&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135






Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( Wb , Wbr )0.7571346653942151.83653092733493e-12
tau( Wb , SWS )-0.3964936687897150.000236359478063198
tau( Wb , PS )-0.2673884047533830.0137419766589136
tau( Wb , totS )-0.3946179117976420.000256839706163727
tau( Wb , L )0.5128518671187631.93206355358910e-06
tau( Wb , Gt )0.4810281749256647.91258006582751e-06
tau( Wb , P )0.07225956837295130.533818337390682
tau( Wb , S )0.4254186065984250.000319713016479595
tau( Wb , D )0.1814281434747690.119103162925846
tau( Wbr , SWS )-0.4558775732257022.34236960185247e-05
tau( Wbr , PS )-0.2966636363877970.00623537593862504
tau( Wbr , totS )-0.4470512547249603.42488465268135e-05
tau( Wbr , L )0.6584966755121729.62457669118066e-10
tau( Wbr , Gt )0.5799315675625057.08817746719603e-08
tau( Wbr , P )0.04384633676029870.705625257939324
tau( Wbr , S )0.476461369157125.51340981567172e-05
tau( Wbr , D )0.1994547592925570.086470289155459
tau( SWS , PS )0.3924448581508270.000312116445633892
tau( SWS , totS )0.8719159956395378.88178419700125e-16
tau( SWS , L )-0.2778430983146130.0101414767599313
tau( SWS , Gt )-0.4628009490560011.82850309260073e-05
tau( SWS , P )-0.2240150960228880.0545087313334057
tau( SWS , S )-0.424203366798950.000347409243316915
tau( SWS , D )-0.3771364122826690.00123998406969533
tau( PS , totS )0.5325537018725451.02436867432942e-06
tau( PS , L )-0.2562070969015730.0184760797718129
tau( PS , Gt )-0.3870358045546180.000369470600106113
tau( PS , P )-0.3416745477770320.00356774912272733
tau( PS , S )-0.4586160033161210.000121705497547541
tau( PS , D )-0.4859085392843723.55677343505413e-05
tau( totS , L )-0.2863857655727480.00811583312960107
tau( totS , Gt )-0.473902331005711.17052413872179e-05
tau( totS , P )-0.2942844904926830.0116293367770158
tau( totS , S )-0.4681221630826518.0399161371065e-05
tau( totS , D )-0.4635118054177857.34236429055191e-05
tau( L , Gt )0.4915155902879555.22989457385492e-06
tau( L , P )-0.08406890703948150.470093237636685
tau( L , S )0.3844492124865450.00117350231741375
tau( L , D )0.09222521538187330.429197905432199
tau( Gt , P )0.03490050304482670.764146220326786
tau( Gt , S )0.4532223523734850.000129197391393054
tau( Gt , D )0.1947280282992380.0948816341404255
tau( P , S )0.4754749822572320.000200676754268159
tau( P , D )0.8708832462814794.6083137306141e-12
tau( S , D )0.6291929657582279.17290907676005e-07

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( Wb , Wbr ) & 0.757134665394215 & 1.83653092733493e-12 \tabularnewline
tau( Wb , SWS ) & -0.396493668789715 & 0.000236359478063198 \tabularnewline
tau( Wb , PS ) & -0.267388404753383 & 0.0137419766589136 \tabularnewline
tau( Wb , totS ) & -0.394617911797642 & 0.000256839706163727 \tabularnewline
tau( Wb , L ) & 0.512851867118763 & 1.93206355358910e-06 \tabularnewline
tau( Wb , Gt ) & 0.481028174925664 & 7.91258006582751e-06 \tabularnewline
tau( Wb , P ) & 0.0722595683729513 & 0.533818337390682 \tabularnewline
tau( Wb , S ) & 0.425418606598425 & 0.000319713016479595 \tabularnewline
tau( Wb , D ) & 0.181428143474769 & 0.119103162925846 \tabularnewline
tau( Wbr , SWS ) & -0.455877573225702 & 2.34236960185247e-05 \tabularnewline
tau( Wbr , PS ) & -0.296663636387797 & 0.00623537593862504 \tabularnewline
tau( Wbr , totS ) & -0.447051254724960 & 3.42488465268135e-05 \tabularnewline
tau( Wbr , L ) & 0.658496675512172 & 9.62457669118066e-10 \tabularnewline
tau( Wbr , Gt ) & 0.579931567562505 & 7.08817746719603e-08 \tabularnewline
tau( Wbr , P ) & 0.0438463367602987 & 0.705625257939324 \tabularnewline
tau( Wbr , S ) & 0.47646136915712 & 5.51340981567172e-05 \tabularnewline
tau( Wbr , D ) & 0.199454759292557 & 0.086470289155459 \tabularnewline
tau( SWS , PS ) & 0.392444858150827 & 0.000312116445633892 \tabularnewline
tau( SWS , totS ) & 0.871915995639537 & 8.88178419700125e-16 \tabularnewline
tau( SWS , L ) & -0.277843098314613 & 0.0101414767599313 \tabularnewline
tau( SWS , Gt ) & -0.462800949056001 & 1.82850309260073e-05 \tabularnewline
tau( SWS , P ) & -0.224015096022888 & 0.0545087313334057 \tabularnewline
tau( SWS , S ) & -0.42420336679895 & 0.000347409243316915 \tabularnewline
tau( SWS , D ) & -0.377136412282669 & 0.00123998406969533 \tabularnewline
tau( PS , totS ) & 0.532553701872545 & 1.02436867432942e-06 \tabularnewline
tau( PS , L ) & -0.256207096901573 & 0.0184760797718129 \tabularnewline
tau( PS , Gt ) & -0.387035804554618 & 0.000369470600106113 \tabularnewline
tau( PS , P ) & -0.341674547777032 & 0.00356774912272733 \tabularnewline
tau( PS , S ) & -0.458616003316121 & 0.000121705497547541 \tabularnewline
tau( PS , D ) & -0.485908539284372 & 3.55677343505413e-05 \tabularnewline
tau( totS , L ) & -0.286385765572748 & 0.00811583312960107 \tabularnewline
tau( totS , Gt ) & -0.47390233100571 & 1.17052413872179e-05 \tabularnewline
tau( totS , P ) & -0.294284490492683 & 0.0116293367770158 \tabularnewline
tau( totS , S ) & -0.468122163082651 & 8.0399161371065e-05 \tabularnewline
tau( totS , D ) & -0.463511805417785 & 7.34236429055191e-05 \tabularnewline
tau( L , Gt ) & 0.491515590287955 & 5.22989457385492e-06 \tabularnewline
tau( L , P ) & -0.0840689070394815 & 0.470093237636685 \tabularnewline
tau( L , S ) & 0.384449212486545 & 0.00117350231741375 \tabularnewline
tau( L , D ) & 0.0922252153818733 & 0.429197905432199 \tabularnewline
tau( Gt , P ) & 0.0349005030448267 & 0.764146220326786 \tabularnewline
tau( Gt , S ) & 0.453222352373485 & 0.000129197391393054 \tabularnewline
tau( Gt , D ) & 0.194728028299238 & 0.0948816341404255 \tabularnewline
tau( P , S ) & 0.475474982257232 & 0.000200676754268159 \tabularnewline
tau( P , D ) & 0.870883246281479 & 4.6083137306141e-12 \tabularnewline
tau( S , D ) & 0.629192965758227 & 9.17290907676005e-07 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=105300&T=1

[TABLE]
[ROW][C]Kendall tau rank correlations for all pairs of data series[/C][/ROW]
[ROW][C]pair[/C][C]tau[/C][C]p-value[/C][/ROW]
[ROW][C]tau( Wb , Wbr )[/C][C]0.757134665394215[/C][C]1.83653092733493e-12[/C][/ROW]
[ROW][C]tau( Wb , SWS )[/C][C]-0.396493668789715[/C][C]0.000236359478063198[/C][/ROW]
[ROW][C]tau( Wb , PS )[/C][C]-0.267388404753383[/C][C]0.0137419766589136[/C][/ROW]
[ROW][C]tau( Wb , totS )[/C][C]-0.394617911797642[/C][C]0.000256839706163727[/C][/ROW]
[ROW][C]tau( Wb , L )[/C][C]0.512851867118763[/C][C]1.93206355358910e-06[/C][/ROW]
[ROW][C]tau( Wb , Gt )[/C][C]0.481028174925664[/C][C]7.91258006582751e-06[/C][/ROW]
[ROW][C]tau( Wb , P )[/C][C]0.0722595683729513[/C][C]0.533818337390682[/C][/ROW]
[ROW][C]tau( Wb , S )[/C][C]0.425418606598425[/C][C]0.000319713016479595[/C][/ROW]
[ROW][C]tau( Wb , D )[/C][C]0.181428143474769[/C][C]0.119103162925846[/C][/ROW]
[ROW][C]tau( Wbr , SWS )[/C][C]-0.455877573225702[/C][C]2.34236960185247e-05[/C][/ROW]
[ROW][C]tau( Wbr , PS )[/C][C]-0.296663636387797[/C][C]0.00623537593862504[/C][/ROW]
[ROW][C]tau( Wbr , totS )[/C][C]-0.447051254724960[/C][C]3.42488465268135e-05[/C][/ROW]
[ROW][C]tau( Wbr , L )[/C][C]0.658496675512172[/C][C]9.62457669118066e-10[/C][/ROW]
[ROW][C]tau( Wbr , Gt )[/C][C]0.579931567562505[/C][C]7.08817746719603e-08[/C][/ROW]
[ROW][C]tau( Wbr , P )[/C][C]0.0438463367602987[/C][C]0.705625257939324[/C][/ROW]
[ROW][C]tau( Wbr , S )[/C][C]0.47646136915712[/C][C]5.51340981567172e-05[/C][/ROW]
[ROW][C]tau( Wbr , D )[/C][C]0.199454759292557[/C][C]0.086470289155459[/C][/ROW]
[ROW][C]tau( SWS , PS )[/C][C]0.392444858150827[/C][C]0.000312116445633892[/C][/ROW]
[ROW][C]tau( SWS , totS )[/C][C]0.871915995639537[/C][C]8.88178419700125e-16[/C][/ROW]
[ROW][C]tau( SWS , L )[/C][C]-0.277843098314613[/C][C]0.0101414767599313[/C][/ROW]
[ROW][C]tau( SWS , Gt )[/C][C]-0.462800949056001[/C][C]1.82850309260073e-05[/C][/ROW]
[ROW][C]tau( SWS , P )[/C][C]-0.224015096022888[/C][C]0.0545087313334057[/C][/ROW]
[ROW][C]tau( SWS , S )[/C][C]-0.42420336679895[/C][C]0.000347409243316915[/C][/ROW]
[ROW][C]tau( SWS , D )[/C][C]-0.377136412282669[/C][C]0.00123998406969533[/C][/ROW]
[ROW][C]tau( PS , totS )[/C][C]0.532553701872545[/C][C]1.02436867432942e-06[/C][/ROW]
[ROW][C]tau( PS , L )[/C][C]-0.256207096901573[/C][C]0.0184760797718129[/C][/ROW]
[ROW][C]tau( PS , Gt )[/C][C]-0.387035804554618[/C][C]0.000369470600106113[/C][/ROW]
[ROW][C]tau( PS , P )[/C][C]-0.341674547777032[/C][C]0.00356774912272733[/C][/ROW]
[ROW][C]tau( PS , S )[/C][C]-0.458616003316121[/C][C]0.000121705497547541[/C][/ROW]
[ROW][C]tau( PS , D )[/C][C]-0.485908539284372[/C][C]3.55677343505413e-05[/C][/ROW]
[ROW][C]tau( totS , L )[/C][C]-0.286385765572748[/C][C]0.00811583312960107[/C][/ROW]
[ROW][C]tau( totS , Gt )[/C][C]-0.47390233100571[/C][C]1.17052413872179e-05[/C][/ROW]
[ROW][C]tau( totS , P )[/C][C]-0.294284490492683[/C][C]0.0116293367770158[/C][/ROW]
[ROW][C]tau( totS , S )[/C][C]-0.468122163082651[/C][C]8.0399161371065e-05[/C][/ROW]
[ROW][C]tau( totS , D )[/C][C]-0.463511805417785[/C][C]7.34236429055191e-05[/C][/ROW]
[ROW][C]tau( L , Gt )[/C][C]0.491515590287955[/C][C]5.22989457385492e-06[/C][/ROW]
[ROW][C]tau( L , P )[/C][C]-0.0840689070394815[/C][C]0.470093237636685[/C][/ROW]
[ROW][C]tau( L , S )[/C][C]0.384449212486545[/C][C]0.00117350231741375[/C][/ROW]
[ROW][C]tau( L , D )[/C][C]0.0922252153818733[/C][C]0.429197905432199[/C][/ROW]
[ROW][C]tau( Gt , P )[/C][C]0.0349005030448267[/C][C]0.764146220326786[/C][/ROW]
[ROW][C]tau( Gt , S )[/C][C]0.453222352373485[/C][C]0.000129197391393054[/C][/ROW]
[ROW][C]tau( Gt , D )[/C][C]0.194728028299238[/C][C]0.0948816341404255[/C][/ROW]
[ROW][C]tau( P , S )[/C][C]0.475474982257232[/C][C]0.000200676754268159[/C][/ROW]
[ROW][C]tau( P , D )[/C][C]0.870883246281479[/C][C]4.6083137306141e-12[/C][/ROW]
[ROW][C]tau( S , D )[/C][C]0.629192965758227[/C][C]9.17290907676005e-07[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=105300&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=105300&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:

Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( Wb , Wbr )0.7571346653942151.83653092733493e-12
tau( Wb , SWS )-0.3964936687897150.000236359478063198
tau( Wb , PS )-0.2673884047533830.0137419766589136
tau( Wb , totS )-0.3946179117976420.000256839706163727
tau( Wb , L )0.5128518671187631.93206355358910e-06
tau( Wb , Gt )0.4810281749256647.91258006582751e-06
tau( Wb , P )0.07225956837295130.533818337390682
tau( Wb , S )0.4254186065984250.000319713016479595
tau( Wb , D )0.1814281434747690.119103162925846
tau( Wbr , SWS )-0.4558775732257022.34236960185247e-05
tau( Wbr , PS )-0.2966636363877970.00623537593862504
tau( Wbr , totS )-0.4470512547249603.42488465268135e-05
tau( Wbr , L )0.6584966755121729.62457669118066e-10
tau( Wbr , Gt )0.5799315675625057.08817746719603e-08
tau( Wbr , P )0.04384633676029870.705625257939324
tau( Wbr , S )0.476461369157125.51340981567172e-05
tau( Wbr , D )0.1994547592925570.086470289155459
tau( SWS , PS )0.3924448581508270.000312116445633892
tau( SWS , totS )0.8719159956395378.88178419700125e-16
tau( SWS , L )-0.2778430983146130.0101414767599313
tau( SWS , Gt )-0.4628009490560011.82850309260073e-05
tau( SWS , P )-0.2240150960228880.0545087313334057
tau( SWS , S )-0.424203366798950.000347409243316915
tau( SWS , D )-0.3771364122826690.00123998406969533
tau( PS , totS )0.5325537018725451.02436867432942e-06
tau( PS , L )-0.2562070969015730.0184760797718129
tau( PS , Gt )-0.3870358045546180.000369470600106113
tau( PS , P )-0.3416745477770320.00356774912272733
tau( PS , S )-0.4586160033161210.000121705497547541
tau( PS , D )-0.4859085392843723.55677343505413e-05
tau( totS , L )-0.2863857655727480.00811583312960107
tau( totS , Gt )-0.473902331005711.17052413872179e-05
tau( totS , P )-0.2942844904926830.0116293367770158
tau( totS , S )-0.4681221630826518.0399161371065e-05
tau( totS , D )-0.4635118054177857.34236429055191e-05
tau( L , Gt )0.4915155902879555.22989457385492e-06
tau( L , P )-0.08406890703948150.470093237636685
tau( L , S )0.3844492124865450.00117350231741375
tau( L , D )0.09222521538187330.429197905432199
tau( Gt , P )0.03490050304482670.764146220326786
tau( Gt , S )0.4532223523734850.000129197391393054
tau( Gt , D )0.1947280282992380.0948816341404255
tau( P , S )0.4754749822572320.000200676754268159
tau( P , D )0.8708832462814794.6083137306141e-12
tau( S , D )0.6291929657582279.17290907676005e-07


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
Parameters (R input):
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='kendall')
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')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Kendall tau rank correlations for all pairs of data series',3,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'pair',1,TRUE)
a<-table.element(a,'tau',1,TRUE)
a<-table.element(a,'p-value',1,TRUE)
a<-table.row.end(a)
n <- length(y[,1])
n
cor.test(y[1,],y[2,],method='kendall')
for (i in 1:(n-1))
{
for (j in (i+1):n)
{
a<-table.row.start(a)
dum <- paste('tau(',dimnames(t(x))[[2]][i])
dum <- paste(dum,',')
dum <- paste(dum,dimnames(t(x))[[2]][j])
dum <- paste(dum,')')
a<-table.element(a,dum,header=TRUE)
r <- cor.test(y[i,],y[j,],method='kendall')
a<-table.element(a,r$estimate)
a<-table.element(a,r$p.value)
a<-table.row.end(a)
}
}
a<-table.end(a)
table.save(a,file='mytable.tab')