RNotes | EBImage


library(EBImage)

Image class

s1 <- exp(12i*pi*seq(-1, 1, length=300)^2)
y <- Image(outer(Im(s1), Re(s1)))
display(normalize(y))

set.seed(17)
x <- Image(rnorm(300*300*3),dim=c(300,300,3), colormode='Color')
display(x)