R/RStext.R

In SSDforR: Functions to Analyze Single System Data

Defines functions RStext

Documented in RStext

RStext <-
function(textx,x,y){
  
  targetindex<-dev.cur() 
  targetindex<-recordPlot() 
  
  
  text(x,y,c(textx),cex=.9)
  u<-readline("accept text? (y/n) ")
  if (u=="n")

  {replayPlot(targetindex)}
  
    
   
    ab<-NULL
  ab<<-recordPlot()
  
}

Try the SSDforR package in your browser