```r
par(mfrow = c(3,4), mar = c(1,1,4,1), tck = 0.01, mgp = c(1,.25,0), bty = "l")
for(day in round(seq(90,334, length = 12)))
plotUpToDay(heikki2003, day)
```

<img src="codigoParaAnimaciones_files/figure-html/SampleImages-1.png" width="672" />