在 R 中運行兩個循環進行數學表達式計算

Question

我正在嘗試為圖像中給出的表達式編寫 R 代碼以進行計算。 我嘗試使用兩個循環和sapply函數，但我失敗了。 誰能建議一個合適的代碼來計算這個表達式？

我嘗試了圖像中給出的以下幾行。

R代碼嘗試：

Answer 1

請看下圖：

gamma <- 1.5
s <- 1
k <- 3
i <- s:k
j <- lapply(i, function(x) 0:x)

prod_i <- sapply(j, function(x) prod(k + gamma - x))
f <- sum(factorial(k) / factorial(k - i) * prod_i)
f
# [1] 637.875