xtabs dans une fonction

Bonjour

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

Code:

---

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 ?

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:

---

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,

Ça fonctionne super !
Merci