R/species.name.R

In lliu1871/phybase: Basic functions for phylogenetic analysis

'species.name' <-
function(str)
{
   	str<-gsub("[ ]", "", str)
	str<-gsub("[;]","",str)
	str<-gsub(":[0-9.0-9e-]*","",str)
	str<-gsub("#[0-9.0-9e-]*","",str)
	str<-gsub(")[0-9.0-9e-]*","",str)
	str<-gsub("[()]","",str)
	str<-gsub("[ ]", "", str)
	name<-sort(unlist(strsplit(str,split=",")))

    	return(name)
}