# NOT RUN {
cent<-c(1,1); rad<-1; p<-c(1.4,1.2)
#try also cent<-runif(2); rad<-runif(1); p<-runif(2);
in.circle(p,cent,rad)
p<-c(.4,-.2)
in.circle(p,cent,rad)
p<-c(1,0)
in.circle(p,cent,rad)
in.circle(p,cent,rad,boundary=TRUE)
#for a NA entry point
p<-c(NA,.2)
in.circle(p,cent,rad)
# }
Run the code above in your browser using DataLab