Discussion :

[pupilSAS]

Bonjour,

Je suis débutante R, je tente de créer une fonction simple pour comprendre le principe de la fonction

Code :

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

tab <- data.frame(age=c(1,2,3),type=c(1,1,1))

J'enregistre le nouveau dataframe toto, l'équivalent de tab

Code :

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

toto <- tab

Je crée une fonction qui va faire la même chose de manière automatique

Code :

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

1
2
3
temporal <- function(tableau_out, tableau_in) {tableau_out <<- tableau_in}
rm(toto)
  temporal (toto,tab)

Je souhaite que le paramètre tableau_out prenne la valeur de toto et tableau_in, celle de tab. ça ne marche pas. Je n'ai peut-être pas compris le principe d'une fonction en R

merci à tous pour votre aide

[prog_R]

Bonjour,

Si j'ai bien compris:

Code :

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

1
2
3
4
5
6
temporal = function(tableau_in){
  tableau_out = tableau_in
}
 
tableau_out = temporal(tableau_in)
rm(tableau_in)

j'espère que ca répond à ta demande
Prog_R

[Theta]

Le problème vient du fait que tableau_out <<- tableau_in veut dire met la valeur de la variable tableau_out dans une variable nommée "tableau_out", et non dans une variable dont le nom est la valeur de la variable tableau_out (ce que tu devais penser). Au final si tu fait ls() tu verras que tu as une variable "tableau_out" qui se créé.

Si tu viens d'un autre langage de programmation (c++ et dérivés), tu pensait peut être utiliser une référence, mais non, il n'y a pas de référence en R.

Il faut passer par la fonction "assign" pour faire ce que tu veux.

[pupilSAS]

Merci pour vos retours. Je viens du monde SAS.

Merci Theta, je comprends mieux.

Code :

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

1
2
3
4
5
6
temporal = function(tableau_in){
  tableau_out = tableau_in
}
 
tableau_out = temporal(tableau_in)
rm(tableau_in)

Je souhaite avoir les 2 paramètres dans la fonction function(tableau_out, tableau_in). Pourquoi avez-vous supprimer tableau_out?

[prog_R]

Si j'ai bien compris, tu souhaites faire une fonction qui attribue à tableau_out, les valeurs de tableau_in.
dans la première partie de ta fonction, tu mets les paramètres nécessaire à la réalisation de ta sortie (tableau_out). Je vois pas trop l'intérêt de le mettre dans la fonction si ca dépend uniquement de tableau_in.

J'ai sans doute pas totalement compris la demande

Prog_R

[pupilSAS]

Merci. Mon objectif est de faire une fonction qui prend un dataframe source, fait un filtre et de met le résultat dans un nouveau dataframe.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
# Création de 2 data frames sources
tab_source1 <- data.frame(age=c(1,2,3),type=c(1,1,1))
tab_source2 <- data.frame(age=c(1,2,3),type=c(1,1,1))
 
#code non automatisé : filtres sur les dataframes sources et stockage des résultats dans des dataframes résultats
 
new_tab1 <- tab_source1 %>% dplyr::filter(age>1)
new_tab2 <- tab_source1 %>% dplyr::filter(age>2)
new_tab3 <- tab_source1 %>% dplyr::filter(age>3)
 
 
new_tab1_ <- tab_source2 %>% dplyr::filter(age>1)
new_tab2_ <- tab_source2 %>% dplyr::filter(age>2)
new_tab3_ <- tab_source2 %>% dplyr::filter(age>3)

Comment automatiser le code ci-dessus avec une fonction? Ou placer la fonction assign? Voici ce que j'ai tenté mais ça ne marche pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#code automatisé
 
temporal <- function (data_out,data_in, param_age){
  data_out <- data_in %>% dplyr::filter(age>param_age)
 
}
 
temporal (new_tab1,tab_source1,1)
temporal (new_tab2,tab_source1,2)
temporal (new_tab3,tab_source1,3)
 
temporal (new_tab1_,tab_source2,1)
temporal (new_tab2_,tab_source2,2)
temporal (new_tab3_,tab_source2,3)

J'espère être un peu plus clair. Merci encore

[prog_R]

à tester:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
# Création de 2 data frames sources
tab_source1 <- data.frame(age=c(1,2,3),type=c(1,1,1))
tab_source2 <- data.frame(age=c(1,2,3),type=c(1,1,1))
 
#code non automatisé : filtres sur les dataframes sources et stockage des résultats dans des dataframes résultats
 
ma_fonction = function(tab_source1, tab_source2){
new_tab1 = tab_source1[which(tab_source1$age>1),]
new_tab2 = tab_source1[which(tab_source1$age>2),]
new_tab3 = tab_source1[which(tab_source1$age>3),]
 
new_tab1_ = tab_source2[which(tab_source1$age>1),]
new_tab2_ = tab_source2[which(tab_source1$age>2),]
new_tab3_ = tab_source2[which(tab_source1$age>3),]
 
assign(x='new_tab1', value=new_tab1, envir=.GlobalEnv)
assign(x='new_tab2', value=new_tab2, envir=.GlobalEnv)
assign(x='new_tab3', value=new_tab3, envir=.GlobalEnv)
assign(x='new_tab1_', value=new_tab4, envir=.GlobalEnv)
assign(x='new_tab2_', value=new_tab5, envir=.GlobalEnv)
assign(x='new_tab3_', value=new_tab6, envir=.GlobalEnv)
}
ma_fonction(tab_source1,tab_source2)

c'est ce que tu recherches ?

Prog_R

[mgdondon]

Bonjour,

Le plus simple est de faire un return() en fin de fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
> tab_source1 <- data.frame(age=c(1,2,3),type=c(1,1,1))
> 
> temporal <- function(data_in, param_age){
+   data_out <- data_in[which(data_in$age >= param_age),]
+   return(data_out)
+ }
> 
> sortie_toto <- temporal(tab_source1, 1)
> sortie_toto
  age type
1   1    1
2   2    1
3   3    1
> titi_toto <- temporal(tab_source1, 2)
> titi_toto
  age type
2   2    1
3   3    1
> tutu_toto <- temporal(tab_source1, 3)
> tutu_toto
  age type
3   3    1

Cordialement,

PS : Puisque vous êtes un utilisateur SAS, je vous conseille le document R for SAS and SPSS users et le livre associé.