tests/createTestCorpus.R

createTestCorpus <- function(raw, test) {
  lapply(seq_along(raw$documents), function(x) {
    document <- readFile(raw$documents[[x]])
    document <- sample(document, size = .01 * length(document))
    test$documents[[x]]$data <- document
    saveFile(test$documents[[x]])
  })
}
createTestCorpus(raw, corpora$test)
DataScienceSalon/predictifyR.3.0 documentation built on May 23, 2019, 8:25 p.m.