Skip to main content

Browse the archive

Revision 62ec4279da693bf1ea3ff1a45af91e5877ff3715 authored by Matthias Templ on 20 January 2009, 20:49:02 UTC, committed by cran-robot on 20 January 2009, 20:49:02 UTC 
version 1.0.1
0 parent
Raw File
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)
  }
back to top