R/RcppExports.R

Defines functions fast_dist equal rootChoose rootChooseLookup rootCombLookup stabExp lookup kmeans_predict

Documented in lookup

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

fast_dist <- function(x, power = 2L) {
    .Call('_cstab_fast_dist', PACKAGE = 'cstab', x, power)
}

equal <- function(x) {
    .Call('_cstab_equal', PACKAGE = 'cstab', x)
}

rootChoose <- function(n, k, root) {
    .Call('_cstab_rootChoose', PACKAGE = 'cstab', n, k, root)
}

rootChooseLookup <- function(n, k, lookup) {
    .Call('_cstab_rootChooseLookup', PACKAGE = 'cstab', n, k, lookup)
}

rootCombLookup <- function(ns, lookup) {
    .Call('_cstab_rootCombLookup', PACKAGE = 'cstab', ns, lookup)
}

stabExp <- function(ns, lookup) {
    .Call('_cstab_stabExp', PACKAGE = 'cstab', ns, lookup)
}

#' Create lookup table
#'
#' Create lookup table for faculties
#'
#' @param n integer specifying the number of
#' @param root numeric specifying the root used to avoid
#'   machine limit.
#'
#' @export
lookup <- function(n = 10000L, root = 200) {
    .Call('_cstab_lookup', PACKAGE = 'cstab', n, root)
}

kmeans_predict <- function(kmeans, data) {
    .Call('_cstab_kmeans_predict', PACKAGE = 'cstab', kmeans, data)
}

Try the cstab package in your browser

Any scripts or data that you put into this service are public.

cstab documentation built on May 2, 2019, 9:18 a.m.