почему я получаю ошибку, когда я строю свою функцию?

Question

Я написал функцию и проверил ее, так что я знаю, что она работает. Теперь я хочу построить его для значений х от 0 оп до 50. Может кто-нибудь помочь с функцией графика?

FoodAvailability <- function(x){
  A <- G1mean+0.01*x
  B <- P2mean+0.01*x
  C <- G2mean+0.01*x
  D <- F3mean-0.01*x
  E <- P3mean+0.01*x
  q <- c(0, A, 0, 0, B, C, D, 0, E)
  mymatrix <- matrix(data=q, nrow =3, ncol=3)
  y<- eigen(mymatrix)$values[1]
  return(y)
}

> plot(FoodAvailability(0:50), type ='l')

прямо сейчас написано

Warning message:
In matrix(data = q, nrow = 3, ncol = 3) :
  data length [259] is not a sub-multiple or multiple of the number of rows [3]