# Load test data
testFile <- file.path(path.package("PPRL"), "extdata/testdata.csv")
testData <- read.csv(testFile, head = FALSE, sep = "\t",
colClasses = "character")
# Encode data
BF <- CreateBF(ID = testData$V1, data = testData$V7,
k = 20, padding = 1, q = 2, l = 1000,
password = "(H]$6Uh*-Z204q")
Run the code above in your browser using DataLab