2つの異なる部分の関数を計算する

Question

ベクトルはyです。これは一連の正の整数です。 yの各値について、私は計算したい：

• z <- 1/y、
• しかしyが、私はzがゼロに設定する必要が1であることの要素について。
• 最後に、私は私はそれをどのように行うことができます

  yゼロとzのベクトルが1

yのための1と 1/yではありません必要がありますか？

Answer 1

を言うことができます論理的なインデックス作成でこれを行うのはとても簡単です：

z <- 1/y # will have some Inf values but not throw an error 
z[y==0] <- 0 # changes the Inf's to 0 

Answer 2

使用ifelseとワンステップでそれを行う：Andrieが行列に言ったことの拡張

y <- 1:5 
z <- ifelse(y==1, 0, 1/y) 

cbind(y, z) 
    y   z 
[1,] 1 0.0000000 
[2,] 2 0.5000000 
[3,] 3 0.3333333 
[4,] 4 0.2500000 
[5,] 5 0.2000000 

Answer 3

...

y <- matrix(1:25, ncol=5) # define the matrix y 
z <- matrix(ifelse(y==1, 0, 1/y), ncol=ncol(y)) 

または私はちょうど

z <- matrix(ifelse(y==1, 0, 1/y), ncol=5)