IはTL == 2のみ1 IF 2垂直線を描画する以下Rコードでabline()コマンドを取得する方法を思ったんだけど垂直線IF tl == 1同じ線の色(例:「緑色」)ですか?ここでifelse()R
は私の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)
@parvinkarimi私は単一の要素に基づく条件のために 'if/else'条件を使います。私は 'ifelse'を示した別の答えがあると思います。あなたのポストで 'ifelse'条件を見ると、' tl == 2、c(-2,2) '論理インデックスは長さ1ですが、TRUE条件は長さ2です(' c(-2,2) ')。だから、二番目を 'list'に入れておくのが良いです – akrun