f<-function(index,x)
+ {a<-c()
+ for(i in index)
+ {a[i]<-grep(i,x,value=F)
+ }
+ return(a)
+ }
> x<-a
> index<-c("AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAA")
> f(index,x)
NULL
为什么是空值？谁能给我改改？