R/ns.blast.unique.names.R

`ns.blast.unique.names` <- 
function(names) 
{
   length(names)==length(unique(unlist(try(lapply(strsplit(names," "),function(x) { x[[1]] }),silent=TRUE))))
}
UvA-MAD/SeqLibR documentation built on May 9, 2019, 9:40 p.m.