R/RcppExports.R

In cayek/TESS3_encho_sen: Inference of Spatial Population Genetic Structure

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

#' Compute root squared mean error
#' @param Q1 Numeric.
#' @param Q2 Numeric.
#' @export
ComputeRmse <- function(Q1, Q2) {
    .Call('_tess3r_ComputeRmse', PACKAGE = 'tess3r', Q1, Q2)
}

#' Compute average cross entropy
#' @param P Numeric.
#' @param Q Numeric.
#' @export
ComputeAveragedCrossEntropy <- function(P, Q) {
    .Call('_tess3r_ComputeAveragedCrossEntropy', PACKAGE = 'tess3r', P, Q)
}

#' Binary coding of the genotype data matrix.
#' @param X Genotype matrix.
#' @param ploidy Numbet of chromosomes.
#' @param XBin Binary genotype matrix to fill.
#' @export
X2XBin <- function(X, ploidy, XBin) {
    invisible(.Call('_tess3r_X2XBin', PACKAGE = 'tess3r', X, ploidy, XBin))
}

#' Convert the binary genotype matrix into genotype matrix.
#' @param ploidy Numbet of chromosomes.
#' @param XBin Binary genotype matrix.
#' @export
XBin2X <- function(XBin, ploidy) {
    .Call('_tess3r_XBin2X', PACKAGE = 'tess3r', XBin, ploidy)
}

#' Compute graph sparse matrix with the heat kernel function.
#' @param coord Coordinate matrix.
#' @param sigma sigma numeric parameter.
ComputeHeatKernelWeightSparse <- function(coord, sigma) {
    .Call('_tess3r_ComputeHeatKernelWeightSparse', PACKAGE = 'tess3r', coord, sigma)
}

#' Compute graph matrix with the heat kernel function.
#' @param coord Coordinate matrix.
#' @param sigma sigma numeric parameter.
#' @export
ComputeHeatKernelWeight <- function(coord, sigma) {
    .Call('_tess3r_ComputeHeatKernelWeight', PACKAGE = 'tess3r', coord, sigma)
}

#' Compute graph matrix with an exponiential function.
#' @param coord Coordinate matrix.
#' @param sigma sigma numeric parameter.
#' @export
ComputeExponetialWeight <- function(coord, sigma) {
    .Call('_tess3r_ComputeExponetialWeight', PACKAGE = 'tess3r', coord, sigma)
}

#' Sample genotype from the TESS3 generative model.
#' @param Q Ancestry coefficients matrix.
#' @param G Ancestral frequencies matrix.
#' @param coord Coordinate matrix.
#' @param ploidy Number of chromosome.
#' @param openMP_core_num If openMP this is the number of CPU used.
#' @export
SampleGenoFromGenerativeModelTESS3 <- function(Q, G, coord, ploidy, openMP_core_num = 1L) {
    .Call('_tess3r_SampleGenoFromGenerativeModelTESS3', PACKAGE = 'tess3r', Q, G, coord, ploidy, openMP_core_num)
}

ComputeZHelper <- function(Q, n, L) {
    .Call('_tess3r_ComputeZHelper', PACKAGE = 'tess3r', Q, n, L)
}

ComputeAdmixtedGeno <- function(geno, Z, n, L) {
    .Call('_tess3r_ComputeAdmixtedGeno', PACKAGE = 'tess3r', geno, Z, n, L)
}

#' Compute Fst statistic
#' @param Q Ancestry coefficients matrix.
#' @param G Ancestral frequencies matrix.
#' @param D Number of chromosome + 1.
#' @export
ComputeFst <- function(Q, G, D) {
    .Call('_tess3r_ComputeFst', PACKAGE = 'tess3r', Q, G, D)
}

InitOpenMP <- function(n) {
    invisible(.Call('_tess3r_InitOpenMP', PACKAGE = 'tess3r', n))
}

ComputeMCPASolution <- function(X, K, Lapl, lambdaPrim, D, maxIteration, tolerance, Q, G, verbose) {
    invisible(.Call('_tess3r_ComputeMCPASolution', PACKAGE = 'tess3r', X, K, Lapl, lambdaPrim, D, maxIteration, tolerance, Q, G, verbose))
}

ComputeMCPASolutionNoCopyX <- function(X, K, Lapl, lambdaPrim, D, maxIteration, tolerance, Q, G, verbose) {
    invisible(.Call('_tess3r_ComputeMCPASolutionNoCopyX', PACKAGE = 'tess3r', X, K, Lapl, lambdaPrim, D, maxIteration, tolerance, Q, G, verbose))
}