Create 52_paper_summary.txt

xx <- read.csv("zt00816.txt.ooo" , header=F )  
xx <- as.vector(c(xx,read.csv("zt00846.txt.ooo" , header=F )))                     
xx <- as.vector(c(xx,read.csv("zt00857.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt00866.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt00880.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt00891.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt00920.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt00960.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt00971.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt00974.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01006p010.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01013p064.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01014p072.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01025p094.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01027p063.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01042p026.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01044p055.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01053p021.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01059p059.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01061p028.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01062p056.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01067p036.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01081p046.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01109p014.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01112p064.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01131p032.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01131p048.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01132p068.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01146p152.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01151p026.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01159p068.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01179p096.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01180p140.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01182p130.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01190p050.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01193p039.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01194p032.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01211p034.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01213p162.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01227p055.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01237p018.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01256p047.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01273p054.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01291p101.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01302p059.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01306p050.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01306p056.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01329p027.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01332p036.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01350p031.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01355p037.txt.ooo" , header=F )))   
xx <- as.vector(c(xx,read.csv("zt01357p043.txt.ooo" , header=F )))   

textcorp <- Corpus(VectorSource(xx))
textcorp <- tm_map(textcorp, stripWhitespace) 
textcorp <- tm_map(textcorp, removeNumbers) 
textcorp <- tm_map(textcorp, removePunctuation) 
#textcorp <- tm_map(textcorp, removeWords, stopwords("english")) 
#textcorp <- tm_map(textcorp, stemDocument, language="eng")
dtm <- DocumentTermMatrix(textcorp)
dtm2 <- removeSparseTerms(dtm, sparse=0.75)
dtm2
str(dtm2)