voici le code que j'utilisais pour visualiser Y<-ts(X,start=48,frequency=7) print(Y,calendar=TRUE) w<-rep(1,7) Z<-na.omit(round((filter(Y,filter=w,sides=1))/7,0)) print(Z,calendar=TRUE) limy<-c(0,20000) plot(Z,ylim=limy,xlab="semaine.jour", ylab="nb de nouveaux cas covid", main=&...