# # # R代码从装饰图案来源的小插曲RDAVIDWebService /本月/ doc / RDavidWS-vignette。Rnw的utf - 8编码:# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块1号:一般R选项Sweave # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #选项(提示=“R >”,继续= " + ",宽度= 70,useFancyQuotes = FALSE,数字= 4)# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块2号:加载库# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # suppressMessages(库(“RDAVIDWebService”)) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 3号代码块:TermCluster1 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #库(RDAVIDWebService)文件名<执行(“文件/ termClusterReport1.tab.tar。广州”,包= " RDAVIDWebService”)将(文件名)解压termCluster < -DAVIDTermCluster(解压(文件名,列表= TRUE) termCluster头(总结(termCluster)) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块数量4:plot2Dview # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # clustNumber < 2 plot2D (termCluster clustNumber) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块5号:plotGO # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # davidGODag < -DAVIDGODag(成员(termCluster) [[clustNumber]], pvalueCutoff = 0.1,“CC”) plotGOTermGraph (g = goDag (davidGODag), r = davidGODag,马克斯。nchar = 40, node.shape =“椭圆”)# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块6号:会话信息# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # sessionInfo ()