Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- EUdocvars <- read.csv("EU_metadata.csv", stringsAsFactors = FALSE)
- EUdocvars$Period <- as.factor(EUdocvars$Period)
- EUdocvars$Country <-as.factor(EUdocvars$Country)
- EUdocvars$Region <- as.factor(EUdocvars$Region)
- EUCorpus <- corpus(textfile(file='PROJECT/*.txt'), encodingFrom = "UTF-8-BOM")
- docvars(EUCorpus) <- EUdocvars
- EUDfm <- dfm(EUCorpus)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement