On Jan 6, 2010, at 12:40 PM, cirtey wrote:
Hi;
lissage<-function(variable)
{
library(pastecs)
ENTREE.ts <- ts(projet$ENTREE)
ENTREE.dec <- decaverage(ENTREE.ts, order=variable, sides=2,
ends="fill")
plot(ENTREE.dec, col=c(1, 4), xlab="temps",ylab="Nombre
d'entrées",main=paste("Moy
Hi;
lissage<-function(variable)
{
library(pastecs)
ENTREE.ts <- ts(projet$ENTREE)
ENTREE.dec <- decaverage(ENTREE.ts, order=variable, sides=2,
ends="fill")
plot(ENTREE.dec, col=c(1, 4), xlab="temps",ylab="Nombre
d'entrées",main=paste("Moyenne mobile d'ordre ",variable," sous R"),
2 matches
Mail list logo