R/RSarrow.R

Defines functions RSarrow

Documented in RSarrow

RSarrow <-
function(X1,Y1,X2,Y2){
   
  targetindex<-dev.cur() 
  targetindex<-recordPlot() 
  
   
  
  
  
  arrows(x0=X1,x1=X2,y0=Y1,y1=Y2)
   
   u<-readline("accept line? (y/n) ")
   if (u=="n")
   {replayPlot(targetindex)}
   
  
  
}

Try the SSDforR package in your browser

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

SSDforR documentation built on Nov. 24, 2023, 5:08 p.m.