sumproduct (excel) のような関数が必要ですが、最後の 4 行のみです。
私はdplyrを使用していて、rollapplyでsumproductを試しましたが、1列の最後の4行しか合計できませんが、2列を各行で乗算してから、Excelのsumproductのように最後の4行で合計する必要があります。
x1 <- c(84,105,79,140,108,79,112,118,114,92)
x2 <- c(138,110,84,45,128,99,100,124,121,115)
df <- data.frame(x1,x2)
次のような結果が期待されます。
x3 <- c(NA,NA,NA,36078,38310,34581,39145,47477,47447,50206)