eval(substitute(expr), data, enclos = parent.frame()) 中的错误：

如何解决eval(substitute(expr), data, enclos = parent.frame()) 中的错误：

我是 r 的新手，我正在尝试使用 SIR 模型从 Rudolf 2007 中重现此图 graph

这是我目前所写的。我不明白为什么我不断收到错误“在 eval(substitute(expr),data,enclos = parent.frame()) 中出错： 缺少参数“g”，没有默认值“

library("deSolve")


sir_equations <- function(time,variables,parameters,g) {
  with(as.list(c(variables,parameters)),{
    dS <-  b * N + e * a * N^2 - a *N * S - lambda * a * g * I * S - d * S
    dI <-  lambda * a * g * I * S - a * N * I - ( d + v) * I
    dG <-  d * S + (d + v) * I 
    return(list(c(dS,dI,dG)))
  })
}
parameters_values <- c(
  N = 300,b = 1,e = 0.05,lambda = 0.3,a = 0.01,d = 0.8,v = 0.5,g = seq(1,20,2)
)
initial_values <- c(
  S = 299,I = 1,G = 0
)

time_values <- seq(0,17,0.01) # days

sir_values_1 <- ode(
  y = initial_values,times = time_values,func = sir_equations,parms = parameters_values 
)
sir_values_1 <- as.data.frame(sir_values_1)
sir_values_1
with(sir_values_1,{
  plot(g,S,type = "l",col = "blue",xlab = "g",ylab = "S")
})```