################################################### ### 第一块:数据 ################################################### 库(“注释”)数据(sample.ExpressionSet) affys < - featureNames (sample.ExpressionSet) 490:500 affys ################################################### ### 块2号:注释 ################################################### 图书馆(hgu95av2.db) id < getPMID (affys, hgu95av2) id < - unlist (id、use.names = FALSE) id < -独特(ids [! is.na (as.numeric (ids))))长度(ids) id (1:10 ] ################################################### ### 块3号:getabsts ################################################### x <——pubmed (ids) <——xmlRoot (x) numAbst < -长度(xmlChildren (a)) numAbst ################################################### ### 块数量4:################################################### 艺术< -向量(“列表”,长度= numAbst) abst < -代表(NA, numAbst)(我在1:numAbst){# #为这个抽象艺术生成PubMedAbst对象[[我]]< - buildPubMedAbst([[我]])# #检索文摘文本摘要abst[我]< - abstText艺术(艺术[[我]])}[[7 ]] ################################################### ### 块5号:################################################### 找到< - grep(“互补”,abst) goodAbsts < -艺术(发现)(goodAbsts长度 ) ################################################### ### 块6号 : ################################################### y < -基因库(ids[1:10],类型=“uid”)b < - xmlRoot (x ) ################################################### ### 块7号:abst2HTML ################################################### 帧< - tempfile () pmAbst2HTML (goodAbsts文件名=帧)fnameBase < - tempfile () pmAbst2HTML (goodAbsts,文件名= fnameBase帧= TRUE ) ################################################### ### 块8号 : ################################################### sessionInfo ()