sapply et double boucle

Bonjour,
je débute avec la programmation en R et j'ai une fonction que j'aimerais simplifier:

Code:

---

1 2 3 4 5 6 7

a <- c("a1", "a2") b <- c("b1", "b2") for(i in 1:2){ for(j in 1:2){ plot(f(a[i], b[j])) } }

---

Je voudrais utiliser quelque chose comme

Code:

---

1 2 3 4 5

g <- function(x, y) { plot(f(x,y)) } sapply(???)

---

J'ai essayé diverses combinaisons pour remplacer mes "???" :oops: mais sans résultats!
J'ai dû mal comprendre le fonctionnement de "sapply" (j'ai aussi essayé "mapply"...)
Quelqu'un pourrait-il m'aiguiller, svp?
Merci d'avance :P

Bonjour,

Quelle est la définition de la fonction f() (ou bien quelle librairie la définit) ?

Citation:

---

Envoyé par pitipoisson

Bonjour,

Quelle est la définition de la fonction f() (ou bien quelle librairie la définit) ?

---

Bonjour,
j'utilse le package "survival" et je veux tracer en fonction de l'âge:

Code:

---

plot( survexp.usr[ , s, r, "2004"] )

---

où s représente le sexe, et r la race.
Je veux donc obtenir les 4 courbes en utilisant

Code:

---

1 2	sexe <- c("male", "female") race <- c("white", "black")

---

et "sapply"...
Pensez-vous que cela soit possible?
Merci :P

OK,

Le principe est le suivant (j'ai pris la fonction message pour l'exemple)

Code:

---

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

a <- c("a1", "a2") b <- c("b1", "b2")   ## Original : for(i in 1:2){ for(j in 1:2){ message(a[i], " ", b[j]) } }   ## Avec sapply : invisible(sapply(a, function(x) sapply(b, function(y) message(x, " ", y))))

---

Ceci dit, lorsque tu as peu de cas, c'est pas vraiment la peine d'avoir recours à cette méthode. C'est moins lisible et le gain de performance sera sans doute imperceptible.

Merci beaucoup, je n'ai eu qu'à adapter le code :D
Même si cela n'est pas fondamental ici, cet exemple va m'aider pour de futurs programmes...j'espère ;)