
c(0,0)
.
calcCoordsBorders(x, y, xmax = 1, ymax = 1, cx = 0, cy = 0)
1
).1
).dataframe
containing the x and y coordinates for the
extended vectors.
## Not run:
# calcCoordsBorders(1:10, 10:1)
#
# x <- c(-100:0, 0:100, 100:0, 0:-100)/10
# y <- c(0:100, 100:0, -(0:100), -(100:0))/10
# xy1 <- calcCoordsBorders(x, y)
# xy2 <- calcCoordsBorders(x, y, xm=1.2, ym=1.2)
# plot(xy2[,1], xy2[,2], type="n")
# segments(xy1[,1],xy1[,2],xy2[,1], xy2[,2])
# ## End(Not run)
Run the code above in your browser using DataLab