为什么我的代码在我的r程序中使用if-else函数显示错误？

我试着在下面写一个程序。但它不起作用。x是一个正值。如果x是偶数，则有一个条件 如果x为奇数，则为其他。我是r编程新手：

gam<-function(x){

if as.numeric(x%%==0){
ans<- factorial((x/2)-1)
}
else
{
ans<-  factorial(x-1)/2^(x-1)*factorial((x/2)-(1/2))
}
return(ans)
}

---

gam你的问题是你错过了

 if (x%%2==0)

也许这就是你想要的东西：

gam<-function(x){

if (x%%2==0){
ans<- factorial((x/2)-1)
}else{
ans<-  factorial(x-1)/2^(x-1)*factorial((x/2)-(1/2))
}
return(ans)
}

gam如果你在控制台中输入这个，你需要将
else
与前面的
}
放在同一行，比如：
}else{
，但是实际上，你的问题是
x%%==0
。这是什么意思？通常把
if
逻辑测试放在括号中，比如：
if（条件）{…}
您的代码中似乎有一些错误，能否举例说明您希望函数的输入是什么（x看起来像什么？）此答案没有用处，因为它没有解释错误是什么或如何修复错误。我编辑了我的答案…请查看