### R代码来自Vignette Source'vignettes/rdavidwebservice/inst/doc/doc/rdavidws-vignette.rnw'### encoding：utf-8 ##########################################################################################“ r>”，继续=“+”，宽度= 70，usefancyquotes = false，Digits = 4）############################################################### ###代码块数字2：加载库##############################################################################数字3：termcluster1 ######################################################## library（“ rdavidwebservice”）文件名<-System.file（“ files/termclusterreport1.tab.tar.gz”，package =“ rdavidwebservice”）untar（filename）termcluster <-davidTermCluster（untar（filename，fileName，list fileName，list fileName））= true））termcluster头（摘要（termcluster））######################################################################################＃clustnumber <-2 plot2d（termcluster，clustnumber）################################################################################（Davidgodag），r = Davidgodag，Max.nchar = 40，Node.shape =“ Ellipse”）################################################################ ###代码块数字6：会话info #########################################################