R/circ.R

Defines functions `circ`

`circ` <-
function()
{
# net(1)
C = RPMG::circle(1)
plot(C$x,C$y, type='n', axes=FALSE, asp=1, xlab="", ylab="")
 lines(c(C$x, C$x[1]),c(C$y,C$y[1]) , type='l')
}

Try the RSEIS package in your browser

Any scripts or data that you put into this service are public.

RSEIS documentation built on Aug. 19, 2023, 5:07 p.m.