Discussion :

[enicnath]

Bonjour

Je souhaite tout simplement utiliser xtabs() dans une fonction. Exemple :

Code :

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

1
2
3
4
5
DF <- data.frame(id=1:11,Sexe=c('G','G','G','F','F','F','G','F','F','G','F'),Nbr=c(1,2,1,0,1,1,3,1,0,1,2))
Fonction <- function(Table, Variable1, Variable2) { 
   xtabs(Variable1~Variable2,data=Table)
}
Fonction(DF,Nbr,Sexe)

L'exemple est tout bête, mais ça plante !

Est-ce que quelqu'un saurait me dire comment écrire cette fonction ?

[mgdondon]

Bonjour,

Le problème n'est pas lié à la fonction xtabs() mais au passage des paramètres : les variables Nbr et Sexe n'existent pas indépendamment du dataframe DF.

Code :

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

1
2
3
4
5
6
7
DF <- data.frame(id=1:11,Sexe=c('G','G','G','F','F','F','G','F','F','G','F'),Nbr=c(1,2,1,0,1,1,3,1,0,1,2))
Fonction <- function(Table, Variable1, Variable2) { 
   res <- xtabs(get(Variable1)~get(Variable2),data=Table)
   names(dimnames(res)) <- Variable2
   return(res)
}
Fonction(DF,"Nbr","Sexe")

Cordialement,

[enicnath]

Ça fonctionne super !
Merci