# NOT RUN {
data("usnews", package = "sentometrics")
# reshuffle usnews data.frame
dates <- usnews$date
usnews$id <- usnews$date <- NULL
usnews$wrong <- "notNumeric"
colnames(usnews)[1] <- "myTexts"
# set up quanteda corpus object
corpusQ <- quanteda::corpus(usnews, text_field = "myTexts")
# corpus conversion
corpusS <- to_sentocorpus(corpusQ, dates = dates)
# }
Run the code above in your browser using DataLab