Text organization

# qdap_clean the text
___ <- ___(___)

# Source and create the corpus
___ <- ___(___(___))

# tm_clean the corpus
___ <- ___(___)