Минимальный ограничивающий прямоугольник окружности на сфере

Question

Какие R-пакеты доступны для вычисления минимальной ограничивающей рамки для большого круга?

Например:

box <- polycirc(c(longitude, latitude), distance=35) 

Это возвращает ограничивающий прямоугольник для круга с радиусом 35 километров от центральной точки по координатам (на Земле). Где:

box.longitude_min = The longitude of the circle's western-most point. 
box.longitude_max = The longitude of the circle's eastern-most point. 
box.latitude_min = The latitude of the circle's southern-most point. 
box.latitude_max = The latitude of the circle's northern-most point. 

Что-то вроде этого уже должно существовать в R, но я не могу его найти. Ближайший я нашел (от SO), который я в настоящее время transmogrifying в R, является:

http://janmatuschek.de/LatitudeLongitudeBoundingCoordinates

Кроме того, что это слово (если таковые имеются) для минимального ограничивающего прямоугольника окружности? (. Противоположность circumscribed)

Answer 1

вверенную мне:

library(geosphere) 
    p <- c(longitude, latitude) 
    box <- apply(destPoint(p, c(0, 90, 180, 270), distance), 2, range) 
    print(box) 

Answer 2

Используйте функцию polycirc для создания точки окружности, а затем min и max основать рамку :)

require(pgirmess) 
circle <- polycirc(20, c(10, 20)) 
plot(circle, type = "l") 
rect(min(circle[,1]), min(circle[,2]), max(circle[,1]), max(circle[,2]))