仿照视频http://video.tudou.com/v/XMjIxMTI1NTQ0OA==.html教程做分词：
……
>bingqi<-lapply(bingqicsr,function(x) unlist(segmentCN(x)))
中文分词后，列表中的词是这样过的：
>bingqi
$`1.txt`

[1] "企业社会责任报告" "有"               "抱负"             "负"               "责任"   
[6] "受"               "尊重"             "智力"             "窆"               "设"              
……
$`2.txt`
  [1] "内容"             "选择"             "结合"             "兵器工业集团"     "产业"            
  [6] "特点"             "和"               "发展"             "实际"             "通过"
……
$`3.txt`
  [1] "坚持"             "技术"             "相关"             "的"               "军民融合"   
……
想通过corpus函数把以上词语转换成：
……
企业社会责任报告
有
抱负
负            
责任  
受           
尊重            
智力         
窆              
设           
……




不知如何做？请赐教！