Comment corriger une erreur dans une fonction en Rstudio

Bonjour,
J'ai écrit une fonction en Rstudio qui utilise le package boot.
Mais lorsque je l'exécute, j'ai une erreur et je n'arrive pas à la corriger.

Voiçi la fonction en question:

library(boot)
FBA <- function(S, C, c, w, maxi){
S <- matrix(c(1,-1,-1,0,0, 0,1,0,-1,0, 0,0,1,0,-1), nrow = 3, ncol = 5, byrow = TRUE,
dimnames = list(c("CoA", "ATP", "Fruct6P"),
c("v1", "v2", "v3", "v4", "v5")))
n <- dim(S)[2]
m <- dim(S)[1]
I <- matrix(0, ncol=5, nrow=3)
diag(I) <- 1
zero <- rep(0,m)
c <- c(0,0,0,0,0)
C <- c(1,1,1,1,1)
w <- c(0,1,0,0,0) # puisque maximiser l'ATP revient à maximiser le flux de v2
result <- simplex(a=w, A1=I, b1=C, A2=I, b2=c, A3=S, b3=zero, maxi=TRUE)
return(result)
}

Pouvez vous m'orienter s'il vous plaît ?
Une capture d'écran de l'erreur es en pièce jointe

Merci d'avance !