Problème sur la fonction outer

Bonjour,
j'essaye d'utiliser la fonction outer pour à partir de 2 vecteurs x et y, renvoyer la matrice f(x[i],y[j]).
J'essaye pour cela d'utiliser la fonction outer, mais j'ai des problèmes. Par exemple sur un cas simple, j'ai l'erreur suivante.

Citation:

---

essai=function(i, j){
return(3*i+(5*j))
}

x=1:10
y=1:10
outer(x,y,essai)

---

Cela marche sans problème, maintenant en faisant :

Citation:

---

essai=function(i, j){
return(1)
}

x=1:10
y=1:10
outer(x,y,essai)

---

J'obtiens l'erreur :
Erreur dans outer(x, y, essai) :
dims [produit 100] ne correspond pas à la longueur de l'objet [1]


Si quelqu'un pouvait me dire pourquoi, ça m'aiderait beaucoup.

Ou sinon, si quelqu'un connait une fonction pour calculer la matrice des f(x[i],y[j]), je suis preneur ici.
J'ai cherché également du côté de Vectorize mais ça conçait pour ce que je cherchais à faire ensuite.

Merci d'avance

Salut,

Je ne connais pas outer mais mapply() est une fonction qui correspond à ce que tu veux:

Code:

---

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

x=1:10 y=1:10   #outer(x,y,essai) #-> visiblement ca bug si ton return n'est pas fonction des deux arguments   #Toutes les combinaisons possibles de x et y e<-expand.grid(x,y)   #Applique ta fonction essai pour toutes les combinaisons possibles de x et y m<-mapply(essai,e[,1],e[,2])   #Transforme le vecteur obtenu en matrice matrix(m,nrow=length(x),ncol=length(y))

---

Génial, merci beaucoup Sengar