#作者信息

熊荣川

六盘水师范学院生物信息学实验室

xiongrongchuan@126.com

http://blog.sciencenet.cn/u/Bearjazz

#预装函数（此函数代码将在发布24小时之后删除）

Down.seq <- function(File.accession){

  ……  

}

#使用方法

path = "……" #工作目录，存放你的序列清单文件的地方

setwd(path) #进入工作目录

File.accession =  "dataBlist.txt" # 序列清单文件，须为txt格式

Down.seq(File.accession)  #运行，结果是一个名为dataBlist的文件夹中有你要下载的序列和一个名叫“seqinfo.csv”的表格文件，文件中有序列对应的物种、序列长度等信息。

注意，你的R平台上需要预装ape和seqinr两个包。