# \donttest{
A<-c(-1.22,-2.33); B<-c(2.55,3.75)
xr<-range(A,B);
xf<-(xr[2]-xr[1])*.1
#how far to go at the lower and upper ends in the x-coordinate
x<-seq(xr[1]-xf,xr[2]+xf,l=3) #try also l=10, 20 or 100
lnAB<-Line(A,B,x)
lnAB
plot(lnAB)
# }
Run the code above in your browser using DataLab