# create a compressed corpus from texts
corpuszip(data_char_inaugural)
# create a compressed corpus from texts and assign meta-data and document variables
cop <- corpus(data_char_ukimmig2010, 
              docvars = data.frame(party = names(data_char_ukimmig2010)))
cop_zip <- corpuszip(data_char_ukimmig2010, 
                     docvars = data.frame(party = names(data_char_ukimmig2010)))
object.size(cop)
object.size(cop_zip)
Run the code above in your browser using DataLab