程序如何编写

whale2

可能是一个简单的题，但是本人刚学习R语言，希望高手能够帮帮忙~谢谢啦
题目是：编写一个R程序（函数），输入一个整数n,如果n<=0，则中止运算，并输出一句话：“要求输入一个正整数”；否则，如果n是偶数，则将n除2，并赋给n；否则，将3n+1赋给n,不断循环，只到n=1,才停止计算，并输出一句话：“运算成功”。
这是我的程序：
fzerp<-function(n){
if(n<=0)
list(fail="Required to enter a positive integer")
else{
    repeat{
           if(n=1) break
           else if(n/2=0) n<-n/2
           else n<-3*n+1
          }
     }
}

运行结果：
> fzerp<-function(n){
+ if(n<=0)
+ list(fail="Required to enter a positive integer")
+ else{
+     repeat{
+            if(n=1) break
Error: unexpected '=' in:
"    repeat{
           if(n="
>            else if(n/2=0) n<-n/2
Error: unexpected 'else' in "           else"
>            else n<-3*n+1
Error: unexpected 'else' in "           else"
>           }
Error: unexpected '}' in "          }"
>      }
Error: unexpected '}' in "     }"
> }
Error: unexpected '}' in "}"
>

本人不太懂，R语言中不能用等号么？还是有什么其他的表示方法？

火柴天堂

fzerp <- function(n){
        if(n <= 0) {
                list(fail="Required to enter a positive integer")
        } else {
                repeat {
                        print(n)
                        if(n == 1){
                                break
                        } else if( n %% 2 == 0){
                                n <- n %/% 2
                        } else {
                                n <- 3*n + 1
                        }
                }
        }
}

hngcxy303

这个是对的!