如何在R中写出不等式

对不起，我是个新手，有点困难

我如何在R中写出以下不等式：

x>10的可能性是x<10的两倍

我尝试了这个功能，但没有成功：

X = 10 

f = function(X,Y) { 
  if ((2(X) >= 10 & X <= 10) { 
    print("in range") 
  } else {
    print("out of range") 
  } 
}

X=10
f=函数（X，Y）{
如果（（2（X）>=10&X您的代码有语法错误，如果这是问题：

X = 10 
f = function(X,Y) {
  if (2 * X  >= 10 && X <= 10) {  # * instead of (
    print("in range") 
  } else { 
    print("out of range") 
  } 
}

X=10 f=function（X，Y）{if（（2（X）>=10&X您可能对堆栈溢出有疑问。
probx10，2/3，1/3）}
谢谢您的帮助谢谢。现在再试。
> f(10,10)
[1] "in range"
> f(20,10)
[1] "out of range"