# NOT RUN {
data(homer)
plotsfkt = function(){
colpal = c("white","black","yellow","wheat3")
align(homer,colpal = colpal,main = "D'OH!",asp = 1,axes = FALSE)
}
plotit("homer",sw = 2,sh = 2,sres = 2,plotsfkt,saveit = TRUE,fileformat = "jpeg")
plotit("homer",sw = 2,sh = 2,sres = 2,plotsfkt,saveit = TRUE,fileformat = "png")
plotit("homer",sw = 2,sh = 2,sres = 2,plotsfkt,saveit = TRUE,fileformat = "bmp")
plotit("homer",sw = 2,sh = 2,sres = 2,plotsfkt,saveit = TRUE,fileformat = "tiff")
plotit("homer",sw = 2,sh = 2,sres = 2,plotsfkt,saveit = TRUE,fileformat = "ps")
plotit("homer",sw = 2,sh = 2,sres = 2,plotsfkt,saveit = TRUE,fileformat = "pdf")
# }
Run the code above in your browser using DataLab