将向量中的特定元素相乘

Question

我正在尝试用2个向量制作一些代码，其中的某些元素向量需要我混在一起。例如，向量x具有两个元素x1和x2，向量theta具有6个元素theta1，theta2，...，theta6。我想将x1和theta5的值相乘。但是我还不知道这些值。

theta=c("theta1", "theta2", "theta3","theta4", "theta5", "theta6")
x=c("x1","x2")
xdash1=theta[1]*x[2]*(1-x[1]/theta[5])-theta[2]*x[1]*x[2]/(theta[6]+x[2])

我尝试了这个，但是它只是出现了错误

Error in theta[1] * x[2] : non-numeric argument to binary operator

当我将向量x和theta放进去时，我也试图让值出现

f <- function(x, theta) {
  theta=c("theta1", "theta2", "theta3","theta4", "theta5", "theta6")
  x=c("x1","x2")
  xdash1=theta[1]*x[2]*(1-x[1]/theta[5])-theta[2]*x[1]*x[2]/(theta[6]+x[2])
  xdash2=theta[4]*x[1]*x[2]/(theta[6]+x[2])-theta[3]*x[2]
  fxtheta=c(xdash1, xdash2)
  return(fxtheta)
}

我要尝试的实际问题的图片：