Como me encuentro hoy, con #rstats

Gráfico absurdo con R y un buen ejemplo de las cosas que hace pi. Tras 2 meses de dolores intensos en mi hombro hoy sólo noto una molestia, y claro…

[source language=»R»] plot(rep(10,10),rep(10,10),ann=FALSE,type=“n”, ,xlim=c(-1,1),ylim=c(-1,1),axes=FALSE) radio <- 1 theta <- seq(0, 2 * pi, length = 200) lines(x = radio * cos(theta), y = radio * sin(theta)) radio <- 1.1 theta <- seq(-0.75, -3*pi/4 , length = 100) lines(x = radio * cos(theta) , y = radio * sin(theta) + 0.5 ) points(-0.5,0.5,pch=1,cex=3) points(0.5,0.5,pch=1,cex=3) [/source]