Articles - R

 
#cr?ation d'un r?pertoire de travail
dir.create("examples") #cr?ation du r?pertoire
setwd("examples") # on se place dans le repertoire 
 
# Cr?ation des fichiers .png  du compte ? rebours de 10 ? "GO!"
png(file="example%02d.png", width=200, height=200)
  for (i in c(10:1, "G0!")){
    plot.new()
    text(.5, .5, i, cex = 6)
  }
dev.off()
 
# Conversion des fichiers .png en un seul fichier .gif avec ImageMagick
system("/opt/local/bin/convert -delay 80 *.png example_1.gif")
# On supprime les fichiers .png
file.remove(list.files(pattern=".png"))
 

 
library(lattice)
b0 <- 10
b1 <- .5
b2 <- .3
g <- expand.grid(x = 1:20, y = 1:20)
g$z <- b0 + b1*g$x + b2*g$y
 
png(file="example%03d.png", width=300, heigh=300)
  for (i in seq(0, 350 , 10)){
    print(wireframe(z ~ x * y, data = g,
              screen = list(z = i, x = -60)))
  }
dev.off()
 
# conversion du pdf en gif, en utilisant ImageMagick
system("/opt/local/bin/convert -delay 40 *.png example_2_reduced.gif")
 
# On efface les fichiers png
file.remove(list.files(pattern=".png"))