Displaying 1 result from an estimated 1 matches for "ruepvnvbnceiicrpgxkgcyl".
2013 Apr 18
0
Splitting vector
Hi,
Try:
vec1<- "mue#d/sjbijk at ruepvnvbnceiicrpgxkgcyl@keduhqvqi/ubudvxopddpfddgitrynzshzdcwgneyffrkpbxwilwqngrsals#geqmtkcpkp/qecgdfa#uag"
library(seqinr)
?res<-lapply(0:4,function(i) lapply(2:5,function(j) splitseq(s2c(gsub("[#@/]","",vec1)),word=j,frame=i)))
#or
library(stringr)
res1<-lapply(0:4,function(i) lapply(2:...