Open Network

[pedro-andrade-inpe]

Implement a function to create an open network

roads = CellularSpace{
    project = "my project",
    layer = "roads",
    geometry = true
}

network = Network{
    strategy = "open",
    target = communities,
    lines = roads,
    weight = function(cell, distance)
        local roadtype = cell.CD_PAVIMENT

        if roadtype == "paved" then
            return distance / 5
        else
            return distance / 2
        end
    end
}

[pedro-andrade-inpe]

The algorithm implemented in the first version of open network will compute only the distance to the nearest target, as it is currently implemented in R.

[pedro-andrade-inpe]

The implementation in R is available in the following link: https://github.com/pedro-andrade-inpe/aRT-old/blob/master/R/gpmFunctions.R