r - for() ループと R の if を避ける

Question

R で for() ループを回避することについて質問があります。このトピックに関するすべての投稿を見ましたが、私の質問には何も答えられません。ここでは、60 都市の緯度と経度を含む 1 つのファイル (このCSV ファイルを参照) と複数の変数を含む 1 つの 2D 配列ファイル (このnetCDF ファイルを参照) の 2 つのデータ ファイルがあります。各緯度経度を行列に変換する小さな計算があります。行列計算の後、これらの数値は、netCDF ファイル内の変数を編集するために使用されます。以下の改訂されたコードでは、for() ループを使用しています。for() ループと if() 条件を回避する方法はありますか?

#install.packages("ncdf4", dependencies = T) 
library(ncdf4)

episim <- nc_open("England_aggr_GPW4_2000_0000.nc", write = TRUE)

currInhabitable <- t(ncvar_get(episim, episim$var[[4]]))
S <- t(ncvar_get(episim, episim$var[[1]]))
I <- matrix(0, 64, 44, byrow = T)

outbreak <- read.csv("60cities-lat-lon.csv", header = T)

for (ff in 1:dim(outbreak)[1])
{
  row <- abs(round((outbreak[ff,2] - 55.25833)/0.08333333))
  col <- abs(round((outbreak[ff,3] + 5.416667)/0.1666667))

  newInf <- outbreak[ff,4]

  #print(paste("Is the current cell inhabitable or not?", currInhabitable[row, col]))

  if (currInhabitable[row, col] == 1 & S[row, col] > newInf)
  {
    S[row,col] <- S[row,col] - newInf
    I[row,col] <- I[row,col] + newInf
  }
  print(c(row, col, S[row,col], I[row,col]))
}

t = 1
print(paste("Epidemic state saved to a netCDF file on day", t))

episimNew <- nc_create(paste("England_aggr_GPW4_2000_000", t, ".nc", collapse="", sep=""), episim$var)

ncvar_put(episimNew, episimNew$var[[1]], t(S))
ncvar_put(episimNew, episimNew$var[[2]], t(I))

nc_close(episimNew)
nc_close(episim)