https://github.com/cran/robCompositions
Tip revision: 0c00ba572d6b53d50c6deb186fd64191d28834cd authored by Matthias Templ on 15 December 2008, 00:00:00 UTC
version 1.0.1
version 1.0.1
Tip revision: 0c00ba5
aDist.R
`aDist` <-
function(x,y){
d <- 0
p <- length(x)
for(i in 1:(p-1)){
for(j in (i+1):p){
d <- d + (log(x[i]/x[j]) - log(y[i]/y[j]))^2
}
}
d=d/p
sqrt(d)
}
