x <- pixmap(rep(1:8, 9), nrow=6, col=rainbow(8), type="indexed")
plot(x)
plot(x, asp=.5)
plot(as.pixmapGrey(x))
x <- read.pnm(system.file("pictures/logo.ppm", package="pixmap")[1])
plot(x)
x <- seq(-3,3,length=100)
z1 <- outer(x,x,function(x,y) abs(sin(x)*sin(y)))
z2 <- outer(x,x,function(x,y) abs(sin(2*x)*sin(y)))
z3 <- outer(x,x,function(x,y) abs(sin(x)*sin(2*y)))
z <- pixmap(c(z1,z2,z3), 100, 100, type="rgb", bbox=c(-1,-1,1,1))
plot(z, axes=TRUE)
Run the code above in your browser using DataLab