if (FALSE) {
space1 <- AttributeSpace(
PlanningUnitPoints(
matrix(rnorm(100), ncol = 2),
seq_len(50)
),
DemandPoints(
matrix(rnorm(100), ncol = 2),
runif(50)
),
species = 1L
)
space2 <- AttributeSpace(
PlanningUnitPoints(
matrix(rnorm(100), ncol = 2),
seq_len(50)
),
DemandPoints(
matrix(rnorm(100), ncol = 2),
runif(50)
),
species = 2L
)
spaces <- AttributeSpaces(list(space1, space2), "spaces")
}
Run the code above in your browser using DataLab