R2-04 第二阶段第一次

blanking 2018-01-23 19:57:07 阅读: 1155

library(RISmed)

Cell_2017 <- EUtilsSummary('(cell[TA]) AND 2017[DP]')

summary(Cell_2017)

QueryId(Cell_2017)

records <- EUtilsGet(Cell_2017)

pubmed_data <- data.frame('Title'=ArticleTitle(records),'Abstract'=AbstractText(records),'ID'= ArticleId(records))

pubmed_data$Title[pubmed_data$ID == 29290466]

pubmed_data$Abstract[pubmed_data$ID == 29290466]

邀请讨论

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整评论

受邀请回答

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整回复

发送回复

赞({{item.count_zan}})

踩({{item.count_cai}})

删除

回复关闭