R/RcppExports.R

In mariobecerra/opdesmixr: Optimal experimental designs for mixture models

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

computeCoxDirection <- function(x, comp, n_points, verbose) {
    .Call(`_opdesmixr_computeCoxDirection`, x, comp, n_points, verbose)
}

getScheffeGaussian <- function(X, order, n_pv = 0L) {
    .Call(`_opdesmixr_getScheffeGaussian`, X, order, n_pv)
}

getOptCritValueGaussian <- function(X, order, q, opt_crit, W, n_pv = 0L) {
    .Call(`_opdesmixr_getOptCritValueGaussian`, X, order, q, opt_crit, W, n_pv)
}

changeIngredientDesignCoxGaussian <- function(theta, X, i, j, n_pv) {
    invisible(.Call(`_opdesmixr_changeIngredientDesignCoxGaussian`, theta, X, i, j, n_pv))
}

efficiencyCoxScheffeGaussian <- function(theta, X, i, j, order, opt_crit, W, n_pv) {
    .Call(`_opdesmixr_efficiencyCoxScheffeGaussian`, theta, X, i, j, order, opt_crit, W, n_pv)
}

mixtureCoordinateExchangeGaussian <- function(X_orig, order, max_it, verbose, opt_crit, W, opt_method, lower, upper, tol, n_cox_points, n_pv) {
    .Call(`_opdesmixr_mixtureCoordinateExchangeGaussian`, X_orig, order, max_it, verbose, opt_crit, W, opt_method, lower, upper, tol, n_cox_points, n_pv)
}

getXsMNL <- function(X, s, order, n_pv = 0L) {
    .Call(`_opdesmixr_getXsMNL`, X, s, order, n_pv)
}

getUsMNL <- function(X, beta, s, Xs, transform_beta = TRUE, n_pv = 0L) {
    .Call(`_opdesmixr_getUsMNL`, X, beta, s, Xs, transform_beta, n_pv)
}

getPsMNL <- function(X, beta, s, Xs, transform_beta = TRUE, n_pv = 0L) {
    .Call(`_opdesmixr_getPsMNL`, X, beta, s, Xs, transform_beta, n_pv)
}

getInformationMatrixMNL <- function(X, beta, order, transform_beta = TRUE, n_pv = 0L) {
    .Call(`_opdesmixr_getInformationMatrixMNL`, X, beta, order, transform_beta, n_pv)
}

getOptCritValueMNL <- function(X, beta_mat, verbose, opt_crit, W, order, transform_beta = TRUE, n_pv = 0L) {
    .Call(`_opdesmixr_getOptCritValueMNL`, X, beta_mat, verbose, opt_crit, W, order, transform_beta, n_pv)
}

findBestCoxDirMNLDiscrete <- function(cox_dir, X, beta_mat, k, s, opt_crit_value_best, verbose, opt_crit, W, order, transform_beta = TRUE) {
    invisible(.Call(`_opdesmixr_findBestCoxDirMNLDiscrete`, cox_dir, X, beta_mat, k, s, opt_crit_value_best, verbose, opt_crit, W, order, transform_beta))
}

changeIngredientDesignMNL <- function(theta, X, i, j, s, n_pv) {
    invisible(.Call(`_opdesmixr_changeIngredientDesignMNL`, theta, X, i, j, s, n_pv))
}

efficiencyCoxScheffeMNL <- function(theta, X, beta_mat, i, j, s, opt_crit, W, order, transform_beta = TRUE, n_pv = 0L) {
    .Call(`_opdesmixr_efficiencyCoxScheffeMNL`, theta, X, beta_mat, i, j, s, opt_crit, W, order, transform_beta, n_pv)
}

findBestCoxDirMNLBrent <- function(X, beta_mat, i, j, s, opt_crit, order, W, lower = -1, upper = 1, tol = 0.0001, verbose = 0L, transform_beta = TRUE, n_pv = 0L) {
    invisible(.Call(`_opdesmixr_findBestCoxDirMNLBrent`, X, beta_mat, i, j, s, opt_crit, order, W, lower, upper, tol, verbose, transform_beta, n_pv))
}

mixtureCoordinateExchangeMNL <- function(X_orig, beta_mat, order, max_it, verbose, opt_crit, W, opt_method, lower, upper, tol, n_cox_points, transform_beta = TRUE, n_pv = 0L) {
    .Call(`_opdesmixr_mixtureCoordinateExchangeMNL`, X_orig, beta_mat, order, max_it, verbose, opt_crit, W, opt_method, lower, upper, tol, n_cox_points, transform_beta, n_pv)
}