> frezo<-function(n){
+ if(n<=0)
+ list(fail="要求输入一个正整数")
+ else{
+ repeat{if(n==1) break
+ else{if(n%%2==0) n<-n/2 else n<-3n+1}}
错误: 意外的符号 于
"repeat{if(n==1) break
else{if(n%%2==0) n<-n/2 else n<-3n"
> list(chenggong="运算成功")
$chenggong
[1] "运算成功"

> }
错误: 意外的'}'在"}"里
> }


求高手看看哪里错了？？