R/RcppExports.R

In PPRL: Privacy Preserving Record Linkage

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

CreateALC <- function(ID, data, soundex, password) {
    .Call('_PPRL_CreateALC', PACKAGE = 'PPRL', ID, data, soundex, password)
}

Create581 <- function(ID, data, code, password) {
    .Call('_PPRL_Create581', PACKAGE = 'PPRL', ID, data, code, password)
}

CreateAS16 <- function(ID, data, password) {
    .Call('_PPRL_CreateAS16', PACKAGE = 'PPRL', ID, data, password)
}

CompareAS16 <- function(IDA, dataA, IDB, dataB, password, t = 0.85) {
    .Call('_PPRL_CompareAS16', PACKAGE = 'PPRL', IDA, dataA, IDB, dataB, password, t)
}

CreateBalancedBF <- function(ID, data, password) {
    .Call('_PPRL_CreateBalancedBF', PACKAGE = 'PPRL', ID, data, password)
}

CreateDoubleBalancedBF <- function(ID, data, password) {
    .Call('_PPRL_CreateDoubleBalancedBF', PACKAGE = 'PPRL', ID, data, password)
}

CreateCLK <- function(ID, data, password, k = 20L, padding = as.integer( c(0)), qgram = as.integer( c(2)), lenBloom = 1000L) {
    .Call('_PPRL_CreateCLK', PACKAGE = 'PPRL', ID, data, password, k, padding, qgram, lenBloom)
}

CreateMarkovCLK <- function(ID, data, password, markovTable, k1 = 20L, k2 = 4L, padding = as.integer( c(0)), qgram = as.integer( c(2)), lenBloom = 1000L, includeOriginalBigram = TRUE, v = FALSE) {
    .Call('_PPRL_CreateMarkovCLK', PACKAGE = 'PPRL', ID, data, password, markovTable, k1, k2, padding, qgram, lenBloom, includeOriginalBigram, v)
}

CreateEnsembleCLK <- function(ID, data, password, NumberOfCLK = 1L, k = 20L, padding = as.integer( c(0)), qgram = as.integer( c(2)), lenBloom = 1000L) {
    .Call('_PPRL_CreateEnsembleCLK', PACKAGE = 'PPRL', ID, data, password, NumberOfCLK, k, padding, qgram, lenBloom)
}

CreateBF <- function(ID, data, password, k = 20L, padding = 1L, qgram = 2L, lenBloom = 1000L) {
    .Call('_PPRL_CreateBF', PACKAGE = 'PPRL', ID, data, password, k, padding, qgram, lenBloom)
}

CreateRecordLevelBF <- function(ID, data, password, lenRLBF = 1000L, k = 20L, padding = as.integer( c(0)), qgram = as.integer( c(2)), lenBloom = as.integer( c(500)), method = "StaticUniform", weigths = as.numeric( c(1))) {
    .Call('_PPRL_CreateRecordLevelBF', PACKAGE = 'PPRL', ID, data, password, lenRLBF, k, padding, qgram, lenBloom, method, weigths)
}

CreateBitFlippingBF <- function(data, password, f) {
    .Call('_PPRL_CreateBitFlippingBF', PACKAGE = 'PPRL', data, password, f)
}

#'Wrapper function for Deterministic Linkage
NULL

#' @param IDA_
#' @param dataA_
NULL

#' @return
NULL

.DeterministicLinkagec <- function(IDA_, dataA_, blockingdataA_, IDB_, dataB_, blockingdataB_, method_, blocking_, threshold_, lenNgram_, ind_c0_ = as.logical( c(0)), ind_c1_ = as.logical( c(0)), counterSim = 1L) {
    .Call('_PPRL_DeterministicLinkagec', PACKAGE = 'PPRL', IDA_, dataA_, blockingdataA_, IDB_, dataB_, blockingdataB_, method_, blocking_, threshold_, lenNgram_, ind_c0_, ind_c1_, counterSim)
}

ElegantPairingVec <- function(ID, data) {
    .Call('_PPRL_ElegantPairingVec', PACKAGE = 'PPRL', ID, data)
}

ElegantPairingInt <- function(int1, int2) {
    .Call('_PPRL_ElegantPairingInt', PACKAGE = 'PPRL', int1, int2)
}

#'Wrapper function for Probabilistic Linkage
NULL

#' @param IDA_ is the input string
#' @param dataA_ is the size of the qgram
NULL

#' @return the input string transformed into a vector of qgrams
NULL

.ProbabilisticLinkagec <- function(IDA_, dataA_, blockingdataA_, IDB_, dataB_, blockingdataB_, method_, blocking_, threshold_, lenNgram_, ind_c0_ = as.logical( c(0)), ind_c1_ = as.logical( c(0)), m_ = as.numeric( c(0.9)), u_ = as.numeric( c(0.1)), p_ = as.numeric( c(0.05)), e = as.numeric( c(0.0004)), upper = 0.0, lower = 0.0, jaroWeightFactor = 1.0) {
    .Call('_PPRL_ProbabilisticLinkagec', PACKAGE = 'PPRL', IDA_, dataA_, blockingdataA_, IDB_, dataB_, blockingdataB_, method_, blocking_, threshold_, lenNgram_, ind_c0_, ind_c1_, m_, u_, p_, e, upper, lower, jaroWeightFactor)
}

StandardizeString <- function(strings) {
    .Call('_PPRL_StandardizeString', PACKAGE = 'PPRL', strings)
}

#'test roxygen
#' @param ID vcbyx
#' @param CLKinR ydg
#' @param CLKinR yxcbg
#' @return characters in each element of the vector
#'
WolframRule30 <- function(ID, data, lenBloom, t) {
    .Call('_PPRL_WolframRule30', PACKAGE = 'PPRL', ID, data, lenBloom, t)
}

WolframRule90 <- function(ID, data, lenBloom, t) {
    .Call('_PPRL_WolframRule90', PACKAGE = 'PPRL', ID, data, lenBloom, t)
}