# Load test data
testFile <- file.path(path.package("PPRL"), "extdata/testdata.csv")
testData <-read.csv(testFile, head = FALSE, sep = "\t",
colClasses = "character")
if (FALSE) {
# Load example Markov chain matrix (created from NC Voter Data)
markovFile <-file.path(path.package("PPRL"), "extdata/TestMatrize.csv")
markovData <-read.csv(markovFile, sep = " ",
header = TRUE, check.names = FALSE)
markovData <- as.matrix(markovData)
# Create Markov CLK using
CLKMarkov <- CreateMarkovCLK(ID = testData$V1,
data = testData[, c(2, 3, 7, 8)],
markovTable = markovData,
k1 = 20, k2 = 4, l = 1000,
padding = c(0, 0, 1, 1),
q = c(1, 2, 2, 2),
password = c("(H]$6Uh*-Z204q", "lkjg", "klh", "KJHklk5"),
includeOriginalBigram = TRUE)
}
Run the code above in your browser using DataLab