# NOT RUN {
# Load test data
testFile <- file.path(path.package("PPRL"), "extdata/testdata.csv")
testData <- read.csv(testFile, head = FALSE, sep = "\t",
colClasses = "character")
# Create Bloom Filter
testData <- CreateBF(ID = testData$V1, testData$V7, k = 20, padding = 1,
q = 2, l = 1000, password = "(H]$6Uh*-Z204q")
# Create the new Bloom Filter
testAS <- CreateAS16(testData$ID, testData$CLKs, password = "kh<U+00E4>uds")
# Compare bit vectors
res <- CompareAS16(testData$ID, testAS, testData$ID, testAS,
password = "kh<U+00E4>uds", t = 0.85)
# }
Run the code above in your browser using DataLab