# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
DijkstraSSSP <- function(Adj, Costs, source) {
.Call('_ProjectionBasedClustering_DijkstraSSSP', PACKAGE = 'ProjectionBasedClustering', Adj, Costs, source)
}
c_NeRV <- function(data, lambda, lastNeighbor, iterations, stepsPerRound, stepsOnLastRound, randominit, outputDimension, pca) {
.Call('_ProjectionBasedClustering_c_NeRV', PACKAGE = 'ProjectionBasedClustering', data, lambda, lastNeighbor, iterations, stepsPerRound, stepsOnLastRound, randominit, outputDimension, pca)
}
c_measure <- function(datamat, projmat, lastNeighbor) {
.Call('_ProjectionBasedClustering_c_measure', PACKAGE = 'ProjectionBasedClustering', datamat, projmat, lastNeighbor)
}
c_klmeasure <- function(Data, pData, NeighborhoodSize = 20L) {
.Call('_ProjectionBasedClustering_c_klmeasure', PACKAGE = 'ProjectionBasedClustering', Data, pData, NeighborhoodSize)
}
klrank <- function(Data, pData, NeighborhoodSize = 20L) {
.Call('_ProjectionBasedClustering_klrank', PACKAGE = 'ProjectionBasedClustering', Data, pData, NeighborhoodSize)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.