## load the library
library(HiLDA)

## import the object from the local test on the sample data
inputFile <- system.file("extdata/hildaLocal.rdata", package="HiLDA")
hildaLocal <- readRDS(inputFile)


