data(spirals)## create data set to be rankedran<-spirals[rowSums(abs(spirals)<0.55)==2,]## rank points according to "relevance" to point 54 (up left)ranked<-ranking(ran,54,kernel="rbfdot", kpar=list(sigma=100),edgegraph=TRUE)
ranked
edgegraph(ranked)[1:10,1:10]