Как построить функцию продукта в R?

При условии, что x больше -1, это может быть наиболее эффективно вычислено путем использования отношения

(x + 1)*(x + 2)* ... *(x + n) = Gamma(x+n+1) / Gamma(x+1).

Гаммы вычисляются внутренне с точки зрения их логарифмов, поэтому используйте эти журналы в форме lgamma:

f <- function(x, n) exp(lgamma(x+n+1) - lgamma(x+1))

Затем график можно получить, через curve, например, как в

curve(f(x,3), 0, pi)

Вы хотите что-то вроде этого?

f <- function(x, n) {
  return(prod(1/(x+(1:n))))
}