Я пытаюсь создать некоторый код с двумя векторами, и некоторые элементы внутри них должны быть умножены вместе.Например, вектор 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)
}
Изображение фактического вопроса, который я пытаюсь сделать:
