x <- c(1,2,2,-1)
y <- c(0,0.1,3,2)
(l <- lengths.angle(x, y)) # == lengths.angle(cbind(x, y))
#> $lx #> [1] 3.16228
#> $ly #> [1] 3.60694
#> $angle #> [1] 1.1937
l$angle/pi*180 # in degrees > 68.394
Run the code above in your browser using DataLab