Nothing
#' spatstat.utils/tests/circleseg.R
require(spatstat.utils)
#' tests of R/xycircle.R, src/circxseg.c
x0 <- (0:4)/4
y0 <- runif(5)
x1 <- x0 + runif(5)
y1 <- y0 + runif(5)
xc <- runif(4)
yc <- runif(4)
rc <- runif(4)
ansX <- xysegXcircle(xc, yc, rc[1:3], x0, y0, x1, y1)
ansM <- xysegMcircle(xc, yc, matrix(rc, 4, 2), x0, y0, x1, y1)
ansP <- xysegPcircle(xc, yc, rc, x0, y0, x1, y1)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.