This function returns a logical vector whose length equals the number of
locations. The value in position i
is TRUE
if location number i
is
a terminal and FALSE
if it is not. For the definition of terminals,
see terminals()
.
Usage
is_terminal(sim, definition = c("ND", "RW"), ...)
Value
a logical vector with TRUE
at the positions of locations that are
terminals and FALSE
for other locations.
Examples
positions <- matrix(rnorm(10 * 2), ncol = 2)
distances <- as.matrix(dist(positions))
production <- rep(1, 10)
attractiveness <- rep(1, 10)
model <- blvim(distances, production, 1.3, 2, attractiveness, bipartite = FALSE)
is_terminal(model)
#> 1 2 3 4 5 6 7 8 9 10
#> TRUE FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE FALSE