powered by
bearing.distance(x, y, distance, azimuth, EastOfNorth = TRUE)
pt <- cbind( x=480933, y=4479433) bearing.distance(pt[1], pt[2], 1000, 40)
Run the code above in your browser using DataLab