# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
calculateEuclideanDistance <- function(point1, point2) {
.Call('CKTSOM_calculateEuclideanDistance', PACKAGE = 'CKTSOM', point1, point2)
}
train_Rcpp <- function(numberOfChildrenperNode, treeHeight, initialLearningRate, finalLearningRate, initialRadius, finalRadius, iterations, lst, Names = as.character( c())) {
.Call('CKTSOM_train_Rcpp', PACKAGE = 'CKTSOM', numberOfChildrenperNode, treeHeight, initialLearningRate, finalLearningRate, initialRadius, finalRadius, iterations, lst, Names)
}
findBMU <- function(dataNeuron, dataStimulus) {
.Call('CKTSOM_findBMU', PACKAGE = 'CKTSOM', dataNeuron, dataStimulus)
}
set_seed <- function(seed) {
invisible(.Call('CKTSOM_set_seed', PACKAGE = 'CKTSOM', seed))
}
findBmuAndDistance <- function(dataNeuron, dataStimulus, numberOfChildrenperNode, treeHeight) {
.Call('CKTSOM_findBmuAndDistance', PACKAGE = 'CKTSOM', dataNeuron, dataStimulus, numberOfChildrenperNode, treeHeight)
}
trainSOM_Rcpp <- function(numberColumn, numberRow, initialLearningRate, finalLearningRate, initialRadius, finalRadius, iterations, lst, Names = as.character( c())) {
.Call('CKTSOM_trainSOM_Rcpp', PACKAGE = 'CKTSOM', numberColumn, numberRow, initialLearningRate, finalLearningRate, initialRadius, finalRadius, iterations, lst, Names)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.