R编写一个数论中的简单定理

编写一个R程序(函数)。输入一个整数n，如果n不大于0，则终止运算，并输出一句话:“请输入一个正整数”。否则，如果n是偶数，则将n除2，并赋给n;否则，将3n+1赋给n。不断循环，直到n=1，才停止计算，并输出一句话:“运算成功”。

f2<-function(n){
  if(n<=0) list("要求输入一个整数n")
  else{repeat{
    if(n==1) break #n=1 终止输出“运算成功”
    else if(n%%2==0) n<-n/2  #n为偶数时，将n/2赋给n
    else n<-3*n+1 #否则，将3n+1赋给n
    }
    list("运算成功")
    }
}

在编写的过程中，当n=1停止运算时，“运算成功”这句话放在循环外面。