Passage d'une matrice par référence

Bonjour,

Il semble que les matrices soient passées par valeur, et donc recopiées :

Code:

---

1 2 3 4 5 6 7 8 9 10

f = function(A) { A[1,1] = -1 ; A } M = matrix(runif(6),nrow=2) ; M[1,1] > 0.9621319 (f(M))[1,1] > -1 M[1,1] 0.9621319

---

Y a-t-il un moyen pour forcer le passage par référence ? (J'ai une fonction qui aimerait prendre deux matrices en paramètres, et être appelée très souvent :) )

Merci d'avance.

Bonjour,

Le moyen, c'est de passer le nom de l'objet et celui de l'environnement d'où tu appelles la fonction (ou bien un autre si besoin) et d'utiliser get et assign :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

M <- matrix(runif(6),nrow=2) ; M[1,1]   f <- function(A, envir=parent.frame()) { ## print(envir) x <- get(A, envir=envir) x[1, 1] <- -1 assign(A, x, envir=envir) }     f("M")   M

---

Note que c'est bien le nom de la matrice et non la matrice elle-même que tu dois passer en paramètre (ici, l'environnement par défaut suffit... mais, pour l'exemple, si t'appelles ta fonction f dans un sapply, faudrait mettre envir=parent.frame(2) si tu souhaites agir sur un objet de l'environnement d'où tu appelles le sapply, i.e. remonter de deux niveaux !)

Note également qu'il n'est pas possible d'assigner directement une valeur à un seul élément de la matrice depuis la fonction (du moins pas à ma connaissance, si quelqu'un sait comment faire, je suis archi-prenneur).

ça semble parfait pour le cas qui m'intéresse, merci !