RNotes | EBImage


library(EBImage)

Simple white circle

x <- matrix(0, nrow=300, ncol=300)
y <- drawCircle(x, 100, 200, 47, col=1)
display(y)

Simple filled yellow circle

x <- channel(y, 'rgb')
y <- drawCircle(x, 200, 140, 57, col='yellow', fill=TRUE)
display(y)


packageVersion("EBImage")
## [1] '4.8.2'

efg
2015-01-18 1932