R/DrawLine.R

Defines functions DrawLine

DrawLine<-function(Line, color){
  m=Line[1]
  n=Line[2]
  if (toString(m)=="Inf"){
    abline(v=as.numeric(n),col=color)
  }
  else{
    abline(a=n,b=m,col=color)
  }
  return()
}

Try the LearnGeom package in your browser

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

LearnGeom documentation built on July 14, 2020, 5:06 p.m.