求两点间最短距离

求两点间最短距离

f1<-function(x){
lx<-length(x)
i<-x[lx]
j<-which.min(x[(i+1):(lx-1)])
k<-i+j
return(c(k,x[k]))
}
f2<-function(y){
n<-nrow(y)
yy<-cbind(y,1:n)
y1<-apply(yy[-n,],1,f1)
i<-which.min(y1[2,])
j<-y1[1,i]
return(c(y[i,j],i,j))
}
sigma<-function(b){
m<-matrix(nrow=b,ncol=b)
m<-ifelse(row(m)==col(m),0,rnorm(5)*100)
return(m)
}

方法二，针对距离没有重复值的情况

f<-function(x){
m<-min(x)
n<-which(x==m,arr.ind=T)
return(c(m,n))
}

arr.ind=T 表明返回值是矩阵的下标，即行数和列数