powered by
Compute the adjacency matrix of the gaussian weighted graph
adjacency_mat(pts, f = function(x) { exp(-x^2/8) }, s = 0)
coordinates of N points in \(R^3\).
is a scalar potential (\(\exp(-x^2/2t^2)\) for gaussian potential)
is a threhold to sparisfy the matrix
laplacian_mat, swissroll
laplacian_mat
swissroll
# NOT RUN { pts <- swissroll(N=100, seed=0, a=1, b=4) W <- adjacency_mat(pts) # }
Run the code above in your browser using DataLab