rgdal to gif: HELP!!!

I recommend using the caTools package for this.

Here is a peace of code I used to write some GIFs with color legend. I 
hope it is self-explanatory :)

# make a color palette:
 > col.pal <- c(grey(1), grey(0.6), grey(0), rep(grey(0), 256-3))

# import DEM to R:
 > dem <- readGDAL("dem.sdat")
# convert to 0:255 numbers:
 > dem$mask <- ifelse(!is.na(dem$band1), 2, ifelse(dem$band1 > 0, 1, 0))
 > write.gif(image=t(as.matrix(dem["mask"])), filename=paste(getwd(), 
"/", "dem_mask_1.gif", sep=""), col=col.pal)

# for scripting possibilities with ImageMagick see 
[http://www.imagemagick.org/Usage/anim_basics/];
 > system("C:\\PROGRA~1\\IMAGEM~1\\convert -delay 80 -loop 0 
*_mask_*.gif  mask_ani.gif")
 > system("C:\\PROGRA~1\\IMAGEM~1\\identify mask_ani.gif")

Here is a result:

http://bioislands.org/sites/default/files/images/mask_ani.gif

HTH,

T. Hengl
http://www.wewur.wur.nl/popups/vcard.aspx?id=HENGL001

Op 15-3-2011 10:14, Lorenzo Alfieri schreef:

rgdal to gif: HELP!!!

Thread (3 messages)