集成“...不是功能、字符或符号”

问：

我有这个包含一个功能的集成。我想对 x 值 0-39 进行积分。

#parameters
alpha <- 0.86
y <- 70000
t <- 600
u <- 5353.65

get_p <- function(x,y,t,u) {
  (((alpha^alpha) * ((1 - alpha)^(1 - alpha)) * (y - t * x)) / u)^(1 / (1 - alpha))
}

integrate(x * get_p(x,y,t,u),lower = 0,upper = 39)

但是当我运行此代码时，如果我首先将 x <-0 放入，则会出现错误：

Error in match.fun(f) : 
  'x * get_p(x, y, t, u)' is not a function, character or symbol

如果我不先指定 x，我会收到此错误：

Error in match.fun(f) : object 'x' not found

X 不应该被定义，我们正在通过 i 进行积分！

我做错了什么？