Question

所以我已经将我的一对coords转换成两个矩阵，如下所示：

    long1      lat1
1 -1.290672 0.7124777
2 -1.290643 0.7125160
3 -1.290692 0.7125405
4 -1.290724 0.7124929
5 -1.290748 0.7124579
6 -1.290766 0.7124353

    long2      lat2
1 -1.290643 0.7125160
2 -1.290692 0.7125405
3 -1.290724 0.7124929
4 -1.290748 0.7124579
5 -1.290766 0.7124353
6 -1.290771 0.7124249

尝试运行一个看似简单的命令，但它挂了我的机器。不知道为什么，因为每个矩阵只有507550个元素和17.4 Mb。

foo <- rdist.earth(coords, coords2, miles=FALSE, R=6371)

有更简单的方法吗???

Answer 1

dist <- rdist.earth.vec(coords, coords2, miles=FALSE, R=6371)

Answer 2

有更好的方法可以做到这一点。但是如果你的R技能是最小的：你可以将第一个矩阵矩阵子集化为子矩阵（其中每个矩阵是总数的十分之一，将每个子矩阵与第二个矩阵运行，然后将结果组合在一起）结束了。我遇到了同样的问题，这就是我提出的问题。

$(document).ready(function() {
    $("#console_debug").hide();
    $("#btn_debug").click(function() {
        event.stopPropagation();
        $("#console_debug").toggle();
    });
});

$(document).click(function() {
    if(!$(event.target).closest('#console_debug').length) {
        if($('#console_debug').is(":visible")) {
            $('#console_debug').hide();
        }
    }
});

rdist.earth（）具有成对的坐标

2 个答案: