Dans le but d'effectuer des recherches et dans l'optique de mon stage, il fallait que je m'interresse aussi à la notion de modèle linéaire !
Pour cela, j'ai consulté les fiches ( déjà présente sur le forum ;-)) ) et je suis tombé sur un script que je voulais remettre à ma sauce :
Voilà ce que j'obtiens : ( début de mon code ! )
Code : Tout sélectionner
AnovaUnFacteur <- function(fichier,type_image,donnees,VarTest,VarEffet)
{
#-- Données
table(donnees$VarTest)
tapply(X = VarEffet, INDEX = list(VarTest), FUN = mean)
tapply(X = VarEffet, INDEX = list(VarTest), FUN = sd)
bitmap(fichier, type_image ,width=10,height=10,res=72,pointsize=12)
boxplot(formula = VarEffet ~ VarTest,data = donnees,main="Boxplot",xlab = "Variable à tester", ylab = "Variable d''effet",boxwex = 0.5,col = "orange")
dev.off()
graphics.off()
}
J'obtiens alors une erreur en lançant la fonction :
Code : Tout sélectionner
AnovaUnFacteur("/home/rom/ggg","png256",tabb,dece,jours)
Erreur dans as.vector(x, mode) : argument 'mode' incorrect
Sachant que ma "tabb" est de la forme :
Code : Tout sélectionner
tabb
jours dece
1 9578 0
2 15139 1
3 5112 0
4 10609 1
5 18421 0
6 10556 0
7 16796 1
8 2284 0
9 19559 1
10 9215 0
11 8135 0
12 3927 0
13 1688 1
14 381 0
15 14371 0
16 1254 0
17 16120 0
18 10883 1
19 6027 1
20 707 0
Ceci est juste pour tester ma fonction pas à pas mais ça plante déjà et je ne vois pas d'où ça vient pourtant ça doit pas être grand chose ; il n'y a pas d'option "mode" dans la fonction "tapply" !?
Quelqu'un pour m'éclairer ?
Merci d'avance