calculateCircle {CVD} | R Documentation |
calculateCircle
generates points from a circle
with many options, equally spaced, randomly spaced, with noise added
to the radius or limited to a segment of angle alpha.
calculateCircle(x, y, r, steps=50,sector=c(0,360),randomDist=FALSE, randomFun=runif,...)
x |
center point x |
y |
center point y |
r |
radius |
steps |
number of points |
sector |
limited circular sector |
randomDist |
logical, TRUE = randomly spaced |
randomFun |
random function |
... |
optiomal parameters to pass to randomFun |
points |
array n x 2 of point coordinates. |
Jose Gama
## Not run: # 100 points from a circle at c(0,0) with radius=200 a<-calculateCircle(0,0,200,100) plot(a[,1],a[,2],xlim=c(-200,200),ylim=c(-200,200)) par(new=TRUE) # 12 points from a circle at c(0,0) with radius=190, points between 0 and 90 # degrees a<-calculateCircle(0,0,190,12,c(0,90)) plot(a[,1],a[,2],xlim=c(-200,200),ylim=c(-200,200),col='red') par(new=TRUE) # 12 points from a circle at c(0,0) with radius=180, points between 0 and 180 # degrees, uniform random distribution a<-calculateCircle(0,0,180,12,c(0,180),TRUE) plot(a[,1],a[,2],xlim=c(-200,200),ylim=c(-200,200),col='green') par(new=TRUE) # 12 points from a circle at c(0,0) with radius=170, points between 0 and 180 # degrees, normal random distribution a<-calculateCircle(0,0,170,12,c(0,180),TRUE,rnorm) plot(a[,1],a[,2],xlim=c(-200,200),ylim=c(-200,200),col='blue') ## End(Not run)