ifelse（）R

Question

IはTL == 2のみ1 IF 2垂直線を描画する以下Rコードでabline（）コマンドを取得する方法を思ったんだけど垂直線IF tl == 1同じ線の色（例：「緑色」）ですか？ここで

は私のRコード（なしの成功と）である：

CBT <- function(g,r,n,tl){ 

curve(dt(x,n),-5,6,col="red") 

abline(v=ifelse(tl==2,c(-2,2),2),col="green") ## HERE needs a fix?? 
} 

## Test this: 
CBT(.4,.05,20,2) 

Answer 1

我々は1のための 'TL'、つまり条件の両方が必要な場合我々はif/else条件

CBT <- function(g,r,n,tl){ 
curve(dt(x,n),-5,6,col="red") 
if(tl==2){ 
    abline(v=c(-2,2), col="green") 
    } else { 
    abline(v = 2, col="green") } 
} 

CBT(.4,.05,20,2) 

を使用することができ、 2、その他の場合

CBT <- function(g,r,n,tl){ 
curve(dt(x,n),-5,6,col="red") 
if(tl==2){ 
    abline(v=c(-2,2), col="green") 
    } else if(tl==1){ 
    abline(v = 2, col="green") 
} else {abline(v=NA)} 
} 

CBT(.4,.05,20,2) 
CBT(.4,.05,20,1) 
CBT(.4,.05,20,0) 

Answer 2

ifelse呼び出しは、2つの条件に適した値を持つリストにインデックスを返します。

CBT <- function(g,r,n,tl){ 
     curve(dt(x,n),-5,6,col="red") 
     abline(v= list(c(-2,2), 2) [[ ifelse(tl==2, 1, 2)]], col="green") 
    } 
CBT(.4,.05,20,1.5) 

私はifelseあなたの方法を使用しようと問題はifelseが条件と同じ長さの値を返すように設計されていることだと思います。インデックスとして使用すると、長さを変えることができます。