| 
    
    DATA MINING
     Desktop Survival Guide by Graham Williams  | 
    
    
     
     | 
    |||
library(pixmap)
# From the addlogo example
x <- read.pnm(system.file("pictures/logo.ppm", package="pixmap")[1])
fg <- matrix(c(0,1,0,1,0,.05,0,.05), ncol=4, byrow=TRUE)
split.screen(fg)
screen(1)
plot(rnorm(100))
screen(2)
addlogo(x,c(0,1),c(0,1))
 |