# author: N. Matloff

rthkendall <- function(xy) {
   dyn.load("rthkendall.so")
   n <- length(xy) / 2
   tmp <-
   .C("rthkendall",as.double(xy),as.integer(n),tmpres=double(1),DUP=F)
   return(tmp$tmpres)
}