powered by
primPath
primPath(A, start)
A <- dist(cbind(rnorm(100,0,1),rnorm(100,0,1))) primPath(as.matrix(A),1) primPath(as.matrix(A),2)
Run the code above in your browser using DataLab