一个简单的例子：
fff<-function(n){
if(n<=0) print("请输入正整数") else {while(n!=1){if(n%%2==0) n<-n/2 else n<-3*n+1; print(n)};print("运算成功")}}

fff（10）
[1] 5
[1] 16
[1] 8
[1] 4
[1] 2
[1] 1

如何吧print的内容保存成为一个向量，求解啊，谢谢。