R/innercircle.R

Defines functions innercircle

innercircle <- function(r3=0.2, length=800){
  slice.position <- seq(0*pi, 2*pi, length.out=length) 
  df <- data.frame(
    x = r3*cos(slice.position),
    y = r3*sin(slice.position)
  )
  df
}
chunqiaoluo/patternplot_0.3.2 documentation built on March 7, 2020, 12:46 a.m.