想写一个loop把每个ID里的一段中文信息进行分词,把这段分出来的所有词组用c函数把多个元素合成向量

原输出
> c(segment("我爱北京天安门飞",mixseg))
[1] "我"     "爱"     "北京"   "天安门" "飞"

> A<-c(segment("我爱北京天安门飞",mixseg))
> class(A)
[1] "character"


可是在loop里，输出成了NULL  为什么呢？
是不是loop里面不能用c函数来定义y？
有什么其他方法使得输出的多个元素称为一个向量吗？

AB=function(x){
  mixseg=worker()
  k=length(x)
  y=NULL
  for (i in 1:k)
   print(y)
  {y<-c(segment(x, mixseg))
  }
  return(y)
}

return(y)的输出值全是NULL
NULL
NULL
NULL
NULL
NULL
NULL
NULL
NULL
NULL

最后出现
Warning message:
In y <- c(segment(x, mixseg)) :
  number of items to replace is not a multiple of replacement length



感激不尽