Advertisement
Guest User

Untitled

a guest
Jun 30th, 2016
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.34 KB | None | 0 0
  1. EUdocvars <- read.csv("EU_metadata.csv", stringsAsFactors = FALSE)
  2.  
  3. EUdocvars$Period <- as.factor(EUdocvars$Period)
  4. EUdocvars$Country <-as.factor(EUdocvars$Country)
  5. EUdocvars$Region <- as.factor(EUdocvars$Region)
  6.  
  7. EUCorpus <- corpus(textfile(file='PROJECT/*.txt'), encodingFrom = "UTF-8-BOM")
  8. docvars(EUCorpus) <- EUdocvars
  9.  
  10. EUDfm <- dfm(EUCorpus)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement