RcppExports.R

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

DOptimality <- function(currentDesign) {
    .Call(`_skpr_DOptimality`, currentDesign)
}

DOptimalityLog <- function(currentDesign) {
    .Call(`_skpr_DOptimalityLog`, currentDesign)
}

DOptimalityBlocked <- function(currentDesign, blockedVar) {
    .Call(`_skpr_DOptimalityBlocked`, currentDesign, blockedVar)
}

DOptimalityBlockedLog <- function(currentDesign, blockedVar) {
    .Call(`_skpr_DOptimalityBlockedLog`, currentDesign, blockedVar)
}

calculateDEfficiency <- function(currentDesign) {
    .Call(`_skpr_calculateDEfficiency`, currentDesign)
}

AOptimality <- function(currentDesign) {
    .Call(`_skpr_AOptimality`, currentDesign)
}

calculateAOptimalityPseudo <- function(currentDesign) {
    .Call(`_skpr_calculateAOptimalityPseudo`, currentDesign)
}

IOptimality <- function(currentDesign, momentsMatrix, blockedVar) {
    .Call(`_skpr_IOptimality`, currentDesign, momentsMatrix, blockedVar)
}

calcAliasTrace <- function(currentDesign, aliasMatrix) {
    .Call(`_skpr_calcAliasTrace`, currentDesign, aliasMatrix)
}

covarianceMatrixPseudo <- function(design) {
    .Call(`_skpr_covarianceMatrixPseudo`, design)
}

getPseudoInverse <- function(currentDesign) {
    .Call(`_skpr_getPseudoInverse`, currentDesign)
}

GEfficiency <- function(currentDesign, candset) {
    .Call(`_skpr_GEfficiency`, currentDesign, candset)
}

genOptimalDesign <- function(initialdesign, candidatelist, condition, momentsmatrix, initialRows, aliasdesign, aliascandidatelist, minDopt, tolerance, augmentedrows, kexchange) {
    .Call(`_skpr_genOptimalDesign`, initialdesign, candidatelist, condition, momentsmatrix, initialRows, aliasdesign, aliascandidatelist, minDopt, tolerance, augmentedrows, kexchange)
}

genSplitPlotOptimalDesign <- function(initialdesign, candidatelist, blockeddesign, condition, momentsmatrix, initialRows, blockedVar, aliasdesign, aliascandidatelist, minDopt, interactions, disallowed, anydisallowed, tolerance, kexchange) {
    .Call(`_skpr_genSplitPlotOptimalDesign`, initialdesign, candidatelist, blockeddesign, condition, momentsmatrix, initialRows, blockedVar, aliasdesign, aliascandidatelist, minDopt, interactions, disallowed, anydisallowed, tolerance, kexchange)
}

genBlockedOptimalDesign <- function(initialdesign, candidatelist, condition, V, momentsmatrix, initialRows, aliasdesign, aliascandidatelist, minDopt, tolerance, augmentedrows, kexchange) {
    .Call(`_skpr_genBlockedOptimalDesign`, initialdesign, candidatelist, condition, V, momentsmatrix, initialRows, aliasdesign, aliascandidatelist, minDopt, tolerance, augmentedrows, kexchange)
}