### R代码从vignette源的RDavidWS-vignette。Rnw“# # #编码:utf - 8 ################################################### ### 代码块1号:一般为Sweave R选项 ################################################### 选项(提示= " R > ",继续= " + ",宽度= 70,useFancyQuotes = FALSE,数字= 4 ) ################################################### ### 代码块2号:加载库 ################################################### (“RDAVIDWebService suppressMessages(图书馆 ")) ################################################### ### 代码块3号:TermCluster1 ################################################### 库(RDAVIDWebService)文件名<执行(“文件/ termClusterReport1.tab.tar.gz”、包=“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 ()