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 computationFri, 13 Nov 2009 07:33:37 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Nov/13/t12581228870ykxjkqt6p35zqz.htm/, Retrieved Sun, 05 May 2024 11:42:20 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56707, Retrieved Sun, 05 May 2024 11:42:20 +0000
QR Codes:

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

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] [] [2009-11-13 14:33:37] [c88a5f1b97e332c6387d668c465455af] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1258		476049		280		47
1199		474605		557		55
1158		470439		831		55
1427		461251		1081		51
934		454724		1318		55
709		455626		1578		58
1186		516847		1859		49
986		525192		2141		52
1033		522975		2428		52
1257		518585		2715		57
1105		509239		3004		61
1179		512238		3309		61
1092		519164		269		32
1092		517009		537		43
1087		509933		813		54
2028		509127		1068		81
2039		500857		1411		72
2010		506971		1675		69
754		569323		1958		30
760		579714		2242		53
715		577992		2524		57
855		565464		2836		64
971		547344		3143		71
815		554788		3522		65
915		562325		285		59
843		560854		574		68
761		555332		865		70
1858		543599		1147		75
2968		536662		1516		74
4061		542722		1789		68
3661		593530		2087		62
3269		610763		2372		56
2857		612613		2669		55
2568		611324		2966		74
2274		594167		3270		58
1987		595454		3652		72
683		590865		329		63
381		589379		658		68
71		584428		988		55
1772		573100		1303		71
3485		567456		1603		79
5181		569028		1929		74
4479		620735		2235		75
3782		628884		2544		69
3067		628232		2872		63
2489		612117		3198		88
1903		595404		3544		68
1330		597141		3903		89
736		593408		332		63
483		590072		665		74
242		579799		1001		63
1334		574205		1329		79
2423		572775		1639		80
3523		572942		1975		77
2986		619567		2304		96
2462		625809		2640		88
1908		619916		2992		56
1575		587625		3330		74
1237		565742		3690		82
904		557274		4063		69

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135
R Framework error message
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.

\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 & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
R Framework error message & 
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56707&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]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[ROW][C]R Framework error message[/C][C]
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56707&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56707&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 time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135
R Framework error message
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.






Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( beleggingen , werklozen )0.1599321906175970.0710761924627468
tau( beleggingen , arbeidsinkomsten )0.1904492870605310.0316022724481952
tau( beleggingen , verzekeringen )0.2679090515660640.00280035955216107
tau( werklozen , arbeidsinkomsten )0.2451977401129940.00563978613248284
tau( werklozen , verzekeringen )0.2489476746849110.00546885471841185
tau( arbeidsinkomsten , verzekeringen )0.2146100643835440.0166267722779487

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( beleggingen , werklozen ) & 0.159932190617597 & 0.0710761924627468 \tabularnewline
tau( beleggingen , arbeidsinkomsten ) & 0.190449287060531 & 0.0316022724481952 \tabularnewline
tau( beleggingen , verzekeringen ) & 0.267909051566064 & 0.00280035955216107 \tabularnewline
tau( werklozen , arbeidsinkomsten ) & 0.245197740112994 & 0.00563978613248284 \tabularnewline
tau( werklozen , verzekeringen ) & 0.248947674684911 & 0.00546885471841185 \tabularnewline
tau( arbeidsinkomsten , verzekeringen ) & 0.214610064383544 & 0.0166267722779487 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56707&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( beleggingen , werklozen )[/C][C]0.159932190617597[/C][C]0.0710761924627468[/C][/ROW]
[ROW][C]tau( beleggingen , arbeidsinkomsten )[/C][C]0.190449287060531[/C][C]0.0316022724481952[/C][/ROW]
[ROW][C]tau( beleggingen , verzekeringen )[/C][C]0.267909051566064[/C][C]0.00280035955216107[/C][/ROW]
[ROW][C]tau( werklozen , arbeidsinkomsten )[/C][C]0.245197740112994[/C][C]0.00563978613248284[/C][/ROW]
[ROW][C]tau( werklozen , verzekeringen )[/C][C]0.248947674684911[/C][C]0.00546885471841185[/C][/ROW]
[ROW][C]tau( arbeidsinkomsten , verzekeringen )[/C][C]0.214610064383544[/C][C]0.0166267722779487[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56707&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56707&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( beleggingen , werklozen )0.1599321906175970.0710761924627468
tau( beleggingen , arbeidsinkomsten )0.1904492870605310.0316022724481952
tau( beleggingen , verzekeringen )0.2679090515660640.00280035955216107
tau( werklozen , arbeidsinkomsten )0.2451977401129940.00563978613248284
tau( werklozen , verzekeringen )0.2489476746849110.00546885471841185
tau( arbeidsinkomsten , verzekeringen )0.2146100643835440.0166267722779487


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