efg’s R Notes: EBImage: drawCircle

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