Nothing
dist.euclidean<-function(X,Y,...){
X<-matrix(X,nrow(Y),2,byrow=TRUE)
dif<-rowSums((X-Y)^2)
return<-sqrt(dif)
}
dist.chebyshev<-function(X,Y,...){
X<-matrix(X,nrow(Y),2,byrow=TRUE)
dif<-matrix(,nrow(Y),1)
for(i in 1:nrow(Y))dif[i,]<-max(abs(X-Y)[i,])
return<- dif
}
dist.braycur<-function(X,Y,...){
X<-matrix(X,nrow(Y),2,byrow=TRUE)
dif<-rowSums(abs((X-Y)))
su<-rowSums(abs(X+Y))
return<- dif /su
}
dist.canberra<-function(X,Y,...){
X<-matrix(X,nrow(Y),2,byrow=TRUE)
dif<-abs((X-Y))
su<-abs(X)+abs(Y)
return<- rowSums(dif /su)
}
dist.gcircle <- function(X, Y, miles=TRUE, R=NULL) {
res <- spDists(x=X, y=Y, longlat=TRUE)
if (miles) res <- res*(3963.34/6378.388)
res
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.