Description Usage Arguments Value Note Author(s) References See Also Examples

An efficient implementation of the distance correlation for two variables with the additional option to weight the observations.
The main application for the weights is to use frequencies according to ordinal variables which can be represented by a contingency table (`wdcor.table)`

).
Another idea is to make the distance correlation more robust by assigning small weights to observations which are far from the rest of the data.

For large datasets the distance correlation is often said to be too inefficient to be of any great use. The function approx.dcor offers a pretty good approximation of the distance correlation via binning and `wdcor.table)`

.

`wdcor.data.frame`

computes a distance correlation matrix. Factor variables are transformed to integer via `data.matrix`

.

1 2 3 4 5 6 7 |

`x` |
A data crosstable or a numeric vector. |

`y` |
A numeric vector. |

`w` |
Weights, typically frequencies. The default weights all cases the same, which leads to the standard distance correlation. |

`ep` |
The euclidean (absolute) distances can be taken to the power of |

`approx` |
Whether or not to use approx.dcor instead of wdcor. This is automatically chosen for vectors with more than 20000 entries. |

`n` |
The number of bins used by approx.dcor. |

`na.rm` |
Whether or nor to remove missing values. |

`...` |
dots. |

The correlation value which is between 0 and 1.

Automatically uses an approximation for vectors larger than 20000 entries!

Alexander Pilhoefer

Szekely, G. J. Rizzo, M. L. and Bakirov, N. K. (2007). "Measuring and testing independence by correlation of distances", Annals of Statistics, 35/6, 2769-2794

approx.dcor

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 | ```
# repeat and change N for different results and computation times.
N <- 2000
x1 <- rnorm(N,mean=10,sd=3)
x2 <- runif(N,0,40)
x3 <- rnorm(N,mean=30,sd=4)
x <- sample(c(x1,x2,x3),N)
y <- rnorm(1,sd=0.0001)*(x-mean(x))^4+ rnorm(1,sd=0.01)*(x-mean(x))^3
y <- y+ rnorm(1,sd=0.1)*(x-mean(x))^2
y <- y+ rnorm(1)*(x-mean(x))+rnorm(N,sd=runif(N,3,10))
y <- y+ runif(N,0,20)*sin(abs(scale(x))*2*pi)
require(scales)
plot(x,y,pch=19,col=alpha("black",0.2))
system.time(dd<-wdcor(x,y))
y2 <- runif(2000)
system.time(dde<-wdcor(x,y2))
dd
dde
## Not run:
y <- diamonds$price
x <- diamonds$carat
length(x) # 53940
# auto approximation via approx.dcor
wdcor(x,y)
# the weighted distance correlation is also applicable to
# discrete data:
A <- arsim(2000,c(12,12),4,0.1)
wdcor(A)
wdcor(optile(A))
wdcor(optile(A, fun = "distcor"))
# kernel density weights:
kd <- kde2d(x,y,n=50)
xy <- expand.grid(kd$x,kd$y)
wdcor(xy[,1],xy[,2], w = kd$z)
# this is the approximate distance correlation for the 2D density estimate
## End(Not run)
# a pairwise matrix:
D <- wdcor(olives[,3:10])
fluctile(D^2, shape="c")
``` |

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.