r - r の区分関数のプロットに関するクエリ

Question

R で次の区分関数をグラフ化したいのですが、定義に問題があります。次の関数を定義したいと思います。x が 0 から 10 未満の場合は値 0.31 を取り、x が 10 から 29 の間の場合は値 0.31-0.00017397(x-10) を取り、x が 29 より大きい場合も同様です。以下は私のRコードです。

f <- function(x){
ifelse((0 < x & x < 10),0.31,ifelse((10<= x & x < 29),(0.31-0.00017397(x-10)),ifelse((29<=x),(0.31-0.00052702(x-29)),NA)))
}
plot(f,xlim=c(0,35)) 

よろしくお願いします！

Answer 1

これは私のために働く：

f <- function(x){
  ifelse((0 < x & x < 10),0.31,ifelse((10 <= x & x < 29),(0.31-0.00017397*(x-10)),ifelse((29 <= x),(0.31-0.00052702*(x-29)),NA)))
}
plot(f,xlim=c(0,35)) 

(乗算の * に注意してください)