### R代码来自Vignette源'query.rnw'#############################################代码块号1：Data #########################################库（“注释”）数据（Sample.Extressionset）Affys < - FeatureNames（Sample.Expressionset）[490：500]AFFYS ##########################################代码块号码2：注释#####################################################库（“hgu95av2.db”）IDS < - getPmid（Affys，“Hgu95av2”）IDS < - Unlat（ID，Use.Names = False）ID < - 唯一（IDS[！是.NA（AS.Numeric（IDS））]）长度（IDS）ID [1:10] #########################################################代码块第3号：getamsts ######################################### x < - pubmed（IDS [1:10]）A <- XMLOOT（x）numabst < - 长度（xmlchildren（a））numabst ############################################代码块号4：query.rnw：170-179 ######################################## ARTS < - Vector（“列表”，length = numabst）absts < - rep（N.a，numabst）for（i在1：numabst）{##为此抽象艺术生成pubmedab​​st对象[[i]] < - buildpubmedab​​st（a [i]）##检索此抽象ABSTS的抽象文本[I] < - ABSTTEXT（艺术[[i]]）}艺术[[7]] ####################################################代码块号5：query.rnw：203-206 #######################################发现< - grep（“cdna”，absts）goodabsts <- 艺术[找到]长度（Goodabsts）################################################## ### code chunk number 6: query.Rnw:222-224 ################################################### y <- genbank(ids[1:10], type="uid") b <- xmlRoot(y) ################################################### ### code chunk number 7: abst2HTML ################################################### fname <- tempfile() pmAbst2HTML(goodAbsts, filename=fname) fnameBase <- tempfile() pmAbst2HTML(goodAbsts, filename=fnameBase, frames=TRUE) ################################################### ### code chunk number 8: query.Rnw:267-268 ################################################### sessionInfo()