[R] [interfacing C][dist]

[Guillaume Allain]

Hi,

Is it possible to access to the C source code of the "dist" function? I 
mean when u do read the dist code, it points almost directly to a C 
function  :

d <- .C("R_distance", x = as.double(x), nr = N, nc = ncol(x),
         d = double(N * (N - 1)/2), diag = as.integer(FALSE),
         method = as.integer(method), p = as.double(p), DUP = FALSE,
         NAOK = TRUE, PACKAGE = "stats")$d

I would like to access to the R_distance.c in order to add a home made 
distance for classification distance.

Thanks for your help, Guillaume