Archivo

Archive for 31 diciembre 2012

FELIZ AÑO (Internacional de la Estadística) 2013!!!

Los mejores deseos para este nuevo año que además viene cargado de novedades, actividades y esperemos de objetivos cumplidos con este año internacional de la Estadística.

(instalar el paquete “animation”)

require("animation")
n <- length(speed <- runif(angle <- runif(x <- strsplit(
     "FELIZ AÑO 2013","")[[1]], 0, 360), 0, 20))
x11(width = 10, height = 3)
par(mar = rep(0, 4), bg = "darkred")
 colores <- colors()[c(47:51,81, 139, 254:259, 448, 493:497, 614)]
for (j in 1:100) {
 angle = angle + speed
 dev.hold()
 plot.new()
 plot.window(c(1, n), c(0, 1))
 for (i in 1:n) text(i, 0.5, x[i], srt = angle[i], cex = runif(1,
 1, 4), col = sample(colores, 1))
 ani.pause(0.05)
 }
Anuncios
Categorías:Developers, Twitter, Users