一个DNA求取反向互补序列的R语言函数
rev.comp<-function(x,rev=TRUE){x<-toupper(x)y<-rep("N",nchar(x))xx<-unlist(strsplit(x,NULL))for (bbb in 1:nchar(x)) { if(xx[bbb]=="A") y[bbb]<-"T" if(xx[bbb]=="C") y[bbb]<-"G" if(xx[bbb]=="G") y[bbb]<-"C" if(xx[bbb]=="T") y[bbb]<-"A" }if(rev==FALSE) { for(ccc in (1:nchar(x))) { if(ccc==1) yy<-y[ccc] else yy<-paste(yy,y[ccc],sep="") } }if(rev==T) { zz<-rep(NA,nchar(x)) for(ccc in (1:nchar(x))) { zz[ccc]<-y[nchar(x)+1-ccc] if(ccc==1) yy<-zz[ccc] else yy<-paste(yy,zz[ccc],sep="") } } return(yy) }
根际互作生物学研究室 简介
根际互作生物学研究室是沈其荣教授土壤微生物与有机肥团队下的一个关注于根际互作的研究小组。本小组由袁军副教授带领，主要关注：1.植物和微生物互作在抗病过程中的作用；2 环境微生物大数据整合研究；3 环境代谢组及其与微生物过程研究体系开发和应用。团队在过去三年中在 isme J， Microbiome， PCE，SBB，Horticulture Research等期刊上发表了多篇文章。欢迎关注 微生信生物 公众号对本研究小组进行了解。
团队工作及其成果 （点击查看）
了解 交流 合作
团队成员邮箱 袁军：junyuan@njau.edu.cn；文涛：2018203048@njau.edu.cn
赞 (0)