IFステートメントで予期しない '<='が発生するR

Question

xの値に応じて2つの関数のいずれかを返す関数を作成しようとしています。次の関数を作成すると、エラーが発生し、理由がわかりません。

t <- c(0.1,0.9,1.5) 

squeze <- function(x){ 
if(t[1]<x<=t[2]){ 
    exp(a1*x+b1) 
} else { 
    exp(a2*x+b2) 
} 
} 

エラーメッセージ：

Error: unexpected '<=' in: 
"squeze <- function(x){ 
if(t[1]<x<=" 
> exp(a1*x+b1) 
Error: object 'x' not found 
> } else { 
Error: unexpected '}' in " }" 
> exp(a2*x+b2) 
Error: object 'x' not found 
> } 
Error: unexpected '}' in " }" 
> } 
Error: unexpected '}' in "}" 

誰かが私が見逃しているものを指摘することができたならば、私は非常に感謝。

事前に、ありがとうございます！

Answer 1

パーサはそれを気に入らないため、エラーが発生します。

(1 < 3) < 2 # TRUE 

1 < 3がTRUEが、その後TRUEが1に強制変換されており、1<2はR >でTRUE

は次のとおりです。

そして、それはそれはトラブルにあなたを持っている可能性があるため良いことだ、見関数

`>` # function (e1, e2) .Primitive(">")  
`>`(1,2) # FALSE  

このli

between(x, t[1], t[2],F) 

あなたは両方の境界を含める場合：何をしようとしたことは代わりにあなたが両方の境界を除外した場合は、data.table::betweenを使用することができますif(t[1] < x & x <= t[2])

を使用R.

に意味をなさない理由GHTあなたが表示されますあなたはdata.table::betweenやdplyr::betweenを使用することができます。

between(x, t[1], t[2]) 

data.tableも構文0を許可します