R/genbank.sp.names.r

In sidier: Substitution and Indel Distances to Infer Evolutionary Relationships

Defines functions genbank.sp.names

Documented in genbank.sp.names

genbank.sp.names<-function(sequences)
{
fun1<-function(x){paste(strsplit(x,split=" ")[[1]][c(2,3)],collapse=" ")}
new.names<-sapply(row.names(sequences),fun1)
names(new.names)<-c("")
row.names(sequences)<-new.names
sequences
}

Try the sidier package in your browser