Red_fen)## 去除停用词,使用并行的方法library(parallel)cl<-makeCluster(4)Fen_red<-parLapply(cl=cl,Fen_red,filter_segment,filter_words=mystopwords)stopCluster(cl)