[b][/b]Bonjour à tous.
A partir de l'aide acquise sur internet, j'ai écrit et exécuté le script suivant pour une analyse:
lm(log(mean.ep)~espece*(ht+d+hmax+dmax+expo),data=data1c) -> res
step(res)
anova(res)
plot(res)
graf.ep <- function(data) {
graf=data
splist=unique(graf$espece)
par(mfrow=c(4,2))
for (sp in splist) {
with(graf[graf$espece==sp,],plot(d,mean.ep,frame.plot=F,main=sp,log="y",pch="."))
with(graf[graf$espece==sp,],text(d,mean.ep,labels=indiv))
}
}
Jusque-là pas de message d'erreur, mais quand j'ajoute les lignes suivantes:
graf.ep(data1c)
par(mfrow=c(1,1))
# on me met comme résultat:
Error in plot.new() : figure margins too large
Lorsque je visualise le traceback, les étapes suivantes sont notées mais je n'y comprends rien
8.
plot.new()
7.
plot.default(d, mean.ep, frame.plot = F, main = sp, log = "y",
pch = ".")
6.
plot(d, mean.ep, frame.plot = F, main = sp, log = "y", pch = ".")
5.
eval(substitute(expr), data, enclos = parent.frame())
4.
eval(substitute(expr), data, enclos = parent.frame())
3.
with.default(graf[graf$espece == sp, ], plot(d, mean.ep, frame.plot = F,
main = sp, log = "y", pch = "."))
2.
with(graf[graf$espece == sp, ], plot(d, mean.ep, frame.plot = F,
main = sp, log = "y", pch = "."))
1.
graf.ep(data1c)
Je vous prie de bien vouloir m'assister. Merci d'avance