Inicio > Developers, Twitter, Users > FELIZ AÑO (Internacional de la Estadística) 2013!!!

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
  1. Aún no hay comentarios.
  1. No trackbacks yet.

Responder

Por favor, inicia sesión con uno de estos métodos para publicar tu comentario:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: