r - R ループは、マトリックス内の複数の値を置き換えます

Question

次のことを行うためのより効率的な方法を知っている人はいますか? 2 つの行列があり、1 つは整数値、もう 1 つは数値です。整数ベクトルを含むリストもあります。リストの整数値が整数行列と等しい場合、数値行列の値を NA に設定するループがあります。次に、結果の行列から行積と合計を取得します。各ステップで数値行列のコピーを作成しないようにする方法はありますか? または、おそらく別のアプローチをすべて一緒に？ありがとう

mat1<-matrix(rpois(20*300000,6),20,300000)
mat2<-matrix(runif(20*300000),20,300000)
list1<-list(c(1,2,3),c(4,6),c(8,9,10,11))
results<-vector('numeric',length(list1))

start.time=Sys.time()
for(i in 1:length(list1)){
    copy<-mat2
    copy[mat1 %in% list1[[i]]]=NA
    results[i]=sum(apply(copy,2,prod,na.rm=T))
}
print(Sys.time()-start.time)
#