powered by
find_coords(wgts, nns, N, n, m)
find_weights
find_nn_k
find_nn_eps
data( lle_scurve_data ) X <- lle_scurve_data nns <- find_nn_k(X,5) wgts <- find_weights(nns,X,2) Y <- find_coords( wgts$wgts, nns, dim(X)[1], 3, 2 )
Run the code above in your browser using DataLab