R/RcppExports.R

In nmfgpu4R: Non-Negative Matrix Factorization (NMF) using CUDA

# This file was generated by Rcpp::compileAttributes
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

initializeAdapters <- function(nmfgpuRoot) {
    .Call('nmfgpu4R_initializeAdapters', PACKAGE = 'nmfgpu4R', nmfgpuRoot)
}

shutdownAdapters <- function() {
    invisible(.Call('nmfgpu4R_shutdownAdapters', PACKAGE = 'nmfgpu4R'))
}

cppChooseGpu <- function(index) {
    .Call('nmfgpu4R_cppChooseGpu', PACKAGE = 'nmfgpu4R', index)
}

cppNumberOfGpu <- function() {
    .Call('nmfgpu4R_cppNumberOfGpu', PACKAGE = 'nmfgpu4R')
}

cppInfoForGpuIndex <- function(index) {
    .Call('nmfgpu4R_cppInfoForGpuIndex', PACKAGE = 'nmfgpu4R', index)
}

adapterComputeSinglePrecision <- function(algorithm, initMethod, V, features, seed, threshold, maxiter, runs, parameters, verbose, ssnmf) {
    .Call('nmfgpu4R_adapterComputeSinglePrecision', PACKAGE = 'nmfgpu4R', algorithm, initMethod, V, features, seed, threshold, maxiter, runs, parameters, verbose, ssnmf)
}

adapterComputeDoublePrecision <- function(algorithm, initMethod, V, features, seed, threshold, maxiter, runs, parameters, verbose, ssnmf) {
    .Call('nmfgpu4R_adapterComputeDoublePrecision', PACKAGE = 'nmfgpu4R', algorithm, initMethod, V, features, seed, threshold, maxiter, runs, parameters, verbose, ssnmf)
}

adapterComputeSinglePrecisionSparse <- function(algorithm, initMethod, sparseV, features, seed, threshold, maxiter, runs, parameters, verbose, ssnmf) {
    .Call('nmfgpu4R_adapterComputeSinglePrecisionSparse', PACKAGE = 'nmfgpu4R', algorithm, initMethod, sparseV, features, seed, threshold, maxiter, runs, parameters, verbose, ssnmf)
}

adapterComputeDoublePrecisionSparse <- function(algorithm, initMethod, sparseV, features, seed, threshold, maxiter, runs, parameters, verbose, ssnmf) {
    .Call('nmfgpu4R_adapterComputeDoublePrecisionSparse', PACKAGE = 'nmfgpu4R', algorithm, initMethod, sparseV, features, seed, threshold, maxiter, runs, parameters, verbose, ssnmf)
}

adapterSetCallback <- function(func) {
    invisible(.Call('nmfgpu4R_adapterSetCallback', PACKAGE = 'nmfgpu4R', func))
}

nmfgpuVersionString <- function() {
    .Call('nmfgpu4R_nmfgpuVersionString', PACKAGE = 'nmfgpu4R')
}