library(EBImage)
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)
w <- matrix(seq(0, 1, len=300), nc=300, nr=300)
m <- abind::abind(w, t(w), along=3)
z <- Image(m, colormode='Color')
display(normalize(z))
y <- Image(c('red', 'violet', '#ff51a5', 'yellow'), dim=c(71, 71))
display(y)
x <- readImage(system.file('images', 'nuclei.tif', package='EBImage'))
x <- x[,,1:3]
display(x, title='Cell nuclei')
## The image contains more than one frame: only the first one is displayed. To display all frames use 'all = TRUE'.
display(x, title='Cell nuclei', all=TRUE)
colorMode(x) <- Color
display(x, title='Cell nuclei in RGB')
packageVersion("EBImage")
## [1] '4.8.2'
efg
2015-01-18 1952