因为看不到lz的整段程序，所以很难判断到底哪里有问题，我替lz码了一段，给lz参考下吧，跑了一下应该没有问题，希望对lz有用。
f27<-function(n){
  if(n<=0){
    stop("wrong!")
  }else if(n%%2==0){
    while(n>1){
       n<-n/2;   
    }
  }else if(n%%2==1){
     n<-3*n+1;
       while(n>1){
         n<-n/2;   
       }
  }else{
    stop("要求输入一个整数")
  }
  print("运算成功！")
}