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 !
Partager