incircle(W)
"owin"
).x,y,r
giving the location (x,y)
and radius r
of the incircle.W
of any type and shape,
this function determines the largest circle
that is contained inside W
. For non-rectangular windows, the incircle is computed approximately
by finding the maximum of the distance map (see
distmap
) of the complement of the window.
centroid.owin
W <- square(1)
Wc <- incircle(W)
plot(W)
plot(disc(Wc$r, c(Wc$x, Wc$y)), add=TRUE)
data(letterR)
plot(letterR)
Rc <- incircle(letterR)
plot(disc(Rc$r, c(Rc$x, Rc$y)), add=TRUE)
W <- as.mask(letterR)
plot(W)
Rc <- incircle(W)
plot(disc(Rc$r, c(Rc$x, Rc$y)), add=TRUE)
Run the code above in your browser using DataLab