r - R コードの複数条件

Question

次のようなデータセットがあるとします。

y <- c(0,0,1,2,2,1,0,1)
a <- c(0,2,1,1,0,2,0,3)
dat <- data.frame(y, a)

f <- digamma(a+y)条件を使っての値を計算したい

if(a>0 & y==0) then f
if(a==0 & y>0) then f
if (a==0 & y==0) then f = 1

Rコードを使用してどのように行うことができますか?

Answer 1

これにより、事後の状態が得られると思います。

f <- digamma(a+y) 
f[a==0 & y==0] <- 1

また

f[is.nan(f)] <- 1

これはインデックスを使用して、ベクトルのどの要素が nan であるか、または最初のメソッドで a と y の両方が 0 であることを確認しています。次に、インデックス[]は f のこれらの要素を取得し、代入<-はこれらの要素を 1 にすることを示します。