# Load test data
testFile <- file.path(path.package("PPRL"), "extdata/testdata.csv")
if (FALSE) {
testData <- read.csv(testFile, head = FALSE, sep = "\t",
colClasses = "character")
# StaticUniform
RLBF <- CreateRecordLevelBF(ID = testData$V1,
data = testData[, c(2, 3, 7, 8)],
lenRLBF = 1000, k = 20,
padding = c(0, 0, 1, 1), qgram = c(1, 1, 2, 2),
lenBloom = 500,
password = c("(H]$6Uh*-Z204q", "lkjg", "klh", "KJHkälk5"),
method = "StaticUniform")
# StaticWeigthed
RLBF <- CreateRecordLevelBF(ID = testData$V1,
data = testData[, c(2, 3, 7, 8)],
lenRLBF = 1000, k = 20,
padding = c(0, 0, 1, 1), qgram = c(1, 1, 2, 2),
lenBloom = 500,
password = c("(H]$6Uh*-Z204q", "lkjg", "klh", "KJHkälk5"),
method = "StaticWeigthed", weigths = c(0.1, 0.1, 0.5, 0.3))
# DynamicUniform
RLBF <- CreateRecordLevelBF(ID = testData$V1,
data = testData[, c(2, 3, 7, 8)],
lenRLBF = 1000, k = 20,
padding = c(0, 0, 1, 1), qgram = c(1, 1, 2, 2),
lenBloom = c(300, 400, 550, 500),
password = c("(H]$6Uh*-Z204q", "lkjg", "klh", "KJHkälk5"),
method = "DynamicUniform")
# DynamicWeigthed
RLBF <- CreateRecordLevelBF(ID = testData$V1,
data = testData[, c(2, 3, 7, 8)],
lenRLBF = 1000, k = 20,
padding = c(0, 0, 1, 1), qgram = c(1, 1, 2, 2),
lenBloom = c(300, 400, 550, 500),
password = c("(H]$6Uh*-Z204q", "lkjg", "klh", "KJHkälk5"),
method = "DynamicWeigthed", weigths = c(0.1, 0.1, 0.5, 0.3))
}
Run the code above in your browser using DataLab