Discussion :

[lilly74]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
g <- function(x, y) {
    plot(f(x,y))    
}
sapply(???)

J'ai essayé diverses combinaisons pour remplacer mes "???" 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

[pitipoisson]

Bonjour,

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

[lilly74]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[pitipoisson]

OK,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[lilly74]

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